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

月中水

数据库连接：
/ p/ B; a& b5 s* s2 f5 t<%
0 g' e9 h& W8 j! ^/ D0 vset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% J/ ]' `! H' Y3 o3 K# F* E9 y8 }%>
; o( R2 }$ m! {3 X: }3 x
( K2 v' B) U. ~
- Z# c' E  ]6 M5 p打开数据库：
3 ]9 @5 A/ ?) Cexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
# l/ l9 I8 E7 E7 Nrs.open exec,conn,1,1
% H0 ?& ~+ }) I2 J参数1，1为读取
" a& y& e2 \! c( R0 V+ E9 ]7 w
$ l3 B7 \, p/ s9 c  J: ~读取内容格式：<%=rs("字段")%>
) z( N, C% Z9 A% N
% j8 g& C8 T; U7 T: g添加记录处理程序：
<%
* W# C$ B. v* }; @set conn=server.createobject("adodb.connection")
7 ~. F1 Y* e; P1 O0 Vconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ A1 W. K+ j2 Ename=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
& d* Y" D' D3 Q/ zexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
3 S7 R4 y9 L4 n- Y& b  S3 Iconn.execute exec  使用execute提交
' G6 q* s' O( F0 e  O7 y2 {conn.close
7 o3 D, T# K# L  B5 W, Wset conn=nothing
! q& p) Z4 A- ^4 }1 C%>

搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
- u2 g7 }3 {1 p& l5 W" qexec="select * from 表 where name='"+字段+"' and tel="+字段
" N5 \8 f, }* D4 M, t6 v8 wset rs=server.createobject("adodb.recordset")
2 D0 Y4 j4 I' R* ~$ R4 |  drs.open exec,conn,1,1
* r( c7 \% w, m" g7 ~+ ?%>
+ B- W* A1 J: f( ]1 V. J: x'页面搜索到的内容导出来
, [# G0 }; h! R' }$ Y<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
; F" S7 V4 Z" c$ F3 @8 \</tr>
<%
rs.movenext
loop
+ t9 q/ G" o5 A& A2 `%>
2 Y+ f  ]- B" f7 B  S9 I2 z
1 l7 t% _7 m$ O# a! ~4 `$ s# T删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) y" \! m+ I8 d9 r+ m$ ?, |3 oexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
& Y8 b/ n1 S4 v%>
* l9 |" r% m4 @4 K: T8 y. i, M

修改记录处理程序:
5 X3 Z( v0 z1 V- d$ G/ d<%
. u( ?4 L6 A1 I9 F% y8 Fset conn=server.createobject("adodb.connection")
% F* w/ V  L! p; m+ U( Econn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* i: t% X) \8 Yexec="select * from 表名 where 编号="&request.form("id")
7 }  [# Y9 q+ |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("字段")
rs("message")=request.form("字段")
  N9 n  s, q* T" @( Prs.update
rs.close
6 [" X4 V3 D0 W/ |( ]/ [2 L* Lset rs=nothing
conn.close
8 u; S1 Y# E" [- g+ jset conn=nothing
+ u+ l, A; Y) K- y# \+ {%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
) t& q; s4 P3 @3 ^$ w<%
. l5 F1 \5 i2 G8 i5 K- V8 jdim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
5 z1 f0 f1 J- f' Sexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
/ t- g& T4 y  W7 ?. S9 g8 I8 w8 Y$ r8 jconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
+ [1 i% c. `3 ~rs.Close
conn.Close
session("checked")="yes"
9 b0 C0 b/ Y  J& _# L& dsession("check")="right"
response.Redirect "index.asp"
, R4 V( o: K3 k8 Relse
5 d: b* u, Z4 t- f5 Dsession("checked")="no"
session("check")="wrong"
0 @/ D* {, r: h$ presponse.Redirect "login.asp"
* H7 u& R8 Q9 {2 [$ Nend if
4 j# y! z* k. u# H- M%>

每个后台页面加上:
: J: D, D- g. C3 u. C  ?<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
! ^6 l4 ?* o0 w8 h# P$ rresponse.Redirect "login.asp"  
else
%>