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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& \* N- X0 U% e! Y( [' U. p%>
; K4 k6 c+ }5 i" f1 c6 G9 Q+ G
7 Z! K; R4 o; K* \$ t/ X0 v
打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
' `3 W9 [2 k6 t) m. ors.open exec,conn,1,1
5 U) f5 P  `( j) u1 ]参数1，1为读取
4 g# m9 L$ z! W) N( |0 T
  S5 f$ @% ]- [读取内容格式：<%=rs("字段")%>
4 Y* W% l+ u  N, p! G
8 x7 z  p$ Q9 ^; a添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
1 Z- |+ A' _9 T' h, Stel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
8 M4 {; F# @1 b/ n' [2 oconn.execute exec  使用execute提交
# V; _7 R: X0 a$ hconn.close
set conn=nothing
, O: A4 C/ P; C. ^8 \: I%>
  k3 _% f" p+ |1 B2 p6 u
搜索处理程序:
, h( O* G5 o' F% w- z, g) H' b<%
, d- N& w8 E3 |( Y! k/ [name=request.form("字段") name,tel为提交表单所设置的字段值
* u- Q& g( f: |$ atel=request.form("字段")
set conn=server.createobject("adodb.connection")
+ J1 L$ S. B" L1 A- w  ~) pconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
* j4 A- {$ I  J1 T6 {! l- Jset rs=server.createobject("adodb.recordset")
! ?' o  _) R. E1 c6 i6 ]- Wrs.open exec,conn,1,1
%>
! P* u4 M7 t# ?: H' G  I'页面搜索到的内容导出来
& Z. H! i$ r2 @: v<%
* l2 k  V! Q: h7 R6 H7 `do while not rs.eof
%><tr>
1 T& r% p" z+ k  k1 p% g) \<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
# F* i* x7 h( K% s0 `& k: e3 @</tr>
<%
rs.movenext
& ?4 p; l7 M& x% m% o0 Eloop
%>
' n6 o8 ]! v" W# I4 T/ \
删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
" r4 h! R& X" Z. ]  b! Yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 i; T8 C  j9 b. gexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
: T2 e( V2 r2 W! v4 P%>
' q' ~9 V# O: ^7 g

修改记录处理程序:
<%
, j2 ]( Q/ |7 Sset conn=server.createobject("adodb.connection")
" `# z; D7 U3 H4 R( uconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 E1 x% {7 n' ~( [/ T& E+ B$ Eexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
( V) s+ ?; b! D3 F5 M; g/ jrs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
7 N$ P" \2 e, _' N2 Q) q, \rs("tel")=request.form("字段")
) z! i/ ^, {9 U! O- |: jrs("message")=request.form("字段")
rs.update
( K) E5 H' r# s4 irs.close
  G& I9 q8 U. iset rs=nothing
0 p: L) v( i) [0 e7 Hconn.close
2 l3 k. a3 P  e! A( o5 a& p  f5 w3 Lset conn=nothing
%>
( T0 O# ~/ G5 r5 K修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

2 M4 S1 }9 @; L- T后台登陆处理程序例子:
6 j" V4 K( q& j; J- ?<%
+ S  z6 F; {) a3 N% a* t, Rdim name,password
/ T) j2 q0 L& u- S' v7 lname=request.form("name")
& s* s. L, k+ q7 _; X" mpassword=request.form("password")
dim exec,conn,rs
' I+ S# B- ]: C% \( e* ?: k8 gexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
7 x; ^3 r6 x& h( ]rs.open exec,conn
4 S0 U! @+ \0 Bif not rs.eof then
; s( P6 H3 F: R% l5 grs.Close
7 G# p: A0 I% S: l& [) J! `$ Rconn.Close
, s" C7 Y! ^+ q; z' E  dsession("checked")="yes"
& w' o* C8 I5 E" Lsession("check")="right"
( p& @$ y) M' X2 P! Zresponse.Redirect "index.asp"
- E$ Y+ ~4 f$ ^1 L; celse
session("checked")="no"
7 W* }! o' F; U$ `6 ]session("check")="wrong"
response.Redirect "login.asp"
end if
%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
9 c8 P& ^5 C" @' A2 celse
%>