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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
+ w' f) Z5 z7 B" Hconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 Z6 ], q$ r1 i9 v%>
5 R0 {$ d7 g/ U( b# L& ?
. t( q0 w5 G( B# L
" @/ U; S& `3 M5 y打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

( y6 \) m6 }* C/ x) w. Q. T读取内容格式：<%=rs("字段")%>

9 |4 x# u# R/ R" v1 E$ k7 h/ w  A添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
: L- H  e3 o! x) n1 D& Econn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
2 D7 L( ~1 a/ m3 w. ^tel=request.form("字段")
( s  J. ?$ x& ^1 P( d( s3 Nmessage=request.form("字段")
4 z. S$ ]; T; G3 hexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
1 i- S6 ?: [: O, [8 v: _; Wconn.execute exec  使用execute提交
conn.close
set conn=nothing
%>

  Q( a: M8 O2 ?3 E0 c搜索处理程序:
( M4 Y$ [' R& B9 J<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
; f" H# B7 x! q/ x9 ?set conn=server.createobject("adodb.connection")
) z4 s, c9 U# k- }+ d  Qconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
: c0 ~) k1 M" ^set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
<%
1 j: p! A# d7 S& A2 zdo while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
% S3 H0 q5 {3 O+ B</tr>
<%
rs.movenext
loop
%>

3 P/ s! U) t& L" `: p* I- i! t删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 S& B( g  `$ n4 E/ Yexec="delete * from 表名 where 编号="&request.form("id")
! O: W) z' Q5 F- Y" A" v) K: s8 Oconn.execute exec
%>
& W0 c2 F# ^6 P1 |

修改记录处理程序:
<%
0 ?2 T8 s7 l% M+ O6 b7 j" x4 cset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ o: ?4 I" b6 G4 R; b1 ~  wexec="select * from 表名 where 编号="&request.form("id")
( c" K. O0 \3 O0 |1 p8 e7 G+ t* u& ~set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
$ g/ y% p$ w3 ^- mrs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
  c9 N) E' J/ Q6 C7 r8 E' d4 M5 C# p4 hrs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
3 ^3 ]" x6 c( [  H$ y2 [6 hrs.close
( N3 O6 W. o7 E3 Nset rs=nothing
& t# v! M( T1 ~: x$ V! Kconn.close
set conn=nothing
* U9 A3 z9 I% `! a6 B4 e%>
  c6 ]3 a8 ]& q* _# h修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

; ~* @2 }* A5 W2 D( W后台登陆处理程序例子:
<%
dim name,password
name=request.form("name")
password=request.form("password")
6 Y) N) |# i: ]& T! H7 y4 Z6 rdim exec,conn,rs
4 y, R3 W# J  \7 q2 n5 Zexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
3 |9 X% Q' z) S3 I. i  W0 Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 k: @7 |5 \4 X& P3 yset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
6 i! }5 E! f- h7 v3 fconn.Close
session("checked")="yes"
6 u1 K: V+ D1 Jsession("check")="right"
response.Redirect "index.asp"
else
7 B$ b$ l' T9 g1 ]7 R1 T) X4 \session("checked")="no"
session("check")="wrong"
7 @0 m1 b- v0 G3 B0 C& \; T. Hresponse.Redirect "login.asp"
end if
7 q- G/ h* d' R. p' n%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
7 W" I; y, g  `# |3 pelse
- k( `9 x- z" K  ~%>