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

月中水

数据库连接：
( f4 ~  i  E! `! H; Z<%
: ~: H3 |; Y7 r: j( sset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

2 H! h- B1 e( b& m  g
打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
* K& d, h8 P( {' v" P/ ?4 M7 ]
读取内容格式：<%=rs("字段")%>

添加记录处理程序：
9 {; d/ `; S; z1 q. t/ i. Q$ \3 e<%
set conn=server.createobject("adodb.connection")
0 j8 K) U1 s" u$ `, P( T' a: Econn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
9 O  W2 {" Q; d0 k; umessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
& U- h) q8 H; o/ F) e3 p5 @- G6 Lconn.execute exec  使用execute提交
conn.close
* c) Q' Y" Y% T. K; }3 _" E+ V5 uset conn=nothing
%>
% Y; b8 H% C8 C4 ^
搜索处理程序:
- ]+ `1 y+ f8 |1 T% y) v; d. d<%
name=request.form("字段") name,tel为提交表单所设置的字段值
, I: r' l2 N2 Btel=request.form("字段")
3 ^8 {6 w. w7 Pset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 L2 ]5 c# ^% K9 sexec="select * from 表 where name='"+字段+"' and tel="+字段
- N  f6 `: g# X5 D% \6 x5 bset rs=server.createobject("adodb.recordset")
/ w" H1 A; }, P8 vrs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
<%
do while not rs.eof
& X' U# V& @8 M%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
/ t% o4 j2 D4 `( K: C</tr>
<%
$ P0 g( p9 O8 W4 Y$ \( ?7 W& Grs.movenext
loop
%>

删除记录处理程序:
* ^% \: a5 _! A; X# P<%
1 O' Z5 w; I7 K* eset conn=server.createobject("adodb.connection")
1 R" t& x1 @: |# @$ k8 q* E8 b3 bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
3 F5 H, P7 ^, T( h%>
9 f+ Z7 ~2 L+ z& l& i

修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
4 V2 c7 V9 k0 D7 E% w: v' ?conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
! \& c8 D. ~/ H" Xset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
/ y5 B1 r/ y7 d+ s- Drs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
# z9 o, m) S+ t  b) r* Grs("tel")=request.form("字段")
1 [/ k* l9 _! y9 L1 C: q6 qrs("message")=request.form("字段")
5 F! C" ^# M1 }  F+ Mrs.update
rs.close
7 n' u4 z1 M6 \" yset rs=nothing
9 M2 r6 E% ], `2 K2 S4 p! n3 rconn.close
+ o4 p' s5 x# uset conn=nothing
%>
: X, _1 Y. R5 J4 w6 X修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
+ _6 Q3 Z" o: j1 w9 Z/ K
后台登陆处理程序例子:
9 w  Y* n% M* }0 E  C<%
7 M& `# M& Y. Q: d8 z7 gdim name,password
! W2 q$ Z; h8 A$ v- zname=request.form("name")
password=request.form("password")
( \& M( U* U* H" D  b2 [" Pdim exec,conn,rs
, {0 R+ S+ Z7 ^# m5 v8 lexec="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")
rs.open exec,conn
if not rs.eof then
rs.Close
) l% e1 f& x/ \conn.Close
& S" _9 i$ w' I/ j. c2 D& h% M6 C- Csession("checked")="yes"
1 |5 Z7 |& M+ |" y/ Wsession("check")="right"
" X' ]7 u/ d; Tresponse.Redirect "index.asp"
else
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
0 \/ b/ f. P: L  Z( Z- _7 C# lend if
%>
. s1 q, \, B# \: S6 U7 {: Y
每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>