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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) ]6 I+ V9 [6 `%>
9 J! f! I! o# p" }9 D
; Q# D3 \6 \! g$ S/ D6 h2 ~
! U% u* T9 F, N( K7 X打开数据库：
1 i, _7 ?0 [) Z( e% B- {exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

7 u% X: x1 b% o读取内容格式：<%=rs("字段")%>

, W8 p7 j7 o9 W* a1 N* s添加记录处理程序：
2 W8 @7 m, Z# m4 `9 I9 F& p<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( j4 ^; q2 \. c' U. \- Cname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
' h( S" Y  U3 `exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
7 F6 b( f; \7 Dconn.execute exec  使用execute提交
conn.close
set conn=nothing
%>

, N8 O7 \) v4 E& K搜索处理程序:
2 _  M: l. n' l# l6 y) ]2 r<%
name=request.form("字段") name,tel为提交表单所设置的字段值
# W: R& U) C$ p: U0 Atel=request.form("字段")
set conn=server.createobject("adodb.connection")
! y( K) o# @* T! V0 U( a0 }conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
<%
7 u7 x8 e1 [  |+ r2 g/ Rdo while not rs.eof
! C0 b0 Q7 r2 V" K" n& z( {" L%><tr>
<td><%=rs("name")%></td>
+ D$ y' o! O8 J8 ~<td><%=rs("tel")%></td>
6 [! T2 z' A6 |) L/ D<td><%=rs("time")%></td>
: P; }! B4 u7 r& z- p</tr>
1 n" a/ ?! b$ ]  N+ v<%
" a: L7 E& `' v5 ^8 wrs.movenext
loop
%>
  r0 }2 D. O. v1 F% v# j3 L. h
删除记录处理程序:
# n" X" y% x8 E8 l7 L<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
- X% D4 {1 H% G( a/ O: A6 kconn.execute exec
* A/ x3 x# ~( s/ G%>
- B! ?  e$ p0 @. t

修改记录处理程序:
<%
9 b# B3 W$ T( M" Vset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
+ K  N9 t- c& [3 V# ]+ q& p' E+ v2 E. zset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
7 U7 x1 i1 q5 d4 l* B3 \rs.update
rs.close
; _0 a, R# j# X9 @0 Oset rs=nothing
6 q! h, g& h( |9 }conn.close
set conn=nothing
%>
4 J& F- t6 j) Q- C" n修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
" y# m4 g' j# q$ B; i; i
后台登陆处理程序例子:
<%
! q7 h! [: o. v5 adim name,password
" ^4 l, t, {3 h: O# Xname=request.form("name")
/ ?% i& I! B7 ppassword=request.form("password")
dim exec,conn,rs
, s1 |- l' g' T9 ]/ m9 cexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
0 X, n9 |$ `' I5 Bset conn=server.createobject("adodb.connection")
  d) N  b& L5 j9 t' R2 b. hconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
6 ~% p- s8 [4 X8 o' Irs.open exec,conn
" V1 O& x: c$ X7 v" g0 kif not rs.eof then
$ r; J/ g7 B0 X, hrs.Close
7 F% ~/ \/ f' l5 L) \( aconn.Close
0 B" g% M# Z. L4 `' v4 |session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
7 z9 v+ h/ s. j4 a) h, q  kelse
. i. z1 D2 ]9 q' |4 l7 Asession("checked")="no"
- N2 e2 X- h7 s8 A9 ?session("check")="wrong"
+ u+ ^9 c# _8 b; cresponse.Redirect "login.asp"
, [0 R! f6 t7 B0 i# i9 o3 z! Uend if
%>
& [& |! {  U) u. e
; H6 e+ z; f) h4 N+ V  k( Q每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
/ q. j4 y; q" e' C. q% e7 Welse
) H4 Y: G2 g6 O! l* a%>