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

月中水

数据库连接：
. w3 }, j1 v3 S- r' E<%
set conn=server.createobject("adodb.connection")
% \  m5 }2 q4 j$ U( a' @, y5 Wconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

% u. A( a  k; t8 L
打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
4 P% {1 [& N! W/ I+ ors.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>

添加记录处理程序：
  B" w7 v# f* V/ Z<%
set conn=server.createobject("adodb.connection")
( X' Z5 `3 F0 @6 iconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 e& r  g" ]' m) x: w: N) yname=request.form("字段")  name,tel,message为提交表单所设置的字段值
: ^0 D0 i* X9 F% D" Ltel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
. Z$ b* X1 _  k' |- A  vconn.close
set conn=nothing
9 }5 c  R% J! S, m" S; S%>
) {' g. C( \/ r0 \, k
. y! R* F% P3 Q$ q0 o搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
" I  W3 D/ N/ oset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
- m: [- V/ S: R$ E& P4 bexec="select * from 表 where name='"+字段+"' and tel="+字段
! y( L+ @1 A2 h; Kset rs=server.createobject("adodb.recordset")
5 N% r2 N* x8 j7 Ors.open exec,conn,1,1
- H' O) p2 `1 _9 x% f5 `1 |: V, s%>
8 @/ r; Q. Q+ m6 L'页面搜索到的内容导出来
4 l% ~: E0 a* z1 |) B. o2 Z# G( ]<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
<%
rs.movenext
loop
%>

删除记录处理程序:
) l/ R4 F0 c8 ]* R<%
set conn=server.createobject("adodb.connection")
4 ]2 q: {; v* cconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; A' X. A; K( ^+ bexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>
5 h9 z( G" P1 C8 \- I+ l& }

修改记录处理程序:
<%
set 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")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
: s5 Q# w8 e: w2 h5 urs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
' e$ r% O8 P  f2 G! S0 g5 A2 a: Hset rs=nothing
  L6 V2 I& T$ |! s4 \; Lconn.close
set conn=nothing
! T2 K( c6 S, `( `7 U9 E%>
& }1 x$ t, m7 z. S& q修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
8 D: E. F( r2 V9 ]1 w' h: ~
后台登陆处理程序例子:
<%
dim name,password
3 d! ]1 Z+ {8 m4 c0 q4 Q+ Gname=request.form("name")
password=request.form("password")
1 Q6 y. I* l- M3 j% Q) t3 Rdim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
# E: ]( y. m% A4 xconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& y# ^' j% |7 n* ]  P" [8 @set rs=server.createobject("adodb.recordset")
1 ~6 Z0 _: `2 Xrs.open exec,conn
% \) P6 ?! }7 w( Y8 g1 {. j# K$ J' Vif not rs.eof then
  T- z2 C9 s  b, G3 J* |rs.Close
conn.Close
session("checked")="yes"
7 F" C* |! }/ X3 o8 Q# m/ Y$ ]2 jsession("check")="right"
8 @' N; p/ {4 H  Cresponse.Redirect "index.asp"
+ J2 J3 E0 f" T! c: t' ^" Nelse
session("checked")="no"
3 o  {1 k& l! L$ Y& o, n: Z  l- Tsession("check")="wrong"
' V+ |* A+ S. g7 ~response.Redirect "login.asp"
end if
+ u4 E, P5 L  R' D: N" u) w%>
. A! F' i* r1 r( a
3 a  w, a7 Y4 S( |7 `$ k每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
! }3 M/ p7 X3 K9 e+ W, Uresponse.Redirect "login.asp"  
3 v/ k) N0 K" F8 v& x& a& g# B8 i$ [7 Aelse
%>