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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
0 l, @* g. Z4 |. a# I9 Rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* V+ G* R. u" }/ H- T. R%>


* L( d0 Y0 a) g$ j: q打开数据库：
! j8 Q* r+ [, G* e: b) uexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
8 t1 I0 U8 J( m! N5 u  drs.open exec,conn,1,1
6 i3 K: j! R% P参数1，1为读取
5 y: L( d/ O' g; h; C4 o& ]
9 C- _1 j/ ]+ u( d  o5 Q: F8 o读取内容格式：<%=rs("字段")%>

添加记录处理程序：
% ~8 C' e. B; W0 o2 R<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
/ j& H. [  z. D7 {: Jmessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
set conn=nothing
%>

7 o3 q3 M0 I1 ~* G. U' F搜索处理程序:
<%
+ s% X% R6 m) U- P. v$ C4 E( iname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
) g1 y, ?: [& ~, O1 C" X* n* X3 Hset conn=server.createobject("adodb.connection")
/ }% v  H9 D! Q9 A; lconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
; I- }& v+ w$ q7 [5 K- z: Aset rs=server.createobject("adodb.recordset")
! Y/ s; j5 E, a8 w# F( u9 _rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
& w- Y4 F0 s2 B<%
$ k  }# J5 w5 A% ~4 K) N) Wdo while not rs.eof
9 _1 P! _% ?" D9 T: b* o% N%><tr>
! `, s) v5 ]9 D% ~) j<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
! U5 B: h6 D( z* h. ]" ]</tr>
<%
rs.movenext
loop
%>

删除记录处理程序:
6 w7 p" d& H' f& X  E9 c<%
9 t1 F) x8 x0 M4 Y% q8 Iset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& @8 K8 ?9 k& X& R: Lexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>
) e& ?% v" S8 e/ [

* i, L6 c  q3 |( g6 a. l6 P$ @修改记录处理程序:
$ \5 V+ J! i0 ?2 i<%
( j, [& U& P" V. Oset conn=server.createobject("adodb.connection")
9 e7 J5 J9 F! sconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ [2 c3 ~4 x& p6 [' g! c% f  ~exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
8 ^1 C" B5 J( g/ E8 P0 t' Crs.open exec,conn,1,3  '1,3为修改意思
+ _( r9 I3 x6 \/ |( nrs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
. [4 U9 Y  B# n; R8 \. y! Urs("tel")=request.form("字段")
rs("message")=request.form("字段")
6 n+ ]  |8 l& i- Jrs.update
rs.close
set rs=nothing
& a* e3 m; ]; k, B' ^5 o" wconn.close
% M- G! ?! F8 C) Xset conn=nothing
+ I( D, S& E  H%>
9 r9 E, t0 |" h, b) C修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
, f$ b& I  {4 h; U" ^3 t
1 W/ P  {* C  h0 i8 H$ E& s后台登陆处理程序例子:
<%
dim name,password
name=request.form("name")
' X4 u5 L8 @, j( X+ Q% Y1 [7 kpassword=request.form("password")
4 Q& [( E& I5 Edim exec,conn,rs
) J5 W) N1 h% f8 h- R& T  eexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
, l2 y" P7 r5 F5 dset conn=server.createobject("adodb.connection")
, H$ z" F. r0 `5 t4 J) Zconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! \' K6 d  G3 \7 oset rs=server.createobject("adodb.recordset")
rs.open exec,conn
. D. c  j' a& j& n  Yif not rs.eof then
rs.Close
conn.Close
session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
) v4 Z) _4 F* {! R7 Pelse
( F, p1 V/ A* H- G- B: msession("checked")="no"
session("check")="wrong"
/ {5 l, e# A, G4 Bresponse.Redirect "login.asp"
* e  q# X3 C1 p5 M" C' z2 q7 q& dend if
" ^' j; M" t8 x3 y9 [/ T1 ?%>
/ M* R& ?% h' b( Z
) @/ }7 p' L6 P+ P! G, X每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
* ~& }% L- o3 l4 ~else
4 `$ r& g/ e% g. k* w$ _%>