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

月中水

数据库连接：
4 L; {5 M# K  H) x: f1 m& b<%
; h  v) u5 }7 f' w2 {set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 A6 [$ \& P+ x, B+ ]%>

# m9 m" R; k' _7 Z6 K' j
' ~  F# U! u* g7 V% f打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
3 R+ n/ e) C. m2 S8 j
, a7 D2 n( r+ \& D, B2 E% R$ i3 d读取内容格式：<%=rs("字段")%>

添加记录处理程序：
<%
, w& s4 z: L% P& p7 `# b/ Fset 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("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
' [: D7 P- ~4 b! [/ Zset conn=nothing
$ Q; m3 j+ Z' V7 P. T' f%>
9 l; o2 l. T3 E, d. L
+ F0 Q+ r& J# ]5 K; L搜索处理程序:
: v3 z6 A3 C6 V( u1 X2 d5 I: L<%
- Z1 m$ G* n8 I/ wname=request.form("字段") name,tel为提交表单所设置的字段值
2 {! U3 j( C8 {; F" _tel=request.form("字段")
set conn=server.createobject("adodb.connection")
0 u8 t* O% E8 Bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
: @1 }9 a" ~4 K2 ?rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
" b; D7 Y2 i7 U& b) G<%
* b" K0 r& p) j  G/ s) vdo while not rs.eof
/ `' V) Q# f5 v! A/ d% J%><tr>
<td><%=rs("name")%></td>
' f' n: U, S6 ^( {* m% z* Z: G<td><%=rs("tel")%></td>
; p7 [( {! a9 c( H<td><%=rs("time")%></td>
</tr>
* w9 m8 b5 C" O; p, u* x<%
rs.movenext
& r! I; z9 R; S4 aloop
%>
$ ?+ d2 A- L# y8 ]& t: u
删除记录处理程序:
<%
" p( d, n' N0 L% V8 i" ]set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 ^4 I. m# w7 Q4 B7 i) T8 ?+ Nexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>

5 D* u1 j5 D, a9 {, _/ L9 i1 ~% ?
7 E4 S  k, o7 f  u修改记录处理程序:
3 F% K& C* L0 G3 s: S( @<%
set conn=server.createobject("adodb.connection")
* Q$ x$ b+ @, }: b2 x. Bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
; L; O- X7 V: U  b, Eset rs=server.createobject("adodb.recordset")
! r( s# n; |% E0 Grs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
+ P' u  m0 v, T# T: r- crs("tel")=request.form("字段")
6 o+ p6 F$ \4 ]rs("message")=request.form("字段")
rs.update
2 k8 B3 P; Z% I: U: N" crs.close
& c9 N3 |9 J6 G3 Z5 Xset rs=nothing
4 _5 q2 m4 [. _; [3 n4 g# {0 p; }" |conn.close
  n; ^% {  c4 G" f( X8 Z" X9 t' X4 v# qset conn=nothing
%>
& s" ^. m# L6 |" }$ B修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
* v2 q/ y. x. Y4 ]& x' ]2 A. c
3 I. c! a# z( a后台登陆处理程序例子:
) }1 M$ U& Z* P  p0 q) V  ~<%
dim name,password
name=request.form("name")
7 C( G% f0 y, h* i8 Y0 Y* c# vpassword=request.form("password")
5 g$ P6 l8 p# g5 ?0 @3 F- N# T. ldim exec,conn,rs
3 t% O7 g; r% }, bexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
+ \, c( X* ]4 X( Q4 Y) P6 wconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 ]: }$ n5 t( gset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
2 z4 ]- ]4 ?  o6 g- C1 J0 \7 kconn.Close
% q- A+ w5 d4 I" {, ]session("checked")="yes"
! G0 p- J! [; G2 ~1 Isession("check")="right"
5 H0 L9 d# y" z2 E7 vresponse.Redirect "index.asp"
+ L& ~% C8 [- s7 U3 X3 c' D0 L8 ^else
$ X$ N; _8 h! _* Fsession("checked")="no"
8 ~' \. C* |& N4 p, Bsession("check")="wrong"
response.Redirect "login.asp"
# _: w/ f2 E$ `3 Fend if
%>

- z3 I- q. y4 ?每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
0 A% j2 Y6 L: ]: xresponse.Redirect "login.asp"  
else
%>