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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
6 v! T) S$ T, {7 tconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ |) X! c' Q$ {; [* b- M%>

5 w8 Z- y/ d( P
: ]4 c0 Z& ~: N2 q打开数据库：
& e! _2 S8 T  N8 y9 L5 f1 K" eexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
$ z) T5 Y* p5 s- \' s2 i参数1，1为读取
" B$ F. D% J) U& p' x' H
0 v  a4 `* s% I. c8 M% v读取内容格式：<%=rs("字段")%>

添加记录处理程序：
" r. {- J; B0 Q% G<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
) ]: [. K( q$ J! c- Dmessage=request.form("字段")
0 c+ L) ]9 Z) w6 Xexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
/ M1 P3 [( X% Z; a& ]8 c: Y- Bset conn=nothing
%>

& x+ ~0 ]& H- z- ?2 z0 \搜索处理程序:
<%
' c5 ~$ s/ j2 L" Fname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
9 c' ^4 A0 A; Y, V6 L3 V1 xset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( a6 J8 S4 z' X% a* ^$ n2 \4 k5 Aexec="select * from 表 where name='"+字段+"' and tel="+字段
; x- R! y+ g. f; R6 aset rs=server.createobject("adodb.recordset")
* Y4 U& n: b0 A7 S0 I+ B  Ors.open exec,conn,1,1
%>
'页面搜索到的内容导出来
0 C9 N& Y1 P$ L% J2 I<%
3 o- W0 D- l3 X3 l6 Z) H# W" `do while not rs.eof
) i% ^* J. c2 H8 R+ m/ v%><tr>
) L9 E+ u6 i1 n2 A! Z<td><%=rs("name")%></td>
+ P4 o1 @  i4 ~8 g* _<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
8 W" J& g- k" L9 K% M8 V+ V<%
rs.movenext
loop
%>
% J; Q8 F: A" Y" F: p
1 t0 I3 j" k8 o删除记录处理程序:
<%
/ q; D5 n% O& R5 O' V, @set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" H4 L; E9 ?) L+ ]* b# Eexec="delete * from 表名 where 编号="&request.form("id")
& E  X( w! t( a, K6 C. B6 Oconn.execute exec
%>


: G: C- u+ _& L3 ]/ T9 w' x修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 x7 h3 @1 I& \0 h2 }. d  lexec="select * from 表名 where 编号="&request.form("id")
+ H4 w1 }! K2 Qset rs=server.createobject("adodb.recordset")
  V( x* _! C* I' B; l% nrs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
) z! p* O& ^7 X9 ?- }5 z% e# W+ z6 Grs.update
8 P: p& g, j# Ars.close
8 Q2 E' Z1 K; V' tset rs=nothing
7 Y' @6 K3 e# K7 @/ m" k9 K4 Uconn.close
" L3 h) \# ~- jset conn=nothing
7 l/ }0 R3 y# P/ ]7 F%>
& ~& x& z. s* m+ s6 J( `* r! d修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

1 I, A, g; L9 b; `后台登陆处理程序例子:
' x5 g( z) o8 `<%
& _) a* M6 x% j( \& ?dim name,password
. w9 n  H) f9 q$ }! ]8 iname=request.form("name")
password=request.form("password")
! l* M* T) c3 T7 ddim exec,conn,rs
% n/ n  |/ v, f+ J; \9 ?+ Q+ Gexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
- }( \7 n9 Y. {9 x( E$ jset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
, p. |& I4 E0 K( j" K  Drs.open exec,conn
if not rs.eof then
rs.Close
( E* {6 ^2 i% E9 a/ W$ rconn.Close
session("checked")="yes"
+ b/ f% [; R( ksession("check")="right"
response.Redirect "index.asp"
else
3 V" ~1 V9 j5 V  O$ xsession("checked")="no"
9 T/ l2 k, v$ j( y; u# Asession("check")="wrong"
2 p% R( U7 @! ?. A/ [8 r: vresponse.Redirect "login.asp"
' F# I4 W% B1 F5 O. C4 iend if
' e4 C1 u" H4 [' j6 ?/ p%>
: Q5 a3 x% u% M" J/ t( a3 R
每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
2 J! ]. j, [/ H' m%>