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

月中水

数据库连接：
( H+ {, Z2 O3 a0 i! ^& q, k<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, h& z* |+ E, [2 e. Q& l%>
$ X$ g5 l4 E9 y
7 i9 m: Q- N1 X! L5 y& U
4 a' V( |- w& o打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
' J9 p7 r) B3 B0 a/ Q. j2 M2 q3 qrs.open exec,conn,1,1
/ f8 D* }1 o- U5 h参数1，1为读取

读取内容格式：<%=rs("字段")%>
4 D' e+ y" B  R/ F
添加记录处理程序：
$ w' B$ J' i4 z0 d6 w) ^5 ^<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" D' R, l& `% U' q: w( vname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
9 _2 E2 A5 t" R6 S5 M( Bconn.execute exec  使用execute提交
conn.close
set conn=nothing
8 b) Z; Q) ?: p8 c1 x# g%>
2 M, [3 t, P1 Y: z
搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
& d( V2 K/ X* ?( Stel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
* E  x1 J6 F0 V+ H; r9 }' |set rs=server.createobject("adodb.recordset")
' v% d- V' }" Krs.open exec,conn,1,1
* I) X+ F# A7 B%>
3 x' R) z) b( P% L3 L/ ~'页面搜索到的内容导出来
<%
do while not rs.eof
& ?5 H3 y! \" n, _" v2 w%><tr>
6 C8 [- N* T: Z/ E! l& w<td><%=rs("name")%></td>
$ k; c( i9 s/ k. d/ Z) M<td><%=rs("tel")%></td>
* f8 ~: N  [9 f<td><%=rs("time")%></td>
</tr>
<%
rs.movenext
3 u9 @1 Y# ~: a6 @6 _+ Aloop
%>

8 \  W: l! J9 U5 J6 V) Y: n# v删除记录处理程序:
, M) B  U2 D# o# g6 e8 A<%
7 U5 Q$ `: O0 _7 w- K; Q4 nset conn=server.createobject("adodb.connection")
: b# ?9 i$ j. {" D3 V' j5 Jconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# S) x7 N( j1 o  U; E6 `exec="delete * from 表名 where 编号="&request.form("id")
4 G: R- V2 }- b8 F7 g- Zconn.execute exec
& v; `1 q/ B  Q* z%>
5 G3 V" B9 M% `( M9 `
) y$ W; N1 {+ `5 ^2 Q4 }+ L
. g* D7 V- E+ C修改记录处理程序:
9 Q% g6 [- g/ n& q: J& K" `; t<%
8 ~6 u$ i3 r( D6 t% g5 U" Uset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& l0 n6 D/ ^5 }  J- M0 Q" `7 iexec="select * from 表名 where 编号="&request.form("id")
! h2 ^6 s% m( xset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
, J$ H( d6 s  k  i' U. crs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
set rs=nothing
4 W: @1 b' V1 T$ z/ I5 d; qconn.close
2 r+ {' \& s* |, Mset conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
& N/ u+ `7 i$ n, c7 E5 J  b<%
& ?$ d0 _1 o  [, ]3 S  Zdim name,password
name=request.form("name")
' e4 X1 A* l& `password=request.form("password")
" P+ ]' q4 N9 [" m( edim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
5 E" I9 X$ z; Z) K( xset conn=server.createobject("adodb.connection")
- B+ f+ J1 X4 r0 Xconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: o9 g% ]+ |8 R! Q( b$ ]set rs=server.createobject("adodb.recordset")
rs.open exec,conn
! J3 m' L# b! {/ n; {' R* Y2 _if not rs.eof then
" @+ Z2 @& F& Grs.Close
1 R- D5 f& M* e1 N  qconn.Close
* R# W/ o1 B) l) _% r7 g( osession("checked")="yes"
: h. U( m, F0 j3 Y3 n( Esession("check")="right"
response.Redirect "index.asp"
else
2 L3 @" v3 i! B. @session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
" |4 |7 C9 z& G5 E: D! n%>
& E7 E  w4 }- W- T. U
  _# B  }6 S! r. r. b每个后台页面加上:
; z( H2 F$ `  e% ~2 T7 _5 G2 J2 B/ y<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
* c* P3 Z8 O  q4 Cresponse.Redirect "login.asp"  
3 i0 U! ?' D5 `- c  n- R9 Qelse
%>