'Fenlei.asp " k" C. }) e: Q f; C
! Y; b; V; x+ m8 b I7 m
IF Request.QueryString("Action")="del" Then
% @; g9 T+ u* K# xID=Request.QueryString("ID")
+ @+ ~$ X) H( ?, Y1 S" WIF Countss ("tui","Fenlei",ID )<>0 then $ t3 a) j3 _0 q) u
'略
9 B) O9 Y9 B3 F0 B# }IF Request.QueryString("Action")="Add" Then # m) U. ^( Q- ^% V- F, t' |0 ~+ W8 c
Tname=Request.Form("Typename") % P- v" M' h' _3 g! b
Set Rs=Server.CreateObject("adodb.Recordset")
2 O( h2 O5 }3 {$ i2 c6 mSql="Select * From Fenlei Order by id Desc "
$ C; y" e; H8 m8 E* k+ L' ZRs.Open Sql,Conn,1,3
+ Z! P, m( p1 j$ s* V" RRs.Addnew
% V" y7 z( ~8 X5 ^8 c* b6 YRs("Typename")=Tname + g' h' r+ ^. T5 P
'略
- c6 H z" F* `/ A- ]: ySet Rs=Server.CreateObject("adodb.Recordset")
" q3 L3 x1 m! T) _" h1 vSql="Select * From Fenlei Order by id Desc "
1 N3 ?* K/ z# z7 j9 D' b8 oRs.Open Sql,Conn,1,1
, t; j* O4 u# _. w/ A'略 . E% N0 [& V: o
%>
6 {( E$ B! {/ f |& _
. D% w* [ d7 X, o( n' H 8 s8 M# F6 @, R4 U, a, [
0 U6 j8 ^9 F$ b' h% l( C" I没有过滤，直接写入数据库。
3 v8 A I$ n3 V& f( G( B$ _/ F( g- D : S: A4 ^; n/ O7 s: J
利用方法：# T3 e4 b6 w$ X. u
2 `- S6 }1 w( h9 @6 v
插入：┼攠數畣整爠煥敵瑳∨≡┩>
1 C) q% z0 g+ i. v ~
8 C ~: _+ {, h' x- |+ F
r8 E& y6 b. c u4 K8 R连接： http://www.xxx.com/###tongbaner.asa 1 x" N) V6 s6 ?# x9 O
'默认安装文件：
, z, _6 A0 p0 h'install.asp
5 v& v: Z) N, J9 b+ I |
发表于 2013-3-14 20:14:57
收藏
支持
反对