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

月中水

数据库连接：
. K) X+ h+ x3 N# M1 g9 u4 d7 R<%
) s' T/ h4 }  O4 k" A$ ?2 Qset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>
+ n1 a. M$ v( b* A

: ^4 t% e, @& l5 g% u1 h2 C打开数据库：
5 G" f) B  o2 z, Y6 d. ]exec="select * from 数据库表"
  S$ c( ~4 B, e; E. o+ Mset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>

5 e4 S/ a, C3 Q" D2 f添加记录处理程序：
4 Y3 U4 a, ]( H* H<%
set conn=server.createobject("adodb.connection")
' x+ {3 t1 j- b. G% [' c! \0 mconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 c& M+ f$ w: s7 E& {! U& lname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
) j' t0 e' ?3 ~message=request.form("字段")
/ d0 Z* h* s' L* u2 z6 O1 {exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
* Y* Q9 o: n: g7 v  \9 Bconn.close
set conn=nothing
2 `4 f- n5 v" u1 F/ L%>

搜索处理程序:
7 f3 j# ^8 r: Y<%
name=request.form("字段") name,tel为提交表单所设置的字段值
7 T3 c8 P! q/ S8 {$ R  f# M0 n5 utel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# J" B8 Y! }4 F5 nexec="select * from 表 where name='"+字段+"' and tel="+字段
' ~# F0 V1 u& R3 ]3 I5 x/ Z# eset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
& }' }( @& X0 F8 M5 k7 K+ s<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
6 {$ {! O0 ^6 M: e( S$ o4 n<td><%=rs("tel")%></td>
* a8 j/ H4 R4 A  w8 \: S<td><%=rs("time")%></td>
</tr>
1 r# v$ y+ L3 h% t% y. O2 X, t<%
2 M+ P5 K( J( F* x- i! ~5 F- [rs.movenext
. e& U7 ~6 K' {. H9 C' x" ^( x* ploop
%>

/ h- D: G& E/ [; P! Q7 B- K删除记录处理程序:
+ `1 e, {7 V# @  q. W  O5 E0 X<%
set conn=server.createobject("adodb.connection")
( U' v7 ^$ L8 Q( e: ]6 p- z# V' bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 u+ I4 C& j: Y4 U. g  W/ o. T/ t5 kexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
! J* V+ p6 j* T* g! C) R%>

1 v, [' i8 z, W
" _' w. A# Z& V8 q5 ]修改记录处理程序:
2 x  Z1 u1 C) q( ], R$ ]) R<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# w) g2 R4 F4 {1 b7 dexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
# R9 W" Z& d3 ~7 x3 K3 C  x' crs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
! G& p0 ^1 p" h- ~rs("message")=request.form("字段")
/ h) S% G# V3 S7 p$ n8 [( Srs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
& V# Z1 B2 c4 I% ?! `7 V  Q%>
& g( w* g4 y/ w; d. }7 J7 \4 q修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
<%
6 B; |6 G. f$ b& W. \dim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
8 S3 [; f% }) t+ l3 m& _' Oexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
: _+ P3 c8 ^2 R3 P7 Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
' o/ B; S7 J% p9 ?/ f) e4 Kset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
( A) Y  X3 d* Krs.Close
conn.Close
! T9 ]+ W3 L+ Osession("checked")="yes"
- A7 x: r) E  Ysession("check")="right"
; e- t( Y- |. Fresponse.Redirect "index.asp"
else
# b% h& b1 d+ Y: Z% B$ s+ Psession("checked")="no"
! F& y: O' S: H9 {session("check")="wrong"
response.Redirect "login.asp"
7 @2 `' `9 j/ L* @0 N% d$ R% vend if
%>

! X# f) [, t. Q* Y0 O/ R- K每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>