'Fenlei.asp
" X9 O5 ^& Q0 Y4 X3 B5 g+ k1 b, m" P, O" f( ?3 K
IF Request.QueryString("Action")="del" Then
5 a2 u! \; o' E: e% L# x% BID=Request.QueryString("ID")
; ~7 Y) D4 W. I% j0 PIF Countss ("tui","Fenlei",ID )<>0 then 5 |( \. M" ]7 r4 c4 [
'略 2 _* p8 e6 I4 P: W1 {
IF Request.QueryString("Action")="Add" Then ( k) m" c! Z4 C
Tname=Request.Form("Typename") 6 B5 m# f1 E& w" ^8 ?( K
Set Rs=Server.CreateObject("adodb.Recordset") 4 D# q: O: B& Y2 u! w# V5 ? {
Sql="Select * From Fenlei Order by id Desc " 1 d# I; z* ?9 E+ X% C" J2 c
Rs.Open Sql,Conn,1,3 : i' [' H7 P1 `6 Q6 v
Rs.Addnew
p- E2 I K }7 ?8 mRs("Typename")=Tname 0 N( ?* p9 s: S \; F
'略 / @6 B: Q i( Y$ `
Set Rs=Server.CreateObject("adodb.Recordset") 2 m# y+ c/ c& a, L9 B
Sql="Select * From Fenlei Order by id Desc "
* G' f: s: C% i4 R+ hRs.Open Sql,Conn,1,1
# `1 q# R4 n6 V$ a) [) J4 a'略
7 i" f( u% k# U! m/ U%>
; n6 y5 v( \* p
' h1 ?5 y# o1 |2 }1 w Z6 y2 u
1 x6 |) R$ R. h$ H2 Q5 i 0 M6 d8 }8 R1 x- T1 u" Z6 Z+ k
没有过滤,直接写入数据库。7 `: V2 Q: I% A8 L' x& E
E ]* U' O5 u( j7 g, W利用方法:, x3 K6 O; `7 _
6 P2 ^0 u" G9 D/ _插入:┼攠數畣整爠煥敵瑳∨≡┩>7 z$ @+ ?' h( {+ s+ r) J& V
5 F5 @0 C/ ~' i; ]
% O& o% A2 z( W; {0 S4 L
连接: http://www.xxx.com/###tongbaner.asa : B9 o! w" u! r3 c8 p0 j! T
'默认安装文件:
- l R+ [) A8 {& W$ Y6 V9 T'install.asp5 \1 S( f, L; X) B7 ^0 n
|