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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" T8 v0 K0 u+ y1 L+ w%>


5 k# s5 ^  N" j# G* }/ }打开数据库：
exec="select * from 数据库表"
6 v" V0 C. ~, Cset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
/ R. O1 K! e0 n$ u. L, x0 ]
7 \# t/ W; B; N7 n0 R读取内容格式：<%=rs("字段")%>
& [; }' b% M* M/ D
添加记录处理程序：
. y% t0 `0 _% k  I" U4 n# e<%
  J5 N4 a& s0 _. b$ z* ~set conn=server.createobject("adodb.connection")
5 @2 W8 T# E5 I2 R" q& s/ a3 Wconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 Z* M. _/ m) r, _0 ^: E) ~% }# z+ Zname=request.form("字段")  name,tel,message为提交表单所设置的字段值
9 ], B  w/ _* A' Rtel=request.form("字段")
4 `) Z) p; [9 t& Xmessage=request.form("字段")
, ]1 M3 l$ F( V" [exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
0 i% `& n4 D, d0 g7 dconn.close
set conn=nothing
1 q& ~/ P% J# V% d# w. h, R%>

' G0 @  R9 u; M# T. x# b- I3 w搜索处理程序:
& ^& M3 b( `! o; p2 v$ Q& K& g* K<%
name=request.form("字段") name,tel为提交表单所设置的字段值
# J5 q( [! h# p9 Z% q( u+ u6 Wtel=request.form("字段")
set conn=server.createobject("adodb.connection")
+ q$ x( Z1 l1 o' O* pconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 m6 ^6 S& {( h3 [exec="select * from 表 where name='"+字段+"' and tel="+字段
7 u3 t" K' i, H  T! O/ xset rs=server.createobject("adodb.recordset")
% _1 W: @) b2 P, L4 e9 `rs.open exec,conn,1,1
%>
3 s2 }* |3 M3 B: T$ e' `$ G& V- U+ D'页面搜索到的内容导出来
- P  e5 {. y0 r8 S# T$ W<%
/ v" }$ x* a4 p9 q$ o4 rdo while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
, W! @9 ^* w( Q<td><%=rs("time")%></td>
" y4 B) a+ p: s4 |" F</tr>
2 l* P3 l+ n0 a5 f<%
2 p) T5 c5 x  W# a, q3 ?rs.movenext
loop
%>
2 a. g! i; {. m5 T
删除记录处理程序:
8 |, r, M! v& u7 g% X- \  ~& d<%
( ]0 d4 t3 a- w" _set conn=server.createobject("adodb.connection")
0 f. [% a) E, l/ B/ l( uconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ o8 m1 e! g6 F) E) F7 U. t3 ^1 Oexec="delete * from 表名 where 编号="&request.form("id")
) s+ d0 {' T1 M  B3 M: Z) W) Tconn.execute exec
, c! J* x5 n3 {%>
" [6 b- A5 K0 y, X9 @

修改记录处理程序:
<%
% `9 k+ W$ ]" G1 q9 R. Wset conn=server.createobject("adodb.connection")
3 x  B2 a& n8 J* O# ~6 Jconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* F, q8 I+ s/ e: i3 y) rexec="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为提交表单所设置的字段值
) o2 {0 u  C+ L$ I/ Frs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
set rs=nothing
$ U6 }9 l, }) B! _9 @conn.close
  a+ x, g1 v, y6 D! ]set conn=nothing
%>
) s1 z5 [" b1 b4 V9 z修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
; o1 s" @' t) m2 F4 w* W' P( K9 Y8 l
2 ^9 Z* Q9 W+ S8 P后台登陆处理程序例子:
& F1 a. A; F0 A- l/ D/ D<%
dim name,password
name=request.form("name")
4 n: m$ d- M7 |% gpassword=request.form("password")
) ?  _6 n/ i; j8 T6 Pdim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
' N+ }  q6 K) rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
% i9 l/ r2 ]1 Sif not rs.eof then
3 q& |" i2 A, M5 X1 _+ q! |6 u+ U) Brs.Close
conn.Close
session("checked")="yes"
+ Z7 g' }( D" n+ _6 x! I( ysession("check")="right"
response.Redirect "index.asp"
# ^% ~4 Z( t4 j0 Lelse
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
* ?, |; e5 }( G) [4 Uend if
%>
3 a1 c: _3 b" N: b9 C
  g# q  Y9 U  n& Z每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
$ r2 _2 Q  }* Oresponse.Redirect "login.asp"  
: J: M' A6 H. Z2 v0 Q- Y1 Felse
%>