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

月中水

数据库连接：
7 W' `1 `2 n7 K/ s5 [) H! o7 C<%
set conn=server.createobject("adodb.connection")
4 u8 l5 R5 R2 [9 t: h+ Yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


& U( K" R$ B; i' M打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
' }$ y5 K1 h7 Z) ?# Krs.open exec,conn,1,1
4 k) M& U9 D1 A! \4 i. y参数1，1为读取
7 ^6 x* x" s7 h& z/ Z: T
7 V# M7 g" ^; \$ s! Y% S读取内容格式：<%=rs("字段")%>
& q* a6 F$ E  k! E2 n2 O* ~
2 f+ k* Z6 s# a6 f9 X" R& \# T添加记录处理程序：
) q5 k! w5 _' P) h2 }7 ?4 u<%
& H4 I  b: L" lset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
/ E4 l# P1 s& F' v1 {  q5 l$ btel=request.form("字段")
message=request.form("字段")
0 E' r- s; r  i& Rexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
# A4 q6 H) ?4 {: G$ Z2 nconn.close
! V4 S3 Z3 G+ @2 V6 x9 Wset conn=nothing
%>

; g# x  s. I2 O. i% K5 H搜索处理程序:
<%
, }) I: `6 t. |! |name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
; K$ D! |( l% M$ ?  w( Y/ q9 Iconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 B- H1 A; l* J' h5 V/ cexec="select * from 表 where name='"+字段+"' and tel="+字段
$ X; P5 g* K1 a* r" A; gset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
, t$ V! X5 X0 z+ s# ?%>
'页面搜索到的内容导出来
- Y6 @, E1 J! ~" d& ]<%
do while not rs.eof
+ P, Y& X# [' ?) K6 t%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
9 M0 s( k, F( G1 I' b/ Z6 M</tr>
, U1 ~* H( C' Z<%
rs.movenext
( x  B* N$ q7 o# l3 X2 Y% cloop
/ \* X* f) _1 q/ f%>
( k- j5 i/ ]6 F7 E7 @8 p
删除记录处理程序:
+ k8 z3 V# [- G1 w<%
- y6 a; B9 [, ^& b) B$ r/ Q- S$ ?3 z: \set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
) g1 Z8 h. A- G' H2 X2 ?conn.execute exec
%>
6 Q# \! S, W- Y* Z# M: Y
% f. l1 F! ^$ n" J0 Z
修改记录处理程序:
0 `7 d) z+ }0 r) A5 K<%
  D! j" X9 E3 `- }* C9 ~set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
- w3 |6 c9 E2 K( s" D9 x0 G. P# F! }rs.open exec,conn,1,3  '1,3为修改意思
3 r& L3 p, H; F. C% @' irs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
2 b: @; L) q# c& A! Vrs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
+ e4 G0 F. f; F3 F  e% Yset rs=nothing
conn.close
8 c. n; ^- w3 D! c1 Pset conn=nothing
  b: X! l, E3 `%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
6 t9 V6 b& B4 J# @
2 J8 B& f2 ?9 h9 r0 k, b- l5 _后台登陆处理程序例子:
# @" I; `( l5 _: b/ }) z<%
" A) f$ ~$ \3 F7 q+ e; s( Y4 Rdim name,password
$ T  C1 I6 |$ c4 ~9 Q6 J, gname=request.form("name")
password=request.form("password")
; V$ P+ {. f3 B# j1 j, Gdim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
9 A, W: Q. \  j$ d' f- fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
- e, F4 a5 ?2 J( S2 m7 @set rs=server.createobject("adodb.recordset")
7 A+ W0 k0 \( f) krs.open exec,conn
if not rs.eof then
) E! ~/ D6 B5 S  Hrs.Close
conn.Close
) S1 V8 t* x8 }- N4 [4 Jsession("checked")="yes"
/ l& N) c, l* I3 D* M# F: Esession("check")="right"
response.Redirect "index.asp"
+ v( v' h, I# c8 K6 e- telse
session("checked")="no"
3 r9 v9 A, o. z" I' L& Wsession("check")="wrong"
" i8 g) ~" U7 E& A! `: }response.Redirect "login.asp"
5 _& B( l7 w, X7 \. g/ D( Zend if
( _7 h2 t( y, k" \" ?%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
0 V( \  e7 k+ \4 \' Lresponse.Redirect "login.asp"  
% [0 c# y( {  G3 w8 a& D& O; aelse
3 V& l' n# i( |; l; r# r" q: j%>