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

月中水

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

3 i& K" _) F; Z2 h3 k1 _
打开数据库：
exec="select * from 数据库表"
; b' k/ ~3 S' \& H4 k9 d9 xset rs=server.createobject("adodb.recordset")
- @& d5 f$ X' S# k! ars.open exec,conn,1,1
参数1，1为读取

/ [) u( Y$ x; e' h% ^5 `% i$ V读取内容格式：<%=rs("字段")%>

添加记录处理程序：
3 k3 y5 N9 y) M<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
  g  X* h& A+ Qname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
0 R8 p+ u8 S" J" V) Hmessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
+ D) r" _, `. `# kconn.close
- I5 r% Z/ L0 t  k, qset conn=nothing
%>
2 g! [6 c  ^/ `/ u2 O# K
搜索处理程序:
<%
/ M: M* p; Q2 ^6 x4 [1 @0 c' c- kname=request.form("字段") name,tel为提交表单所设置的字段值
9 R6 W$ N$ `+ y  N5 @tel=request.form("字段")
set conn=server.createobject("adodb.connection")
1 [; _  r2 u- ]conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, V  X; F0 @4 X* V4 s( ^exec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
3 o8 j! a( K2 [% K6 [0 b# m: Y$ ors.open exec,conn,1,1
( N6 _4 l0 V0 \9 _: W, O%>
'页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
- l9 _8 J0 Z7 z0 i: T: Z# f4 J</tr>
1 o' A/ P# l' S, x, Y<%
; M0 ~% [* y8 x/ H: {3 v( H5 q" Vrs.movenext
2 Z0 o$ ]$ `% Q3 W1 d) K, cloop
%>

3 O; S& G9 B- i1 Q删除记录处理程序:
$ N6 Y% T1 L0 ^7 t7 ?<%
set conn=server.createobject("adodb.connection")
1 i  X6 `/ r& d& n" v) N$ ]conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& Y/ o4 `8 U% t4 ]! T' ]exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
  T% G; e" S! c0 [& r. M1 u/ q3 c' Q%>
, o: O9 I* r6 r* |7 I
5 D& d9 \& @. {) C' j7 ?
, c0 D- N! R* o. D' J: j* z修改记录处理程序:
<%
$ s$ z5 t( ^, `* c9 Cset conn=server.createobject("adodb.connection")
% t( S) W! e: i9 {" qconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
' n! K0 d& v1 t4 Q- b% ^6 U  ]exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
' x1 G5 e1 o9 drs.open exec,conn,1,3  '1,3为修改意思
1 Z: ^7 a3 f" A2 }; b0 g: rrs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
: H7 g% i& q. P0 D% H! S& crs.update
rs.close
set rs=nothing
6 a3 y" V7 l3 ?# ]# E6 sconn.close
9 Z* x2 Y! j. ]/ h7 l6 @6 d* G: Wset conn=nothing
5 `5 |# c7 z) X" \%>
- H# h5 ~& a. }7 f8 A: w修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

, R) g/ c/ T9 {  t8 [后台登陆处理程序例子:
<%
5 @, D6 c' Y- z! T: }; T5 {' udim name,password
name=request.form("name")
password=request.form("password")
& s! |4 B5 ^* ]  n3 Odim exec,conn,rs
+ Y0 P7 G) Y# l2 _9 Dexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( C" [7 p( M  [/ \: @- s3 Oset rs=server.createobject("adodb.recordset")
; r( ?  D1 `3 ]# j9 U  Frs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
session("checked")="yes"
% h( Z1 L7 l) G3 N$ O) Vsession("check")="right"
response.Redirect "index.asp"
else
session("checked")="no"
session("check")="wrong"
! @5 J5 E4 D0 F9 M5 s/ X$ ^response.Redirect "login.asp"
" G' r4 `2 A7 T, \9 J0 Q9 B3 R2 p+ Vend if
%>
  }5 R) P4 O" p" z' Z
每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
1 }1 |, y- @3 D" f: f6 xresponse.Redirect "login.asp"  
else
& L! N& W# b6 }4 P) c; g; B%>