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

月中水

数据库连接：
' N# K; P4 F  \<%
5 I) b$ g9 i/ I. Dset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 l. ?& L3 C( X; M' ^5 {. N' o%>

4 M2 [4 ~$ j! R6 i# @% b
" f5 L  w1 y8 n" n, L8 R5 X6 T  j5 g7 @5 F打开数据库：
exec="select * from 数据库表"
! b1 u; A8 `" ^# \5 pset rs=server.createobject("adodb.recordset")
1 `0 m/ M! h: v9 ^: O3 W0 c  Brs.open exec,conn,1,1
参数1，1为读取

) |' L  R$ u- s+ f) i; M* S* D7 U$ X读取内容格式：<%=rs("字段")%>
) r5 J9 w( X9 E/ M
添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
7 U, ~2 |# k' f) }7 y( Uconn.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('"+字段+"')" 多个用逗号隔开
) B+ ~3 x: W1 o* Uconn.execute exec  使用execute提交
% ~; R% ]; i( e6 X: qconn.close
8 j& E6 [! ^% L7 Tset conn=nothing
%>

搜索处理程序:
4 F# [+ V2 U  s7 H+ h; }<%
name=request.form("字段") name,tel为提交表单所设置的字段值
6 x( Z! x8 _. X) G& b. d3 Jtel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 e, q! @; C" U8 f1 Yexec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
! S; |4 \1 t) j9 X0 u& j  k# @% c- ~3 j'页面搜索到的内容导出来
<%
do while not rs.eof
9 Q& o/ G9 S2 K%><tr>
) X0 l9 ]! _: p* G0 P& K4 O4 C0 T! ?  X<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
* x3 K2 X* [& G) C, F<td><%=rs("time")%></td>
</tr>
<%
% n" ^% Y7 E8 Q7 v0 y' L! K0 vrs.movenext
8 Z6 J8 }# `) R* I. Oloop
%>
/ ]( R* h8 O# r" X
删除记录处理程序:
( p8 H4 Q$ i8 V" k+ ^<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 S* M0 b2 z" d" ]2 {% r# yexec="delete * from 表名 where 编号="&request.form("id")
! Q4 H% f8 c. ~conn.execute exec
  M/ ?4 T; Z9 y. y$ c. w; L%>


& `! \! e* E! i5 C修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
$ y# n! P# N5 l0 B% l# l# w7 `9 ~. `( Aconn.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为修改意思
3 ?1 u$ z& E0 F7 N: D  d8 B6 h! trs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
/ _; g# {3 p7 G$ W+ Prs("tel")=request.form("字段")
" s6 h/ F0 d6 rrs("message")=request.form("字段")
rs.update
: h4 L# \5 h: f1 M$ V/ Q4 t7 Irs.close
7 s- g# h, c8 Y# _& uset rs=nothing
$ o9 N" ~, ~  Xconn.close
  y6 R0 m' o1 cset conn=nothing
( J  i( W- C, A5 W%>
' K. V8 _: e, d2 i修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
( z* ]. J4 G# N" g: F' M
; {# f9 o% z4 X后台登陆处理程序例子:
<%
dim name,password
3 p% N# ]' e9 x6 W7 A& \  iname=request.form("name")
password=request.form("password")
3 ^! C# q/ w& ~* E/ L& k( Pdim exec,conn,rs
+ x' L6 I0 ?$ O+ Fexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
& e2 S# v3 K5 I$ ~9 D. C* pset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* s& \% u; F4 e5 P4 \: D, Jset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
( E0 b* l1 M* ~* P! o. y' Hsession("checked")="yes"
session("check")="right"
* \1 M/ r1 j* c" Xresponse.Redirect "index.asp"
else
session("checked")="no"
' Q- R, \) ]6 G6 l7 N' L/ ysession("check")="wrong"
response.Redirect "login.asp"
end if
%>
1 d* o+ x# e5 l6 e2 E* n! t
0 `& W& |# {, @每个后台页面加上:
! M6 S* N' v3 j' G1 G4 @<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>