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

月中水

数据库连接：
<%
1 f3 @( ~2 V  c: W9 c6 pset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 S  {6 z2 v. V% h* d: n& P%>
! N1 u  B9 H- U" ~0 {9 U9 W: U
$ u  s5 y1 `3 `& @' l% l# _
3 j8 F: E/ n, F' A$ G打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

" c" M6 s7 N6 k8 U9 s0 r读取内容格式：<%=rs("字段")%>

添加记录处理程序：
<%
! }1 w4 M$ [5 L3 x4 K+ Zset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 u$ m+ x" C2 F  n4 h8 Xname=request.form("字段")  name,tel,message为提交表单所设置的字段值
4 e  B+ @7 R% d* q0 f* G/ Etel=request.form("字段")
; l  b, }6 p8 {. i* V7 X. T9 N6 Hmessage=request.form("字段")
# x6 `  I) w4 W6 F  v: l( Nexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
8 d$ @8 a: ]' S. @- \conn.execute exec  使用execute提交
conn.close
1 V1 [& v" q  W. p4 [4 ?3 J# m) S( Q7 Wset conn=nothing
7 Z5 ^+ f  y% L. a%>

搜索处理程序:
' x& d# w6 q# o<%
& f$ d5 N2 Q/ x; O  [1 {name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 o, w* |6 U; u; W9 v8 b& mexec="select * from 表 where name='"+字段+"' and tel="+字段
6 O( V7 ^7 t2 X% O  I7 ]5 i0 X6 kset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
: W6 S" N( q6 C) o4 O%>
'页面搜索到的内容导出来
9 y' K# |# D% @4 k; M. }; J<%
% n6 i: g1 \% l$ ^' e2 O2 Kdo while not rs.eof
' Y# ?6 ^/ V. `, V0 o%><tr>
1 W9 @) ]6 ~. K. Z; b6 `5 k<td><%=rs("name")%></td>
& E9 Z) q8 v/ c3 C- G; X( Y( R, ^4 E<td><%=rs("tel")%></td>
- S, x! B5 f  \: U( k<td><%=rs("time")%></td>
, {- b" r# k+ H2 E* _' n4 Y" x8 J% _</tr>
<%
rs.movenext
& N4 ~1 A! K# }/ d( t/ J' [5 vloop
%>

/ S7 Q5 n. r  Z/ X4 V; v删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
2 ]4 g( B6 F! G" d: W3 ^$ Y%>
0 C* W8 \5 g, R$ ~3 X/ _

修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 B6 _+ a, s" J& c( Kexec="select * from 表名 where 编号="&request.form("id")
8 n* X9 {; Y1 \! v& qset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
+ x8 l: {  N" q" ]; R" grs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
: {/ d- x" o! M  E& hrs("message")=request.form("字段")
" X4 j- Q" c) b6 irs.update
! o$ ]& P# D. H; M/ u# {* a9 Ers.close
set rs=nothing
8 X& M4 [8 E7 z1 b2 Lconn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
' l/ ]6 g! W5 g* ]: f: A) H3 }5 x
* m6 ^$ z8 @$ e5 i7 V# _' }/ |后台登陆处理程序例子:
# D5 Z" _) j3 k1 P  f( R<%
dim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
2 S1 c' c) F+ s6 M, W5 Wexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
7 ]$ s! r+ q# r5 F6 ]" y  p) \conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
1 @/ C. ^+ Z. ]9 y; g( [' f3 D8 @# L; Xif not rs.eof then
7 v$ t) F8 V6 o  {7 \8 y3 Grs.Close
conn.Close
9 F% M" x( z+ Q2 e8 T; Isession("checked")="yes"
# G6 o/ `9 I7 S8 e. Z0 zsession("check")="right"
response.Redirect "index.asp"
3 W  O  `5 E2 ~/ I, i- ~& qelse
$ i4 v3 s6 z5 R( }4 ?# F1 wsession("checked")="no"
# ^( {1 @( c" q6 @session("check")="wrong"
. w5 B2 ]' q$ m1 b1 {, ~response.Redirect "login.asp"
3 f# C1 A0 _0 g& \, ?4 Kend if
%>
- ^1 K& A7 t% d" u
每个后台页面加上:
7 d0 M* ?; J4 Y. O1 U<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
4 o7 Q3 o# k1 G. selse
%>