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

月中水

数据库连接：
, {0 W1 ~' a9 c  \<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

* t: [6 `: \  m$ h. F
打开数据库：
exec="select * from 数据库表"
/ L" y% }" Y' k2 vset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>
- o$ y- F) p$ r3 q5 R
添加记录处理程序：
* t! l$ e  g1 h1 \& d<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
  ^/ v9 r7 \5 t; H& U3 l5 wname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
' m' h- ~0 l/ L8 \' ^0 hexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
. k5 ]5 j; v* Z" c) O3 Bconn.execute exec  使用execute提交
( ]5 I' n% r2 G/ ]- Dconn.close
set conn=nothing
%>

搜索处理程序:
<%
  `) X( A' n3 X7 V9 j8 G* R  b  Wname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
; q, ?* a  B5 O8 E1 |/ k# fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
5 h0 V9 ~5 z  l6 Yset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
. S9 f5 T4 D8 P* k<%
- i; {  ~5 b$ sdo while not rs.eof
%><tr>
<td><%=rs("name")%></td>
* `  V! f6 }! s# y, w! @<td><%=rs("tel")%></td>
# a) R$ @7 I0 e( T& ~<td><%=rs("time")%></td>
</tr>
. A; T8 [* |6 _6 u<%
. J" F9 k4 R- a2 T7 o  x& e; X% krs.movenext
loop
' H- K3 H6 r* z' p+ V" e: T%>
$ n3 o& O9 x9 G' T
删除记录处理程序:
<%
+ M1 r5 L% m5 i2 c. q9 O4 K& hset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. _* p: Y% n9 }; p' l: ~6 u0 n' Hexec="delete * from 表名 where 编号="&request.form("id")
& T" K) \: a) B, f( G! {( q2 T0 fconn.execute exec
%>

! [8 |; V1 ?8 |- q' S
修改记录处理程序:
" l" S7 I2 u8 r8 f2 c<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 n+ s$ |5 U' @6 t- l0 \exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
8 @" i, C7 V- n0 l: v% |2 I$ Prs.open exec,conn,1,3  '1,3为修改意思
8 z- e3 Y# u  T1 r  c( brs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
% g8 e2 i1 }+ C  \rs("tel")=request.form("字段")
1 i9 s* E0 y5 vrs("message")=request.form("字段")
rs.update
1 y' J0 y4 F) r% Mrs.close
set rs=nothing
conn.close
9 G( _1 R* S# X! b3 j/ Dset conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

7 K* Z0 W1 {/ D% S/ o# }) y4 b5 L后台登陆处理程序例子:
$ i2 d7 i" r* g4 F" T  j<%
dim name,password
name=request.form("name")
+ h( d; U( ]  L1 }password=request.form("password")
" d; Y- `% ?8 W+ s& s2 Q* m! t" l) Odim exec,conn,rs
$ y$ b& a$ R9 fexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
) y/ j. J! Y8 v! A$ N+ t% Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 ]! |6 @- v" [+ E0 n1 v1 W; sset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
session("checked")="yes"
- K  ~9 p: c: k( \session("check")="right"
response.Redirect "index.asp"
" S) q  r, u, r2 N. belse
! {' o' `& e' o5 k% dsession("checked")="no"
session("check")="wrong"
+ T, Z% j& X! q& R! _" xresponse.Redirect "login.asp"
4 U1 T/ b# W: g5 v( I: c% Vend if
%>
- X% h- `! g/ v$ X
每个后台页面加上:
4 e% I( q+ s1 S' F% y<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
% U% J5 _: H" V) X' B: belse
: ?: W6 K* i+ S%>