'Fenlei.asp
, K: l6 z% \, j5 D; \: j4 H
- Y5 [$ a4 h/ R/ `# P- XIF Request.QueryString("Action")="del" Then
3 O1 O* \7 R" AID=Request.QueryString("ID") ' `( a5 S+ x9 G* _( [% `( d4 \$ N; o
IF Countss ("tui","Fenlei",ID )<>0 then ' ], V' y; f/ z1 d/ g7 z# U5 R
'略 " M- {! c8 n! _! I# w
IF Request.QueryString("Action")="Add" Then # W; x& i& M6 ]
Tname=Request.Form("Typename") ! t4 h+ W5 j6 v+ T6 \' p: A/ E& B# J
Set Rs=Server.CreateObject("adodb.Recordset") 1 ^& P. Q' I* |8 _# L' p0 |. R! C
Sql="Select * From Fenlei Order by id Desc "
$ Y0 i) r2 F4 dRs.Open Sql,Conn,1,3
3 \2 G# s' X; M5 {Rs.Addnew
0 V" [; W* D" N$ W" Z' G" \& w) M9 YRs("Typename")=Tname # m5 f! b( E6 d7 _ C9 f
'略 ) V& X( W4 s9 ]/ Y' S+ j9 K
Set Rs=Server.CreateObject("adodb.Recordset") 5 h& K3 Z5 K$ @) j/ I1 G/ Q
Sql="Select * From Fenlei Order by id Desc "
% l3 Q7 m1 `! W& A) B( U# v* W& L" URs.Open Sql,Conn,1,1
; u' k# y* O8 ^, @. R8 K$ N4 r! {'略
4 Y8 d: J( P6 j; f% d. i%>
9 x5 E! f. X9 _9 W
; A, G" a/ F. j4 V2 U* ` 7 U9 S7 @9 t" Z% n0 K: r
# K/ m% d% |4 H! M7 X& @没有过滤,直接写入数据库。
5 t, x; Z: c8 f
N+ F3 ~ q! f) P* Q+ [4 u% u: S利用方法:
* ]2 ~: t( i4 |( H8 c+ D 9 K m* D: v) v Y$ ?
插入:┼攠數畣整爠煥敵瑳∨≡┩>+ f7 x+ N _& u1 S
- t i4 }& z/ Y
# n- @4 E0 T; o" R! c6 {. g* J
连接: http://www.xxx.com/###tongbaner.asa
2 b* ~: K. q$ e) _% K s3 x3 u'默认安装文件: - B+ s* x, S' n2 Y* L$ x0 ]1 C
'install.asp
) T. t' a3 `9 h5 k2 a) H+ n |