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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
3 p7 J$ `6 n' X* g6 p) |* Iconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

. @/ v$ y* Y0 P/ H2 Q
打开数据库：
# p( o3 T! v2 |* r% I" wexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

8 x8 z' k) J4 `读取内容格式：<%=rs("字段")%>

添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
! F5 S! I' Q' k8 n) O% `( ?6 Qconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
# J0 ]9 h  Z  ^8 F7 F5 i2 uconn.execute exec  使用execute提交
conn.close
' J3 Q; j1 q% `set conn=nothing
- v2 `* k& I: U( A; S' R8 @& x* y%>

搜索处理程序:
<%
& M( T1 \! P6 j4 ]& u* b, t: Y" oname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
2 |9 `6 X2 E' I$ K* ?, G. qset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ z7 J) @' h1 x) eexec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
: ^  V& N' n( A- M4 k  c%>
- I' }- t: j- O. c" p'页面搜索到的内容导出来
8 c( `# ~* j; L9 ~<%
do while not rs.eof
& {- O' {5 U  O8 I  L; e' L1 }7 n%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
  C0 Z/ Z5 K  v7 W  }  R  ]</tr>
$ Y$ q* @/ }5 U% y. f3 `! L<%
" O9 w& ?9 [) H6 N* \; @rs.movenext
loop
%>

# x* z- E- g' N, R: R删除记录处理程序:
<%
2 c7 A! F" p+ z6 y% A$ s, u; I. Dset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; K9 k: g) @' L+ dexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>

4 M) G# D( ^3 z; X+ E  v
修改记录处理程序:
<%
. U) k0 k' {1 g( \set conn=server.createobject("adodb.connection")
4 c' A- v- j6 X+ Aconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 Z4 L( x9 M8 ?1 kexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
0 p- a7 `1 D6 J, l* B  Srs("tel")=request.form("字段")
rs("message")=request.form("字段")
( d" ~& h6 x; ?' u6 q2 R4 frs.update
( |9 ^$ A+ F% j. [7 Q# G, S" H6 {8 krs.close
set rs=nothing
conn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

" P" h/ C- I9 S* z. d+ y后台登陆处理程序例子:
<%
# W% p0 n& `5 G3 D& v# sdim name,password
name=request.form("name")
password=request.form("password")
' O' r6 I/ w! z6 a( q7 gdim exec,conn,rs
6 `' \3 k/ E& W5 g8 q0 w# rexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
- Y. j2 r, m2 a6 P. E8 ?8 Aset rs=server.createobject("adodb.recordset")
) X  V! C) y7 _! Brs.open exec,conn
if not rs.eof then
) h4 @- Q2 \/ a1 P4 `rs.Close
conn.Close
! D. M8 k+ d0 y! }: O- Nsession("checked")="yes"
session("check")="right"
' G& B$ f0 m( v; @7 Eresponse.Redirect "index.asp"
3 T. V# T3 ?4 v( H% `else
session("checked")="no"
session("check")="wrong"
, m' x( d  ^3 u; n5 B/ ]0 x$ |& cresponse.Redirect "login.asp"
8 n+ |! |  m/ i8 Vend if
7 F6 N+ u  q! i2 ~: u%>

# g! v+ ]2 z0 C每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
5 v6 S2 A- u9 Y; B4 Uelse
%>