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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
" ^9 N" I& O$ ?/ W) b. G$ M( u0 Jconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
- x! o$ {$ \! d$ g; T%>
9 C( u; b3 ^1 U+ [/ L

打开数据库：
' r6 o) i+ g9 ]1 d! d2 texec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
, l# D! R% ]- f% U. K1 f/ c0 G参数1，1为读取
: C0 o# [0 Q) x: g" i- k, t1 ?
读取内容格式：<%=rs("字段")%>
$ W. g2 b; P' e% N5 U" b
2 ?$ p" Q4 J0 d8 w添加记录处理程序：
<%
: A0 ~/ {: q* F( ?3 \) z6 sset conn=server.createobject("adodb.connection")
6 h9 k/ c7 M; T# P9 Zconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
- P! _8 V' V6 B0 Dtel=request.form("字段")
; d0 o/ ]' D2 V5 bmessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
3 D6 H; v0 {9 g# b: {0 w- tconn.close
set conn=nothing
%>
% {* g3 k( b% a& {
1 N+ l' d1 ^2 L# o搜索处理程序:
<%
. p( E# ~/ u  nname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
# [5 ?3 h1 w/ I" D" iset conn=server.createobject("adodb.connection")
* ~( P/ L) m+ W+ {+ bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) L% [! v5 ]( d) ^exec="select * from 表 where name='"+字段+"' and tel="+字段
# A9 U# X' w4 D2 x8 e; c7 |) k/ cset rs=server.createobject("adodb.recordset")
4 f2 {! x+ s3 T$ c6 g' \rs.open exec,conn,1,1
% k+ n# b3 M: H4 m" {%>
'页面搜索到的内容导出来
0 F# {6 X5 b8 w/ {, q( {<%
do while not rs.eof
, [; g& V6 V) ~1 `%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
  H+ a% I& Z: l) o8 s7 z# ?/ ~<td><%=rs("time")%></td>
! ]9 }6 Y6 R# t</tr>
$ f$ E( f# r5 H2 O8 s" j<%
rs.movenext
% G& a6 q, N3 p$ L- ^. V! lloop
( Y1 U; T0 W7 {0 u  E+ U/ [; R8 I%>

删除记录处理程序:
3 {6 W2 f2 q/ r+ F, c/ R- i$ \  ~<%
) i; m. Q0 B% x, eset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( p- U% Z1 h! W1 c6 ^* Q0 Uexec="delete * from 表名 where 编号="&request.form("id")
1 s5 g% C6 ]2 Zconn.execute exec
1 L% f7 l( t7 M  t7 J%>
( R& S& C" ]8 O, [0 n; A

修改记录处理程序:
<%
4 ~( ^; e0 ~; Y. I( |7 v2 @set conn=server.createobject("adodb.connection")
& A0 {% @5 i5 Yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
9 g9 U, L( E$ x* g/ {: i3 Qset rs=server.createobject("adodb.recordset")
6 i6 ~3 t) @; e0 H' ~. brs.open exec,conn,1,3  '1,3为修改意思
/ a1 Q9 |" n2 T8 k/ {rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
/ R3 ]/ l5 V6 O$ h. o* T1 l0 zrs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
' N& b: M% F/ r8 ~- t, ~rs.close
( j* Y" l: [: Y! e3 S( oset rs=nothing
conn.close
6 u. I3 \6 @5 c9 k! `. m8 iset conn=nothing
7 u! U! T" J+ |& z' s# i%>
0 v6 A; m) |+ I" z# b5 [# W) o- N修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

6 L: v. F5 p/ V. a, n5 n后台登陆处理程序例子:
<%
( o2 u( W6 O5 V! Jdim name,password
name=request.form("name")
password=request.form("password")
/ G- y0 [- l% b! |4 O8 h3 D( x8 z' Ndim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
$ v5 q: ~3 o7 E$ K1 K% F9 {set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
% d( t( f6 z  K9 T4 I  k4 D) |conn.Close
session("checked")="yes"
4 }( N; @. ~/ K5 X& d, P( V8 hsession("check")="right"
response.Redirect "index.asp"
else
session("checked")="no"
$ O# _/ v' F6 X! I. V7 bsession("check")="wrong"
  H& u9 U  c1 A' P! {" V, |! Iresponse.Redirect "login.asp"
) l3 E$ s' U& Z+ }! ^) g( vend if
) u* Q' c9 d  ^%>

5 Z. R& F$ G& b0 V3 p# z3 d. d0 f- u每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
0 O- ?% l0 N' V" Eresponse.Redirect "login.asp"  
else
%>