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

月中水

数据库连接：
& T) z/ {. J3 D: p) l2 w* m" h7 j# |<%
/ w5 [$ v: q- ~$ M( C" q, N  _set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

9 J0 _# N6 C, m
打开数据库：
exec="select * from 数据库表"
  j0 M$ B* d9 [6 G) s) Sset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>

添加记录处理程序：
8 ^- {9 ~! }1 \1 @<%
set conn=server.createobject("adodb.connection")
6 q( M6 K! E# ^7 Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
( C; B% o% N5 V8 ~/ T6 Otel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
% o7 G4 s( `* F' Hconn.execute exec  使用execute提交
- a$ Y# |( q0 P0 u  Aconn.close
set conn=nothing
%>
, j9 ~$ V0 L6 G; r) `- ]
6 W6 f" L  S' P; F2 T4 |搜索处理程序:
( W' G2 @, H- t* J5 }/ }. ]" k<%
* I: A5 ?' a( M, \9 e& o; Q& bname=request.form("字段") name,tel为提交表单所设置的字段值
" n5 j5 p& p8 ~; n. y3 H2 ~) J* ptel=request.form("字段")
/ d  J3 `" U0 k) uset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 @5 |: r: F' z9 b# sexec="select * from 表 where name='"+字段+"' and tel="+字段
0 Q0 s1 }! W& X' A& `3 Wset rs=server.createobject("adodb.recordset")
& ]; ~: Z; m7 m; S! V) Xrs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
/ S7 s( G4 H* x0 _: K5 ~8 g<%
# n& j4 l+ E: a( i6 b: e1 [5 Pdo while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
' @6 b  ^; \4 Y, B" M% z' k</tr>
<%
rs.movenext
( t) ^' ?( Q( E' C# uloop
%>

删除记录处理程序:
<%
. i. I1 U' e2 w0 d. K9 _( iset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 E$ i- Z2 T: gexec="delete * from 表名 where 编号="&request.form("id")
3 P+ S$ `( t7 kconn.execute exec
%>

( c6 m/ L7 r$ t! J
修改记录处理程序:
<%
) d( @. W1 F7 }5 G/ W/ W7 a$ W. Lset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
/ u0 `" s4 _/ F3 [5 E6 vset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
! O. F% n+ r5 R' D# d# Q& vrs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
5 W2 Z6 Y2 `* A& e9 T" lrs.update
rs.close
1 b% b, L& e# @6 N7 y1 a" [7 [set rs=nothing
conn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

8 N$ }; r4 @! k- Q9 R' Q+ ?; X2 d后台登陆处理程序例子:
* ^: B5 Q' y  N/ x<%
dim name,password
name=request.form("name")
: f4 I4 e: c: X) I; |password=request.form("password")
9 ?) z2 h; w# Q& V: \7 cdim exec,conn,rs
: c6 ~. Q( u$ rexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
# |# q+ U5 A: L- }8 oset conn=server.createobject("adodb.connection")
4 F3 p. z8 O& E3 ]: a5 q# T' Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* ^) s7 l2 T' @" X& }set rs=server.createobject("adodb.recordset")
6 D+ a: j' J; s; Z3 Xrs.open exec,conn
3 g/ U4 E" X- U/ X( yif not rs.eof then
$ S( h/ ?0 b7 Yrs.Close
conn.Close
session("checked")="yes"
session("check")="right"
# s) ?: A4 V$ v1 m; W' J, _$ V! wresponse.Redirect "index.asp"
( m2 [) I7 H* c- ^* x2 {, zelse
session("checked")="no"
session("check")="wrong"
7 r; W( E2 t  l$ ?) d2 z8 U8 mresponse.Redirect "login.asp"
, x4 n) T1 G) z% Fend if
: M. T" n! W* _/ J" T5 Z0 s%>
) o# x* o7 l) b2 s6 Z2 k8 a
" [( u4 I2 n: ^4 u6 f每个后台页面加上:
" r0 H3 i: X1 f/ n, e<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>