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

月中水

数据库连接：
1 j9 a8 r) z9 D<%
set conn=server.createobject("adodb.connection")
' `% u: M: d% s# A& n5 yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


打开数据库：
' f: b& @, g3 `1 Y" w( ~- v2 Sexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
# Q3 L( Z, l" k/ Frs.open exec,conn,1,1
参数1，1为读取

- e; l% d8 G& T读取内容格式：<%=rs("字段")%>

添加记录处理程序：
<%
( b% G$ t! ?1 t; Z* _! nset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
$ L5 U1 ^' U0 g7 Sconn.execute exec  使用execute提交
conn.close
set conn=nothing
%>

7 A( Q7 h: ^* g  w7 R9 I搜索处理程序:
<%
4 e  x8 X6 b6 l, u5 o; [name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
! V3 ]5 Y7 b, n. a' \1 m0 Nconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( F. p% g! Y/ J3 I, s* eexec="select * from 表 where name='"+字段+"' and tel="+字段
7 K3 _% v1 D4 ^9 U8 [0 Pset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
. O) t) @" O8 U+ v<%
do while not rs.eof
( o7 L  Z0 M4 ^%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
7 O8 B0 ~2 I2 L0 E0 T( M<td><%=rs("time")%></td>
. o! g% E: n* V, Q9 w9 N</tr>
<%
" I( M; c; ^. [" {rs.movenext
3 {/ u0 o  Q) Ploop
%>

删除记录处理程序:
4 k, a% l# Q* G: N<%
set conn=server.createobject("adodb.connection")
4 h7 G: ^/ h) m3 l5 I2 }% ]8 Vconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, `3 h5 u/ |# ]exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
3 P4 @) t/ Z/ o: B%>
! a, T: O8 X" Y  h

% E+ {; G. p4 D% y; F修改记录处理程序:
' G4 ]6 G) a) h, B<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
3 g3 g# X& L( s/ \set rs=server.createobject("adodb.recordset")
; Y9 E# y/ v* Y1 @8 o; ^0 brs.open exec,conn,1,3  '1,3为修改意思
  `& b# I: |0 G8 Urs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
! h* g% u# t& H' h% T+ d8 zrs("tel")=request.form("字段")
rs("message")=request.form("字段")
- U6 i  {0 ?$ Y# R1 Urs.update
rs.close
+ H6 j) j5 j$ s! w; B. Tset rs=nothing
. }( i& p7 d: Q! j2 c8 R! r  nconn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
. p' n' v. a" b4 C8 ?
后台登陆处理程序例子:
<%
) q6 @2 h% z9 A& d2 A2 \; u0 N. Adim name,password
  y# ~; o+ d* F( _; M. p& ^& m# U" bname=request.form("name")
password=request.form("password")
+ m5 o4 J& V  e$ x& V% hdim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
+ p5 ^( u4 `/ A- O! kset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) `, L' L  y3 |4 rset rs=server.createobject("adodb.recordset")
- w3 C6 Y, S$ R# I2 f: s: hrs.open exec,conn
. n/ }- T2 f% T) j0 y$ iif not rs.eof then
rs.Close
$ O& v  j) \0 L8 g* `/ Qconn.Close
session("checked")="yes"
session("check")="right"
" Q/ L2 ^' \; f$ g# O7 @, Sresponse.Redirect "index.asp"
0 C+ ^- ?% e( o; R. H( {else
8 @, u9 x  ]. ^1 f  ?( t6 |2 @session("checked")="no"
$ l; a* t1 m. b' X& u; t7 xsession("check")="wrong"
: p2 B  f2 d3 b+ Gresponse.Redirect "login.asp"
5 \$ }4 L1 t# M, Gend if
%>

3 d4 W* d1 f( j; ?! }每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
' Y$ p$ A; ~# N& p  T* ^response.Redirect "login.asp"  
6 h, w! r% Q2 }( G) celse
. u4 S- t2 N) y5 ?; T1 J%>