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

月中水

数据库连接：
<%
0 \( o: S0 ]6 Z& aset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


打开数据库：
( O: M% ~- P; L: qexec="select * from 数据库表"
7 R9 L; J4 a+ H- c8 @' ^- `set rs=server.createobject("adodb.recordset")
& Q9 H1 \8 N/ m8 y. F; c$ l' Nrs.open exec,conn,1,1
8 n8 o" J1 T& o$ I# e5 \3 F. p参数1，1为读取
" I: v& k0 w$ Q  p1 T
( c7 i( f: E5 i0 a) F9 D; P* @读取内容格式：<%=rs("字段")%>
/ A7 R7 F; C8 i# a; J+ F9 D
* j) {2 _' \& y添加记录处理程序：
<%
3 J- l% l% h- L0 g& H: M. Iset conn=server.createobject("adodb.connection")
+ l' h3 M. b' U' a+ ^conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
" F4 ~" O% K( Y. c( ?% N+ ~$ K4 g% ~exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
- `) v+ \; }; w2 S3 d# xconn.execute exec  使用execute提交
; K9 `$ u/ e9 o' M: Z! s9 D; }conn.close
set conn=nothing
%>
# N9 n  j- u" X' }$ \
) j, o& p0 z# `+ |# \+ g搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
* y1 L9 ^  h2 ^2 {5 d. v0 rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
' M- r+ p' U/ \6 Drs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
<%
8 E% C1 M7 Y7 w3 [do while not rs.eof
$ u* Y. ~! A9 t% X. }/ c- ~2 h%><tr>
/ x$ g7 G$ B% _5 \' H0 W/ {<td><%=rs("name")%></td>
3 }5 K3 I' I1 U  Y1 V2 j) k<td><%=rs("tel")%></td>
1 a) {& [$ W4 N7 w# {<td><%=rs("time")%></td>
</tr>
4 |1 H$ W( H9 T9 I* [4 M( t% D- G<%
rs.movenext
( i( A' d; f, a4 ^) P0 [4 cloop
6 D9 I) X7 V, V9 R+ y' u6 a2 f' K6 K* \+ p%>

* P, H8 T6 R6 W# `删除记录处理程序:
" N/ F3 N" Q4 L, b5 S, b, p<%
! \- u) R% ^  V! W' H0 {set conn=server.createobject("adodb.connection")
' n6 c. J) {% bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ {; D1 F  _& Q9 z$ s* Kexec="delete * from 表名 where 编号="&request.form("id")
  N5 E( z; K. A/ y- H" K4 g. D1 ~' e" Sconn.execute exec
9 k# c7 u7 n" w; \3 j7 A3 l0 d%>
9 ]: d  e3 ]/ P  R  a: l% J

修改记录处理程序:
' W% N, S6 Z- L# g4 g. i1 T, |<%
6 e6 y/ t+ ~7 }9 \4 k7 r& T: P! uset conn=server.createobject("adodb.connection")
  W1 f6 U8 X& l& qconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
; {3 b5 [3 Q" d' G' h, Brs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
8 A3 N$ A' l& j+ Q* W. nrs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
" t9 {/ B5 G- |6 N$ p  I3 srs.close
set rs=nothing
& F9 m/ p) {% j* {- c' U: |* cconn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
<%
dim name,password
name=request.form("name")
7 w) z9 P' Z& e, k/ g6 i  spassword=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
. r. l' l" U" M$ iconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
3 y( M! R& c9 k4 X7 N( N& ]rs.open exec,conn
' i9 F, N1 Q0 b! F9 F( o& Hif not rs.eof then
0 s- u0 W. j- c* R/ l; prs.Close
4 [, [( L) `5 T/ Zconn.Close
  S# d/ _2 q* f1 e; O& Tsession("checked")="yes"
session("check")="right"
! v5 f; e9 l" E: J& bresponse.Redirect "index.asp"
else
session("checked")="no"
- Y2 s% P9 M% C) S- ?$ @session("check")="wrong"
$ o7 R5 D( ~& q, Xresponse.Redirect "login.asp"
end if
$ n8 R1 y0 L7 h2 N%>

每个后台页面加上:
7 N* Z7 a3 f- Z7 W3 R<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
* F* I1 K9 {# \* X9 ]else
; r: q+ r( X( x( U) D& ~%>