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

月中水

数据库连接：
. h, g6 ]) H9 Y2 q  n<%
set conn=server.createobject("adodb.connection")
8 s8 D* _4 M7 E0 _! j- hconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. L/ _' i* r( A) O0 T! _% Z%>
$ y9 V4 N0 @0 g( C/ D2 ^* L& i. B  e
0 }$ L; F7 m* r
打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

( o* |6 H+ R% C6 I- h. q读取内容格式：<%=rs("字段")%>
9 S7 F& g' N5 H2 S0 h$ p% }' u% ]7 U
添加记录处理程序：
, M: s" l% ]) R$ z. c: X7 M0 k<%
- y8 w8 x* S; w4 p$ P. _4 [2 @1 _set conn=server.createobject("adodb.connection")
+ o! P6 ]6 T0 I& o% S; W0 rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: R0 c* j" i, X) W1 ^. \. o# Aname=request.form("字段")  name,tel,message为提交表单所设置的字段值
+ D* c- {5 W0 d2 R# vtel=request.form("字段")
- m+ A7 e# w. b5 x  f& Lmessage=request.form("字段")
0 f2 l; n# u0 D6 q) K* h2 G7 v9 T. gexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
2 V0 e9 m1 v# S  fconn.close
% m8 b% z! F0 n) C: Q1 Iset conn=nothing
* V. j: T3 ~7 y8 _8 h7 }8 _4 \%>

+ H; n: Z! H* B1 M, C搜索处理程序:
<%
# a1 B7 ^- D' f5 y# yname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
% I% A7 i) A% y6 U4 s( k+ m- Y5 @% _set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
( f( S$ S6 {8 \8 C3 J%>
'页面搜索到的内容导出来
/ N7 d, H& }0 [$ ~. o0 N<%
) `* Y- ]3 M: ?9 h4 z$ }1 r1 [do while not rs.eof
%><tr>
' X$ ^3 _: A! i& O& u2 e3 H<td><%=rs("name")%></td>
" B/ V/ u3 M- m. \& ?<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
  J. \! M/ U' i1 m<%
1 K0 z5 H2 E' x% Z, B5 A/ |3 g5 Yrs.movenext
, i4 e& Z/ v! e0 C$ q$ Yloop
- [  d  J% U1 u0 v! n%>
* [: o8 k5 e; j1 n% u  j/ \
删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
1 L- y! [7 O( x8 E2 T. g" aconn.execute exec
%>

- y. K9 X& W6 v7 x
( N6 s/ [* i) A修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
- }, H$ ~% F; Pset rs=server.createobject("adodb.recordset")
$ `% C! V5 D, w" D/ `+ Prs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
set rs=nothing
conn.close
1 h. L. F+ }  ~8 U6 b3 d0 v2 W( \set conn=nothing
%>
$ T+ F4 |3 ~% V% n" v4 q修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
8 p" ]; v  r. a
后台登陆处理程序例子:
<%
) t* Z7 w7 @+ a& k1 a; Idim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
* {- f" p" S, `: M; P6 H' j0 zset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% n  c3 E4 P4 C% X$ F0 pset rs=server.createobject("adodb.recordset")
6 a4 Z& @- b: H: M: v5 ers.open exec,conn
9 R1 b9 v+ L; n: }! t- Gif not rs.eof then
rs.Close
3 A3 X/ e. V: u8 |1 E  B9 econn.Close
session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
9 A7 d4 _$ ^0 Aelse
: F/ n3 ~* l! ~session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
/ {% {5 l( S# k/ H2 w) @) zend if
%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
" J# ~1 Q9 c# @* u; J8 ~else
$ r. m8 o; D" g+ h$ e3 D%>