'Fenlei.asp
3 V0 a! `! n/ m" S& p4 M& Q, F& b- F
! X6 Y# g# a8 F8 RIF Request.QueryString("Action")="del" Then
% }8 D1 E* d; n3 T/ s( k& {ID=Request.QueryString("ID")
, L" C3 \/ Q9 t# q7 jIF Countss ("tui","Fenlei",ID )<>0 then 6 ]4 n* j( H- b/ f( ?. G
'略
0 {* R# ]! V0 s T& i+ |IF Request.QueryString("Action")="Add" Then
$ N: c5 z4 \) W3 oTname=Request.Form("Typename") 0 v$ Y* A% x/ U7 C' y
Set Rs=Server.CreateObject("adodb.Recordset") . G1 O4 q6 K7 r* p
Sql="Select * From Fenlei Order by id Desc "
3 G/ }# X( w" B$ W+ \0 iRs.Open Sql,Conn,1,3
4 {) ~/ n' Q5 Z8 `% S' gRs.Addnew
0 e9 ?% n+ u0 a7 n# o1 v# qRs("Typename")=Tname . L3 @: I$ \9 E+ N; \2 P$ v
'略 - w7 j6 I0 ]9 d2 e6 r8 U) W2 T
Set Rs=Server.CreateObject("adodb.Recordset")
. x6 v. r: G- F7 C3 d0 T6 ISql="Select * From Fenlei Order by id Desc " 6 l/ y: h- j9 ~* u8 ]4 H: e a
Rs.Open Sql,Conn,1,1
+ X$ G4 l) {( r, O8 C'略 $ V) J" _; `8 f1 U5 z0 x
%>; c2 R7 ^1 ?4 I/ `- @
( ^9 J `9 X+ e; m
: o0 y* X0 a% o3 D! }
+ J, @4 B+ ]8 D6 I5 A) f5 T( B
没有过滤，直接写入数据库。
8 r9 _2 C& [. g; C- M
+ J) @- R7 y! L. M( k; e利用方法：
- ]- b) T" J2 I( |& @8 B 2 M. K9 F1 G4 |
插入：┼攠數畣整爠煥敵瑳∨≡┩>0 }6 i0 g# \ Y5 `
( b, V% ]5 Y( ?/ f. J8 | 2 [$ F. D9 U( ?& }9 J! M7 t
连接： http://www.xxx.com/###tongbaner.asa 0 G: U' k6 R) _; T/ T
'默认安装文件：
2 K+ I6 z/ C1 s8 k) S'install.asp
* K3 F f. `. z |
发表于 2013-3-14 20:14:57
收藏
支持
反对