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

月中水

数据库连接：
+ j* |* l6 I# g2 G. K* }: V7 n<%
4 z  X" V# K1 xset conn=server.createobject("adodb.connection")
) G$ s" y& ?( O' W5 ?) nconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

6 N. b0 I  t; S" w0 I% ~
打开数据库：
+ d: Q; j; x3 @* p! a7 c2 dexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

& e( D3 a0 y  Q6 C- d  v# X( l读取内容格式：<%=rs("字段")%>
' q+ O- S  k* B1 ^2 e; K7 s& I
, R, G! v2 h; c+ u" a, j添加记录处理程序：
& G/ w/ @8 }& H1 P" n<%
set conn=server.createobject("adodb.connection")
& |+ s6 e* [) M; yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
1 b7 k- A! ?, F' B8 vtel=request.form("字段")
8 @* S7 U  \$ {" Rmessage=request.form("字段")
+ U# i/ z. g8 p  r" f# Y' \) |exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
- Q. V9 M  K8 z; i& J4 @conn.close
6 g( U' D! G: F: o7 Eset conn=nothing
%>
. r- b  c) r8 B; P0 b9 F
搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
5 C, r) j3 \" g3 B* Iset conn=server.createobject("adodb.connection")
* ^0 Z% L/ h0 A8 V# Z3 a+ @7 Aconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; d( O" v7 t6 P/ s& oexec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
* R3 t( u8 M0 d  i  W'页面搜索到的内容导出来
& Q3 W  U2 F1 ]9 D8 v<%
do while not rs.eof
% w& Z; p3 J( i3 n" N%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
& i6 f, N0 t0 d, t$ l* w& C( `<td><%=rs("time")%></td>
</tr>
( ~$ L- f* N0 M- X<%
rs.movenext
/ [' ?2 w; R  C  R0 \& Z/ h4 \loop
9 q: [: `8 j, v/ Y3 l%>
* y' ?3 C4 `; `/ Y" `9 e+ q
  f/ s0 M$ ~5 ~; N3 U删除记录处理程序:
<%
4 n) {7 q' F4 Rset conn=server.createobject("adodb.connection")
; L1 I! h* Z6 c  G( cconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>
1 q  v* Z5 V2 q# i  v3 T
3 R( G% G' D; u4 |7 _9 i
7 g  w4 Z0 n! @修改记录处理程序:
<%
0 }4 [2 _  c$ Xset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: t4 J4 e+ R. g7 z' I( W, }. o+ Dexec="select * from 表名 where 编号="&request.form("id")
: s  a$ \1 E- eset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
" t4 Q: q) T0 o) x  Trs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
8 G& ~' h# n# Y0 i1 @: Nrs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
% O3 S6 Y* \$ X- o' G4 ~rs.close
set rs=nothing
1 {8 ?! Z% o2 w% wconn.close
set conn=nothing
  H/ [/ ]; A! j$ R- M/ z%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

  U' h3 y7 T" ]" I7 C3 P后台登陆处理程序例子:
<%
" Y2 @5 D2 B( e7 R" edim name,password
name=request.form("name")
password=request.form("password")
: u) d1 K. U: c& k: T. ^dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
# K( N$ w3 P+ ^0 H/ Q+ fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% j# s0 X6 f- e" ^4 cset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
% f1 n" |" ~2 q+ xrs.Close
& d/ @1 c* f& |8 v! ]6 wconn.Close
session("checked")="yes"
session("check")="right"
, a3 V5 E/ y8 K- Y5 {response.Redirect "index.asp"
* o- y5 c; Q; c# {0 felse
session("checked")="no"
) t$ g) w  P7 Nsession("check")="wrong"
response.Redirect "login.asp"
* \# y0 c' [5 w  {  K+ P% d. L. ]end if
2 X' m* c5 j* b: x& v, o+ p: v%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
' ]5 e  p; G; w# w1 r9 O% c- [else
2 B% l9 ]* s, ^0 I5 p. f" Q%>