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

月中水

数据库连接：
: s' r. N0 H" N9 f<%
0 h! `, i* W$ C+ Nset conn=server.createobject("adodb.connection")
* n) p5 g9 q: E4 Tconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! ]" K) @/ M* d8 r5 j( n  p% Y%>

* {, w. P& C; |
( I5 k: o) V' Y9 K& H" A% _+ }打开数据库：
exec="select * from 数据库表"
! h- f2 _6 S, }  }2 Bset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

  z* t4 n- [( b7 g, a" V读取内容格式：<%=rs("字段")%>

添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% R" a$ b" J8 A+ _4 V0 k: Cname=request.form("字段")  name,tel,message为提交表单所设置的字段值
4 K/ s- ~. {4 J! b- ytel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
: h1 V8 E" d5 c6 Yconn.execute exec  使用execute提交
" a, n9 b/ A  F. r6 L0 Bconn.close
+ {" g1 T% x* wset conn=nothing
%>

2 u1 p2 z& Z& l搜索处理程序:
  V; \! n! m/ s<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
2 [% r: R6 x6 x* @conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
, {* M3 k9 Z/ b1 B- F, k5 qset rs=server.createobject("adodb.recordset")
2 i  i9 T- j6 Jrs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
6 T: Z. \8 p& ~<%
do while not rs.eof
  f0 }7 `6 B  m) G%><tr>
6 _! `$ b* Q  A2 K8 U6 ]% M# I<td><%=rs("name")%></td>
. E3 T9 x3 X- ?% Q" e<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
, C6 s5 x" z+ @- j6 z$ [* E</tr>
. C9 ~8 Q! X! g) A) ^/ W5 b3 |<%
rs.movenext
* B% T/ W' p+ W. a* Gloop
%>
6 `/ H$ r' Y( S3 y6 n/ z- N
删除记录处理程序:
5 `. \$ Q) x7 a2 b* `<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 Z% f" m8 Y5 O6 \' C  Iexec="delete * from 表名 where 编号="&request.form("id")
' J8 |  u2 {& F3 Q0 D: J& Tconn.execute exec
%>
3 H, Y! A) ^- c* T  T2 j! i% c

3 p8 [" y' o* F1 U5 u: k修改记录处理程序:
7 P; X& R: L4 l: c" A0 E8 c, t<%
+ G  }7 g% F+ D7 l( }, [set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& o, N( J, ~. J# L8 p  Z! A7 t, lexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
5 K: p& z( m' U- {- brs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
0 J: d1 l& |! [5 x5 `: Irs("message")=request.form("字段")
rs.update
( A0 m: [& w$ G0 ?2 frs.close
set rs=nothing
! \1 p0 G, d: econn.close
$ x$ Z( |$ c& o5 C6 kset conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
<%
0 W/ F2 C& m: m6 s  idim name,password
name=request.form("name")
password=request.form("password")
0 u2 }: t) w+ V+ @dim exec,conn,rs
$ F- D5 [: s) gexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 V8 I3 W9 O& H. `9 u% ^set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
/ X) h; m6 z' G& Z9 |- ~2 Ars.Close
conn.Close
session("checked")="yes"
/ V1 e% H0 ?: G! s( S3 Osession("check")="right"
response.Redirect "index.asp"
( q  y8 ]/ L& n7 i/ r+ xelse
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
" {. a- i* n  s' W# k$ g! w* p%>

每个后台页面加上:
( f! I# G5 _" ^6 C5 Z<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
7 N1 X1 ~! d5 O) `" E/ Rresponse.Redirect "login.asp"  
else
9 ~5 r+ j0 W# A%>