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

月中水

数据库连接：
- J5 ?# H/ a0 H+ h$ p$ O<%
/ n2 O! T2 L. A  Y% Y, vset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 p) n* C. Q8 `%>


$ m+ T: _: B) h打开数据库：
) Y$ ]! t: L  q  {; E# U' }% lexec="select * from 数据库表"
, M; ^. M8 v) e/ B9 @) Iset rs=server.createobject("adodb.recordset")
9 J* H. v' S6 `) W1 e# ors.open exec,conn,1,1
参数1，1为读取

1 t5 R$ v4 ]  r读取内容格式：<%=rs("字段")%>

% y! Y  j/ L- V" [添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ i2 F1 L& I; Y0 sname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
' i# y/ T  }0 ~, b: {2 xmessage=request.form("字段")
' Z2 @, l, r" C  n1 z5 uexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
set conn=nothing
5 Y( H1 h6 z: W: r1 X: ~. a, C%>
) k, c- E0 A: s" K) ?
搜索处理程序:
* H8 k5 j2 D3 R0 O6 |0 [9 z<%
name=request.form("字段") name,tel为提交表单所设置的字段值
1 ?, C% A- e! Wtel=request.form("字段")
6 x+ N& s* W1 d  v5 f% N* l! o! tset conn=server.createobject("adodb.connection")
& f1 Y7 j3 P* V' P) e% K' Econn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
1 E9 O3 b5 Z) b7 \9 c0 G2 xset rs=server.createobject("adodb.recordset")
8 d& n8 Y& G* T2 {0 K1 H$ E% Frs.open exec,conn,1,1
0 D' u, h7 @2 s+ T, R%>
6 V" Y+ M* o& W7 k6 m'页面搜索到的内容导出来
<%
/ Y7 \& r+ j* bdo while not rs.eof
%><tr>
$ Q5 ]( n9 v8 p<td><%=rs("name")%></td>
, L; N  S! v( c  a8 k. ]+ Z- U<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
  Q+ P; O% N( E9 w  y( [<%
rs.movenext
5 _5 G9 `. x$ z0 ~loop
$ M8 ~( T0 \" q% N2 R: g%>

删除记录处理程序:
. i1 v- _; F3 s; V  j1 |<%
+ S) J$ q1 H2 _& r# [set conn=server.createobject("adodb.connection")
  S/ g; d' `7 p% Xconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
4 x+ T! V; a8 h9 {- w. Rconn.execute exec
%>
( ]% s8 G2 }8 E: S- B8 _6 u; n- D2 G

% Q: |& c. A% \- s8 {修改记录处理程序:
<%
: z% p- N& e0 O& M1 V. W. h. Kset conn=server.createobject("adodb.connection")
  M) F0 Y2 m4 r: z2 Xconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
) T& v) k5 [0 G' X- Xrs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
$ Q6 T2 m6 ~# ^- H2 f6 Ers("tel")=request.form("字段")
1 Q! c1 i) ]+ _% H4 H- v8 Yrs("message")=request.form("字段")
rs.update
. b( a  D5 K! Trs.close
$ y( z- I! t7 Z& W1 L7 C) {. Y3 rset rs=nothing
+ `; V- Y+ k; g2 L8 F  r/ Dconn.close
set conn=nothing
* v7 y& d8 U( e9 t5 @# z9 B3 ^6 B%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
<%
2 J9 b% ]6 p, z0 bdim name,password
name=request.form("name")
1 L$ [4 W6 {6 `6 y" p+ O2 y6 {6 bpassword=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
$ Q# P% a: Q8 A) Bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ y$ h- O' W/ x0 Zset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
" c  L" b$ `9 W. M+ z1 c# }conn.Close
session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
5 p7 f3 N9 c% [else
. h, h8 q" C. G# j4 q# Dsession("checked")="no"
) A( N  O) S/ T9 T/ i$ h5 U$ b! ssession("check")="wrong"
0 b9 `& ^- @: S0 J4 n- kresponse.Redirect "login.asp"
end if
# d7 a3 u0 z, r; J%>

: u0 V7 B# `, e/ j" x; F每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
+ V9 t, X; l2 S: r3 s%>