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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


打开数据库：
exec="select * from 数据库表"
  g+ C& h8 s( ]! pset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
! l* K# P0 N* ?" A6 T# ~4 h
9 W4 {1 ^5 ]7 _# I7 q1 T读取内容格式：<%=rs("字段")%>

# I4 i7 Z# f+ _: o3 g添加记录处理程序：
. Z/ g  H6 x9 K3 O' {" Y# y; a<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
+ [4 z7 I0 ]2 rexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
  @# y- ~/ |# K2 qconn.close
* k) _* `' X5 i# xset conn=nothing
2 A2 y; ], _* o%>

0 F5 D" J1 @" l6 S搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
) I# T: r7 `0 A: m5 ntel=request.form("字段")
, p  N$ y- ^% m- ^' fset conn=server.createobject("adodb.connection")
7 L+ `, b) }. S+ a% S  ?conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
# k$ W. Y  V) \rs.open exec,conn,1,1
7 X5 V" {( \+ o* i& ?" @1 Q; g%>
'页面搜索到的内容导出来
% \- [3 t0 s4 W<%
do while not rs.eof
/ f% F& |3 q: I0 {1 o" L+ u%><tr>
( U9 K, G1 S8 f: z' @7 l2 ?<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
1 z3 N* B$ e6 U8 l5 \6 v$ I" E2 x</tr>
<%
! S3 [8 ?5 Z, c) o; F7 C* T( r9 |, Z* krs.movenext
loop
3 R. y/ J5 M' g0 |7 N1 ^%>

1 Z1 G# S: V9 s4 u- D' C删除记录处理程序:
: `- w9 Z% M4 T) P0 T+ g<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; ~, H+ l/ J, g+ a" y( dexec="delete * from 表名 where 编号="&request.form("id")
& A5 |# \& M& ]conn.execute exec
%>

5 D& D! D3 U$ e5 n: ~
1 l7 C$ ]( s2 Q$ s! |$ P修改记录处理程序:
) G; _2 d/ o3 B/ N3 t# ^8 B7 t<%
set conn=server.createobject("adodb.connection")
. D9 f3 f6 p) v. ]conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
- Q1 {4 e, }/ V% C) Nset rs=server.createobject("adodb.recordset")
$ x; Q& u# B) Jrs.open exec,conn,1,3  '1,3为修改意思
8 g6 P# m9 s0 l2 b- A4 w' q/ mrs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
' A" [. r7 w2 @: A$ Drs("tel")=request.form("字段")
+ @2 H; n4 Q0 [rs("message")=request.form("字段")
rs.update
3 {0 Q1 A9 ^5 F5 rrs.close
$ O/ |$ h' w7 V) |set rs=nothing
7 Y2 l3 N1 C+ s& G* k9 c8 d6 }! Qconn.close
7 Q4 d9 C6 n1 hset conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
% E) W8 [9 N+ H! N7 s) T/ U5 q# i
后台登陆处理程序例子:
<%
dim name,password
name=request.form("name")
3 @$ H% d" e4 T7 V) A% C! r! Q" Ipassword=request.form("password")
dim exec,conn,rs
exec="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
conn.Close
6 ~; {2 c5 t. Q. L2 o/ _& Bsession("checked")="yes"
3 f  A: f. m* L& p2 asession("check")="right"
: i; z# Z7 B% I2 z/ y3 K3 \, J# x6 Yresponse.Redirect "index.asp"
9 e; q# ]" V. J5 o; p' gelse
2 }  _# J, \, h* V+ Usession("checked")="no"
! ]' _: S. B$ |  J- H1 y7 psession("check")="wrong"
; _8 o$ |! V4 A8 C: dresponse.Redirect "login.asp"
end if
%>
7 p, a' S* y' N, V: B; b
每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>