[建站技术]每个ASP程序员必备的知识

月中水

数据库连接：
+ Q- l" x. b6 ^  I! _* M<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: F% K7 n6 ^& `, h0 ?) ^%>
/ {8 g( A+ n0 H* L( t6 l
" K7 w% D9 ^2 }6 M
打开数据库：
exec="select * from 数据库表"
7 [8 ~6 E2 N% M, }4 s2 }  yset rs=server.createobject("adodb.recordset")
2 E9 B" z0 `8 L1 t, G$ I$ ]9 Trs.open exec,conn,1,1
) k7 W- p/ c% `$ k参数1，1为读取
6 y3 M8 g9 v. |( ]
; P( }. ~+ \; k6 y, H读取内容格式：<%=rs("字段")%>
9 i' o0 T( K6 b6 v! C
添加记录处理程序：
<%
; V4 e& f# p) K# f2 |1 X* Eset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 Q* g8 Y& r( Iname=request.form("字段")  name,tel,message为提交表单所设置的字段值
3 r( l: p: D9 w% \0 u! Etel=request.form("字段")
message=request.form("字段")
6 c6 X/ J' F2 M$ hexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
set conn=nothing
4 _; H9 i" r5 }9 ^9 N4 L5 l%>

/ ]+ ]  m2 u! c搜索处理程序:
<%
# c' K( }3 }# A9 o4 X) `4 Qname=request.form("字段") name,tel为提交表单所设置的字段值
9 ]" U* B. C9 X& b# b4 s) Xtel=request.form("字段")
set conn=server.createobject("adodb.connection")
# X3 V' N6 a: l2 yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) R# C7 M8 U; f' n# E' Kexec="select * from 表 where name='"+字段+"' and tel="+字段
' ^$ E" |* k  o" g* Tset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
. G9 j- k  W* b%>
  C+ {/ @+ }) b3 @* K" G/ P, O'页面搜索到的内容导出来
! A2 F" f6 D4 ?+ ?) J<%
do while not rs.eof
' [3 L% j6 T; |6 f% u! }%><tr>
7 `3 S" u. f3 C! e% l<td><%=rs("name")%></td>
. m' i1 H$ p5 e<td><%=rs("tel")%></td>
! c% m6 K# L3 O+ O6 q<td><%=rs("time")%></td>
</tr>
8 y1 A& c4 n4 n- i<%
rs.movenext
loop
) h0 H* d( r' e* N  w$ b; b7 u%>
& l1 L1 d% c2 R  z; J. `! l7 n4 _$ f
& C8 O0 g! D" U- e, ?删除记录处理程序:
<%
- ]8 W& Z$ M; o* U+ gset conn=server.createobject("adodb.connection")
5 v$ L' v5 E! I- K- a. P! u. vconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>


修改记录处理程序:
' X% z; v9 t3 W; l<%
/ n9 Q5 i/ d+ r; f- oset conn=server.createobject("adodb.connection")
! A6 @% N- ^0 y3 v, a+ N2 j- ^1 vconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, e8 k6 [7 B" i4 v& c4 y7 g: Z4 Oexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
5 x3 q6 |; A- M( E: d- k- @rs.open exec,conn,1,3  '1,3为修改意思
5 N8 ?! \! E) ^# {+ v+ ?' Frs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
& C* c& k5 V+ O0 j* K1 o/ vrs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
6 R1 ^* q# k$ \. n4 }% N9 Rrs.close
5 d& N% \2 Q6 b! K9 b+ Eset rs=nothing
conn.close
set conn=nothing
! K+ }( _/ J0 m% `- G4 E%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

* }' O; w9 \; ^0 P" N后台登陆处理程序例子:
0 a0 u% w) z  n' d# _0 d% Y<%
$ Q7 [- }" ?2 V0 J: udim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
( ^* h/ i) j* ?- `/ ]3 ^rs.open exec,conn
2 S# F2 e7 z5 x1 H$ {if not rs.eof then
rs.Close
conn.Close
7 g3 A; D4 r: C2 |1 ^session("checked")="yes"
6 ^5 g- H# t7 {session("check")="right"
! S! G! l" L% _! \response.Redirect "index.asp"
else
5 Q* ~! W0 s$ F' l: T0 Usession("checked")="no"
session("check")="wrong"
, z: N' q$ {( Jresponse.Redirect "login.asp"
; `8 B. q& A5 R& q' d" Xend if
%>

: U% t3 f8 h' K每个后台页面加上:
3 k3 P1 o3 r0 v4 L' x<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
) i& e4 D' P+ A7 m# r9 u7 wresponse.Redirect "login.asp"  
else
5 S( g$ O6 \  n3 o; v; i$ \%>