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

月中水

数据库连接：
<%
& S  k* f! o" r8 X! L6 ?$ jset conn=server.createobject("adodb.connection")
! Q% ?& v2 g' |5 rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 I6 n4 x) A) u  b+ |%>
* m- E2 N! \: s* O! X' p: ]! Y
( y) c1 D' h5 O; d* f9 X: S! J) a
打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>
7 n; y$ ]2 R$ b+ X0 d
添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
5 Y! h6 M& J+ W: E$ lconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
- }0 Z: K2 h4 s6 \  Ltel=request.form("字段")
3 g1 e/ B. `4 s' m! ]7 Wmessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
- _6 q& t4 a- u7 y, h4 Lset conn=nothing
9 X( H% f1 O3 f%>
1 o6 p; q: `6 K( i
搜索处理程序:
$ P, S: e. R# y! L0 K<%
: ]: q/ J, w6 S& k6 |0 ]name=request.form("字段") name,tel为提交表单所设置的字段值
$ {5 @7 G' S% @tel=request.form("字段")
set conn=server.createobject("adodb.connection")
, G* H9 _; Q1 [$ e5 l9 W& rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
  f) L7 ?0 Z# m" k( U# C: I( Pexec="select * from 表 where name='"+字段+"' and tel="+字段
$ [/ d/ G6 t+ `; O9 X1 O& \/ r- ^set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
( l+ U: \/ t. v- z<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
& U. D0 i- X$ h: U2 l<%
* H  I' O* s3 |# y0 H2 n1 urs.movenext
loop
+ N. @6 E' P0 a5 g% q. ?% `7 A, X%>
/ c. _9 }* H4 Y/ p% ^0 t6 c
* t7 p  g0 u8 t- q9 }3 V; b. A8 I删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>
9 N% ^: _+ q7 T2 F* r7 {
& [) ]% g0 o6 D# d% m" |- J
修改记录处理程序:
1 R$ |4 `) N& v$ v$ `) n" \* `2 ?4 J<%
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为提交表单所设置的字段值
* T# h. e$ {  l7 S1 jrs("tel")=request.form("字段")
. A+ X- A+ ^  v. e) Q9 _rs("message")=request.form("字段")
# a. c; ]: Z3 Hrs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
) E4 u; }1 x2 M# O%>
* b" Y! W( G# U7 M% C8 p* w修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
; c  J( _& ~6 z0 B) ~+ o<%
0 I' K) i! z% n- p# I5 N/ }+ d/ Idim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
7 j* ^0 c. g& @- I$ T1 d& {set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
# _! ~/ ]: c# P5 u: Q8 vconn.Close
% {/ Y6 ?, e/ [session("checked")="yes"
' D6 D$ w% J* l4 Bsession("check")="right"
8 N2 S! M) ?, a- \8 W& W- gresponse.Redirect "index.asp"
" X4 a/ T! k+ [else
( t3 `( g3 V0 ~  d7 vsession("checked")="no"
session("check")="wrong"
# Y6 t# J$ l, o( @6 M; [: Sresponse.Redirect "login.asp"
end if
% p$ e- I% y  t%>
4 Q6 }  t! U3 a! w' E. F
每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
  a' Q$ n; x5 dresponse.Redirect "login.asp"  
else
%>