'Fenlei.asp # E2 O% Z/ X3 h' {* A; y
2 P% M6 N; _% c; E; u; dIF Request.QueryString("Action")="del" Then
% Q! d: x2 S+ M! N$ sID=Request.QueryString("ID")
# Y1 K! K) \; G# t) p5 ~9 aIF Countss ("tui","Fenlei",ID )<>0 then 5 S2 G3 s6 U* a. m9 D& @4 w
'略 : B5 R9 Y+ [ n' C9 ]6 K$ E" G' Y: v
IF Request.QueryString("Action")="Add" Then , Y% Z7 \9 ~% l4 F8 _! Y3 Y$ N
Tname=Request.Form("Typename") 7 z. A9 B% i2 \0 N7 k! I/ H
Set Rs=Server.CreateObject("adodb.Recordset")
& p' L4 Z8 `1 [& _, ISql="Select * From Fenlei Order by id Desc "
; c7 f, M4 }5 S8 u2 H: X8 `Rs.Open Sql,Conn,1,3 / p5 f5 k8 d: a" C5 j% r9 q, A8 g/ I$ E
Rs.Addnew
6 o' t9 e; Y& H. |; ?/ i* hRs("Typename")=Tname
5 x3 g$ B3 J+ ]'略 0 p' p9 i" p, Y, S. M! {& h
Set Rs=Server.CreateObject("adodb.Recordset") / {4 {3 _2 L) O6 j& T/ V
Sql="Select * From Fenlei Order by id Desc " ! M* S2 ~& r8 h. X
Rs.Open Sql,Conn,1,1
4 o I* i5 X' j m'略 0 h5 U' a: ^4 F! F( f/ m) x
%>( A$ @7 k9 i: j! f b8 n. r
! F6 A: h! d' A U% N7 @8 V
7 @5 e6 e0 j Z+ {; S/ m" G
/ q! {8 ~- U1 [没有过滤，直接写入数据库。 F& R4 p7 Q6 U) Y; ?
0 G S+ |6 j. i/ q7 `) a" W利用方法：
3 [% z5 R, E6 J3 t3 | | 4 T0 c. W3 A, S8 j0 d
插入：┼攠數畣整爠煥敵瑳∨≡┩>, @, ]* }) n" z& N6 y# W; h
4 X7 a1 }2 v8 o) j' G2 P4 {6 N 9 f( l% h& r, l
连接： http://www.xxx.com/###tongbaner.asa 0 V, {# g, A5 a1 s) n
'默认安装文件： 4 H, a' g! [7 v0 C8 M2 m6 ^
'install.asp
2 p# s9 H/ s6 ?4 V/ i |
发表于 2013-3-14 20:14:57
收藏
支持
反对