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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
+ R6 f& {+ m4 G( Q% Q' Kconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 G) M5 o9 O6 h8 q8 P%>


* @. K. |# n& n# J打开数据库：
8 ^$ R/ b" ~! n/ Y, w) ~exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>

, e& s3 D" Q. J  `1 L添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 }: l- K2 H/ Xname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
% L& A$ _3 H. b( `+ K% zexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
set conn=nothing
%>
. ~9 f1 a& n( j1 ^( A. Y7 q5 |0 f
" K5 \8 d9 S- c; d( x搜索处理程序:
<%
' h0 v- I' q, H5 i  Sname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
, t' ^4 v& [$ q+ z7 gset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
4 t: K+ Z$ f; w* H. |3 Vset rs=server.createobject("adodb.recordset")
! O0 J) i) E+ E, Y) O- {0 vrs.open exec,conn,1,1
%>
' l" f$ _5 T* T/ k3 T( U+ ?8 r'页面搜索到的内容导出来
<%
do while not rs.eof
4 P8 ]& m4 R1 `8 r%><tr>
3 j7 s( i% N2 W+ c<td><%=rs("name")%></td>
3 P% v# J) f4 y0 T7 g! R1 c- A<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
+ e% ~6 o2 k% H, K8 I<%
3 G* w7 _  f6 c# drs.movenext
+ L# k6 ~- z/ f9 [& K3 L4 mloop
( ^9 a" C! b! O% O4 D%>

, Q& [; T7 w# i" W4 z% g+ s+ |8 k删除记录处理程序:
/ O1 c) Y/ Q  L+ c4 m2 M) V<%
# E+ O! e! M4 z) z3 V2 x8 N* Rset conn=server.createobject("adodb.connection")
/ ?& M# q, k! W( gconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
' U2 q4 f2 Z+ L9 hexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
/ J9 i8 [1 L' h9 u2 y, n1 o- R. Y3 c%>
0 d# z: r- O9 R4 _
$ ^6 t4 N. @( J& K+ a( L1 L; R
修改记录处理程序:
2 W2 I5 p, I4 j  j<%
% G( I+ a* i. z8 j4 Tset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) d3 D9 e! X/ i( Gexec="select * from 表名 where 编号="&request.form("id")
# o5 T- K+ z' A$ Sset rs=server.createobject("adodb.recordset")
0 {0 d$ ^: Y) P6 O" _8 D4 j- q9 nrs.open exec,conn,1,3  '1,3为修改意思
) @: ?; d, f, @  ~rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
set rs=nothing
conn.close
0 Q" r5 E1 p9 ~8 h* t, lset conn=nothing
%>
* z  m7 ?& h: B8 }/ e修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

1 W7 P7 K. g; I3 U5 w. e0 T后台登陆处理程序例子:
% d% Z- B+ I& e' O% h8 p<%
dim name,password
name=request.form("name")
5 y% ]9 N( Y9 C/ q% F) |9 Vpassword=request.form("password")
dim exec,conn,rs
; Z% x# l4 K+ N( W/ Mexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
( W" L) T& Z! I' V( V) e) Hset 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
0 T0 F8 A0 \# V" prs.Close
# M  v! P7 w4 bconn.Close
session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
5 }" |* i' Q& f/ m* X3 K7 C) S! Delse
session("checked")="no"
6 ]; J! |: m5 A* l9 ~) Y' a( P4 bsession("check")="wrong"
" {2 L+ b  M2 E) j, H  Q1 t- jresponse.Redirect "login.asp"
0 `, R; t5 f; p/ X( |end if
/ p0 ?. @8 ^4 C1 m! [( C! N%>

每个后台页面加上:
7 {; K  b3 t4 T0 N) y: C1 Q<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
6 m! i) j8 U4 Q+ f0 ]; |( oelse
% I; v- n# u4 x4 X3 b/ K9 x%>