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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
0 Z: Y4 S( L; f& S6 Cconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 ]& R+ g3 P$ I9 \- M) ]% J%>
/ D# L7 v" C! z' V
3 W6 b0 S5 t# t
打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>
) k& l+ q* ^! f& x- R' B: h
添加记录处理程序：
* r: A1 O9 y' X- a0 {<%
set conn=server.createobject("adodb.connection")
7 d* ~& e( j, J* z0 bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 r! O" ^5 x/ C8 R& E. g! \1 kname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
" H5 D& H5 u  zconn.close
set conn=nothing
%>
! R2 B7 e* o6 V4 A
搜索处理程序:
3 a# [, t& u% _- b7 t9 m<%
name=request.form("字段") name,tel为提交表单所设置的字段值
$ o) r2 `8 K6 _6 itel=request.form("字段")
set conn=server.createobject("adodb.connection")
9 y  z  k- A# a' K5 d! {" ^conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 v/ ]. ~) B4 aexec="select * from 表 where name='"+字段+"' and tel="+字段
+ p: d9 A$ I3 t0 Y: A* Tset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
$ V% s4 {" u2 T$ v'页面搜索到的内容导出来
: o1 X0 W3 e1 ], l  H# B! n<%
3 `: O/ E6 K/ ~5 c+ Odo while not rs.eof
%><tr>
! P4 [# l* R0 a4 a9 s$ M* D6 l; L<td><%=rs("name")%></td>
4 `3 W  `' a* q% @8 \" K<td><%=rs("tel")%></td>
' w0 R& }$ d9 o4 r1 A<td><%=rs("time")%></td>
</tr>
. b5 |* `1 G: Q/ J<%
rs.movenext
! l# ]# E7 x; A; z7 tloop
4 m* z+ x) p6 k%>
3 Q, X0 \7 m9 v* |
7 F2 J+ L" e0 Q. E9 W9 b: h删除记录处理程序:
<%
6 ]5 s' i) J; bset conn=server.createobject("adodb.connection")
( q* j/ c, J5 U; g* ?9 n+ Zconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 e2 \8 @8 Q+ [" Cexec="delete * from 表名 where 编号="&request.form("id")
$ f; |7 r' X; |; \4 @6 U! fconn.execute exec
. v. p$ G2 C4 a6 U9 R) I7 j$ L! ~/ Y%>

4 q) C3 j# P& z: n
修改记录处理程序:
<%
" e$ i% ]# S; s, Pset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
& u( F: v* r2 Iset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
: _& M, ]9 Y# b' E0 f9 Ars("tel")=request.form("字段")
0 [  E# B3 i; {- w; p4 l( crs("message")=request.form("字段")
' L, |# q9 X4 L4 K- r+ n6 [) Xrs.update
( J1 M) O- d5 [% c3 X; P8 E' b5 W$ Hrs.close
7 A' J# }5 T; g# K; \' t. @5 gset rs=nothing
2 }6 y- O9 ?- D# ~conn.close
set conn=nothing
%>
& I- u3 c! B* ], j) e& r* t. z  s+ D修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
1 l6 N" H5 I# A. U2 q
后台登陆处理程序例子:
  s) R& q8 e4 h9 k; u, T( c. |! c% \  V<%
& d( v4 L# q/ A2 S5 {3 Cdim name,password
name=request.form("name")
7 U7 ~( \  ]: A4 c6 Z; ]password=request.form("password")
dim exec,conn,rs
" a1 h9 H* W/ {$ }- s4 C" {exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
8 J" I) F4 j) W! o& d6 H$ `conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
) V, w6 l8 L+ S* @& X* d) xrs.open exec,conn
7 `" @2 u" y. c- fif not rs.eof then
9 d- f! j6 W( v9 jrs.Close
6 ]( ]0 b3 q% D% yconn.Close
' n  X+ _3 W: c: w2 W+ }session("checked")="yes"
: E7 e6 [3 \- }' _! P7 F( o& tsession("check")="right"
response.Redirect "index.asp"
9 Z/ G& z) F( d+ b, A7 @else
0 e: K7 K$ }! V' U) B  xsession("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
; l6 v/ ?: E. }/ x5 N& Vend if
$ a/ w, i* R' b4 b  B, W# N%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
: ], T7 _1 y0 i; _* melse
%>