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

月中水

数据库连接：
3 I( a2 r" o8 O3 p: u<%
. N: Z, G! j! h; Tset conn=server.createobject("adodb.connection")
, }* ?' v+ f8 P# g) ~4 E" {: kconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>
) Q2 v  n% w) J! `5 E! F7 t1 y

/ q. v: |0 [& x/ a" o  u; ?打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
9 Z) {. G2 g( [& X$ ^1 c& O2 _* _
) r/ e5 J/ X, ], n, g读取内容格式：<%=rs("字段")%>
, a7 Q! z6 b- R* L% p' S
' T7 d; p* ]0 F; X. M& A$ W添加记录处理程序：
  `% e1 `/ I& X3 k<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; |* e, _) s/ R9 f8 c% ]name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
- I6 d( i( ^& y4 Dmessage=request.form("字段")
0 S. E" v4 y9 x) C! Kexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
, K4 p- J" N+ n; I1 U# f8 yset conn=nothing
) O+ h$ n: c. g/ L%>
- S- e; o' {! d% W$ c
搜索处理程序:
! J5 e2 n9 L. O" W<%
8 @- ^9 ]0 S3 N& hname=request.form("字段") name,tel为提交表单所设置的字段值
8 V3 g9 W  R7 L, G  B" e2 ^tel=request.form("字段")
5 Q* R9 T2 _# j8 Yset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! ]- q  r2 Y5 g% n- k; oexec="select * from 表 where name='"+字段+"' and tel="+字段
% \: a) f# o8 J1 p. [, Lset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
<%
do while not rs.eof
8 B; [6 \( m0 _, T%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
7 L3 x4 l; j. d0 o  G) l2 z</tr>
3 w( z, U- S: J4 h: n5 i  |<%
4 y  B: ?, y( h9 I% e( brs.movenext
loop
%>

删除记录处理程序:
! g; U+ Y8 f$ x" f' ~<%
/ x$ X4 J7 t* y. {- c. G3 x' Sset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
, N7 A9 k: C& B7 @: n4 kconn.execute exec
%>
8 A* n- r: L' y: N% ]
: u$ q1 i- ~, ^* m+ m
1 j/ Y* W/ D* s* ?) o% C修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. P: P/ |7 A. M* L4 j4 P0 sexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
3 |* M6 t" J6 M1 l. Ers.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
3 A" @: X* P7 u$ v, w7 v! O9 Ors("tel")=request.form("字段")
3 r; {: a9 L% U" \! f5 @rs("message")=request.form("字段")
' W1 a& c" z' }6 y8 K1 a* c! Drs.update
rs.close
set rs=nothing
conn.close
) X2 k. e% t, K, V1 ]set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
9 }+ V) k# [' X
后台登陆处理程序例子:
" B. `8 i) c$ D2 f<%
  ?7 r. l; ]1 E( ?$ H; Odim name,password
name=request.form("name")
9 I! P# t" X( ?password=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
! Y, m. ~# b+ W4 Oset conn=server.createobject("adodb.connection")
0 v, d/ |# h+ u) h2 q; P/ h4 Nconn.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
conn.Close
session("checked")="yes"
session("check")="right"
) q6 C' o4 y' N" C+ }response.Redirect "index.asp"
else
/ b( b4 @8 d; Dsession("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
; n- H. W/ J5 k3 Y# d; B* k- nelse
%>