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

月中水

数据库连接：
<%
* M4 C" B5 N' n( H6 x1 w2 wset conn=server.createobject("adodb.connection")
2 N* _. Y, S1 C2 l) f" |. oconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ Q/ W6 j2 O6 J9 X$ F# ^. c* K%>
& f6 H) |# m6 G

打开数据库：
3 O4 X9 k$ c1 Vexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
; a9 A8 ~6 C: f% G- Mrs.open exec,conn,1,1
参数1，1为读取

4 ?0 o/ O! J) Y0 t5 H( q6 I# m读取内容格式：<%=rs("字段")%>
+ b9 ?7 U! I6 M
) u6 c9 M8 E$ y7 J添加记录处理程序：
<%
7 R. g9 t- W: Z) K7 V; Eset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
5 r: f) [( S& V1 G; y9 |/ d; S. ]message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
! }& d  c7 a5 i7 V9 e. mconn.execute exec  使用execute提交
7 y) G* ?% t" n/ Y  _conn.close
set conn=nothing
5 n2 R) I) e5 j( C2 x7 Y%>
4 w8 r8 z2 a" Q* J. }! y
0 s. A) ^9 m& ]3 e5 ~搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
4 \3 a1 q; {& V0 {0 G7 Cset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
. e- c# d8 s( `7 O4 f%>
4 ~3 U# E1 F6 M$ J7 i9 Q'页面搜索到的内容导出来
5 x) u4 n7 I3 @<%
8 }! p- A4 @2 H! l0 ^% v! x; wdo while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
0 `7 [, E/ t- p0 `<td><%=rs("time")%></td>
, m$ c. Y* M* Z1 S</tr>
$ \0 s: \% Y" h+ `<%
* g- s- j9 K4 _9 D5 j2 ]* G$ P; m% H- nrs.movenext
/ c+ x0 a& N8 U% x* Vloop
1 S5 S/ R2 n) @, [& @%>
3 |% m- s8 y) t7 L' P+ b5 z) T- k6 v
删除记录处理程序:
2 d  ~1 d8 ^3 ^# c<%
% m( ~# N  S$ t1 ^. s! K* G* Fset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
- {# |- x1 h' p" C0 W1 i%>

" |# X2 ^9 q' |
修改记录处理程序:
! @1 D. \: }0 v& p" a. t<%
# K8 A9 J# B" h4 cset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; N3 I* l9 ~& Z. U! K3 zexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
; [8 v( g/ ^- C* X3 k& krs("message")=request.form("字段")
rs.update
) {) G# {! k# Z( _' N$ R: n- Jrs.close
set rs=nothing
" {; H6 r" @8 d$ ?8 i3 s# o$ a- Lconn.close
- s& h. h# ^& n. f2 g3 nset conn=nothing
( W  f- p7 b8 x$ h! x%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
2 V& y5 \1 Q2 D0 ~& Q6 _
7 ^  G: N% N; t后台登陆处理程序例子:
4 G7 Q& b! u1 _7 P<%
' F. l8 s( g7 C2 H3 zdim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
3 D& J: B: j- Q! p9 e0 ^exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
( H; ~  C% c9 Q# P& e. \' U% Uset conn=server.createobject("adodb.connection")
% I" o' V, k% b. y3 Q. Z& a* c4 Oconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
; y6 ?& R/ Z. ?rs.open exec,conn
2 T. o4 O0 p9 Cif not rs.eof then
rs.Close
8 v2 p3 x# p2 J! U, @1 Qconn.Close
& e9 v  t0 y, `1 psession("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
else
7 u* W8 O. p" U5 v/ p( tsession("checked")="no"
. d( s- R; w) v. ?session("check")="wrong"
4 i- J* q' q. X) }0 rresponse.Redirect "login.asp"
end if
1 P# a4 N- q; s$ K# A) \%>
& o% y$ u- _6 t
每个后台页面加上:
' @' F  O7 B* j; p- r<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
8 a8 \7 O1 J0 s+ X8 }else
%>