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

月中水

数据库连接：
* e7 ^+ l& o$ w3 u<%
5 y. ?1 E" b# O: d/ mset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


  n- x$ B* S& `1 v打开数据库：
( t( f; q3 {0 e" M" d# z- Y; Sexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
5 d. H( `; g- N) Q4 z* w参数1，1为读取

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

添加记录处理程序：
' f5 y2 q: N; \2 e<%
, g1 J1 h. ~1 v5 D9 s/ ^/ aset conn=server.createobject("adodb.connection")
5 E) M% S* A! z+ Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 @: }7 ^$ g8 x" r" q: Sname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
( ?& j( S. k/ nexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
& n9 k; F5 y/ sconn.close
set conn=nothing
% |# ]0 P. H5 J) B%>
, L) I* W% O1 U
搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
/ b+ e( W/ h) T. B' Htel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 u8 \5 Z+ C, }3 _' t2 q; Oexec="select * from 表 where name='"+字段+"' and tel="+字段
: q6 U$ }" o7 b- v) z2 Dset rs=server.createobject("adodb.recordset")
# ^. @7 f! `( O5 krs.open exec,conn,1,1
; r# r0 ?( j' L9 L- I%>
'页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
+ m2 L& T5 @2 Z% k6 u+ s<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
$ O) Q; j2 m6 t9 c* O! J<td><%=rs("time")%></td>
* y1 N8 ], }; P4 Q1 W, ~' k  n</tr>
; E7 x6 z" z4 u: Q2 H, V<%
) o" {8 N* s* z0 M: b$ q8 Trs.movenext
! R/ ~' e4 L2 O8 O7 nloop
%>

删除记录处理程序:
2 x' w8 s0 e  K) o! d<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" ]. |  c: w! D; P$ X* Z+ i# texec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>
  w3 T4 W7 I4 u7 I1 O. A1 I
6 ?9 L9 v% z& z, U. G  @: `3 |  i$ j
修改记录处理程序:
<%
! c# I, ]4 J: o$ Z7 p7 i% Dset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
' l0 C- W7 ]# _# Q! n' M, ^+ Wset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
5 z& i: \0 z/ ?6 n' u* B: mrs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
5 H' H! n5 V: Y5 \/ m7 d1 \rs("message")=request.form("字段")
$ {4 q" h& P! f# o' e' Y' R+ qrs.update
3 l5 }; S. i/ ~rs.close
0 M9 U( |% H4 Q! {, i8 A/ Tset rs=nothing
conn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
2 J7 d# V* \8 p. k- \
后台登陆处理程序例子:
<%
0 ?, h9 \. X' `8 M. ddim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
% S$ E4 M  b, Yset conn=server.createobject("adodb.connection")
3 T; Y/ R, ~* Zconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& U+ m& s; C" k! k9 Y! w8 U& a& jset rs=server.createobject("adodb.recordset")
0 H' a+ j1 F* o5 e* urs.open exec,conn
& b: r, `3 A" Lif not rs.eof then
rs.Close
conn.Close
session("checked")="yes"
session("check")="right"
8 L+ S3 t: y3 v& j) g7 X1 ~response.Redirect "index.asp"
) ?: F7 Q' v, j* H* J7 Pelse
* B6 S$ M: v9 j1 ]; F, |6 ssession("checked")="no"
session("check")="wrong"
: W/ }# @  U6 W, ?" K3 \% presponse.Redirect "login.asp"
end if
! i  ^$ G7 \" K! T- L7 [* D) E%>

每个后台页面加上:
: _6 ^" M* Y, F2 A0 i: Y<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
/ P4 i' y- B! x- P0 F- n5 @/ iresponse.Redirect "login.asp"  
else
3 t# z! E9 V& Q! o, O1 h1 e. Y3 Q%>