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

月中水

数据库连接：
. p% Q$ b. N% |6 ]! g<%
. K$ ^6 j4 v: |5 ]+ t5 b! I3 Dset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# ?2 Y# p( G/ a9 z: g%>
2 s9 A; G: }' z6 C) x
: B) G4 k# e& k
打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
: Q, z# P( P! m% P- {rs.open exec,conn,1,1
1 I# N9 Q3 T) ?. A参数1，1为读取
5 J9 ]: K) A6 [1 z. q
读取内容格式：<%=rs("字段")%>

添加记录处理程序：
5 Y9 F% \: k) x1 q- O: ~8 W<%
set conn=server.createobject("adodb.connection")
4 w9 r7 m4 b& @0 g) Gconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ [3 u3 {: U' b: ]name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
' h, T; L' K& hmessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
set conn=nothing
! G. @) x  T0 s/ v2 ~%>
5 c1 `! i  {  _
搜索处理程序:
0 s0 p8 K7 `+ i9 g6 d" X+ x: t! i: m( w<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
8 q' f  _- M  r* u2 v" Econn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ }3 C4 ]: }0 ^( ~" t2 O; Zexec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
1 M. }) n' ?! u  _. A+ ]rs.open exec,conn,1,1
%>
- S' b4 Z+ t6 X; r. a, l* G1 M7 @' h'页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
# ^+ `* I5 E+ M+ C<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
4 ?2 F) N2 F* z! Y, }1 W& i$ q4 d<%
rs.movenext
1 R, r$ c/ S4 \loop
+ @) f/ v5 M- B% r%>
5 y' b/ v% |8 S+ h' h/ e1 _
删除记录处理程序:
1 @# x/ S6 }  ~1 F1 j! j4 ?! B, e<%
set conn=server.createobject("adodb.connection")
. B) `( B/ X" Qconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 Y! W! s! \* d. C0 u6 L6 J1 U5 ^exec="delete * from 表名 where 编号="&request.form("id")
6 @7 C1 _$ ~% ]+ c2 F  u7 @0 q" S# q( vconn.execute exec
%>

& F# O3 Y1 Q4 x( _; E' L2 M4 W
修改记录处理程序:
) j$ {3 _1 v1 w( q<%
' H* P, {- f: Vset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
' L7 r- h7 ~# F& @5 ]) E1 urs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
) X9 n% {8 w' z% N0 [set rs=nothing
! Q) D! K' e2 z( }! ?& o/ \2 zconn.close
set conn=nothing
$ v4 U$ |& @& x" L3 Q. E1 `' T%>
1 v* F) _; N! o  W) f! ^2 O; p修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
+ `7 ~  q3 z) }9 k6 q' G! T
后台登陆处理程序例子:
<%
dim name,password
( z3 m7 A. B/ p2 L8 Q: ]; ename=request.form("name")
! ]& P* g  V) spassword=request.form("password")
- c2 Y2 X* q2 t4 r3 jdim 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("数据库名")
8 _8 p. ^0 Q; j' n* c- Xset rs=server.createobject("adodb.recordset")
rs.open exec,conn
% ]1 |$ a2 ~9 }) d/ Oif not rs.eof then
rs.Close
conn.Close
; E2 J2 @; F& U# {8 w/ j  wsession("checked")="yes"
session("check")="right"
1 |7 f# c1 \% a( @; Cresponse.Redirect "index.asp"
/ t! L6 F: _' @2 G% [- k; Q2 Pelse
session("checked")="no"
( I) y; t, S& \# u$ E8 Ksession("check")="wrong"
response.Redirect "login.asp"
) M) f" @' r) A$ W4 P1 dend if
%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
" i! b7 J% g# v) `. Presponse.Redirect "login.asp"  
& @6 e7 e% e7 Q# U5 q0 |else
%>