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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
8 B1 |5 f5 ?+ j- Rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 H; Z; X6 H8 C$ U/ [! A& m%>
* y& z( t. S" k4 a' |, y

打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
: w; |9 D* r5 _rs.open exec,conn,1,1
" w" N# C" g7 r7 h参数1，1为读取

读取内容格式：<%=rs("字段")%>
, e( u  ]/ j5 c; H" ?
, q* f7 F  D+ F# ]5 w9 N添加记录处理程序：
<%
" I! a0 x7 V' S$ ~, I* w" i, z) lset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
' L8 e9 ]$ q, Zname=request.form("字段")  name,tel,message为提交表单所设置的字段值
( ?/ l) N9 L- n5 Z8 P! V0 rtel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
9 J/ _5 y8 c+ {  `$ m# u" G9 iconn.execute exec  使用execute提交
conn.close
set conn=nothing
%>

& {: G. Q4 K# I5 e搜索处理程序:
<%
( J6 Q$ h4 D& E* x; yname=request.form("字段") name,tel为提交表单所设置的字段值
4 P& Z  h5 T' F6 F* z4 f: atel=request.form("字段")
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")
8 @' F- }7 `- `1 trs.open exec,conn,1,1
%>
+ L9 u7 y- }) ]  }: G7 U/ W'页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
" s5 A% E& H9 O9 c<td><%=rs("name")%></td>
$ v/ J5 ^% N& v6 ]( L- S% x. l<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
<%
) E' P7 ~9 }7 ~$ X. A$ grs.movenext
2 h- ]2 `: t6 l* w0 cloop
- ^1 k- A+ |, \& R5 H%>
& K( E, k( m. }7 t
删除记录处理程序:
$ M8 b& _$ y8 Y; M8 i, w" F<%
+ i) s- e! C# b, K$ Wset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
3 s1 e0 g6 r2 n( ~8 zconn.execute exec
) }3 `! b" I+ C( q1 g- _%>
  P- @9 w! |6 u2 }4 \* w4 G  T
3 y$ ?% ^# f$ ^: _/ R
  ^* T. K) J% w  J修改记录处理程序:
* |( @3 t0 u3 V: Q" s) e" F<%
  F% i2 k# c3 \9 d8 O6 Fset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
1 N7 Z2 {5 g1 y' P& J: ^set rs=server.createobject("adodb.recordset")
, ?' r- D# v" x  I! B1 s1 Grs.open exec,conn,1,3  '1,3为修改意思
& b0 T+ I# q: W0 J- c: d* ]% A) h+ ars("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
" h: T& |) X1 y. t# y+ `0 ?rs("tel")=request.form("字段")
rs("message")=request.form("字段")
2 U( E( S. p: \/ @" h  frs.update
rs.close
% D) y* W- R* B: h" q! Z- jset rs=nothing
& v. l' c1 ?$ y; K* Uconn.close
, S% J! ^! d+ f! U" kset conn=nothing
) O5 T5 G- m) N# U%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

& c* T. s( q" }0 ]& `( e3 O) Y后台登陆处理程序例子:
<%
dim name,password
name=request.form("name")
password=request.form("password")
" l1 b, }% k( rdim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
1 T- i4 S4 i' x. ]set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
. J8 F4 `7 @4 O, ^+ {4 yrs.Close
  M2 J" [2 r) |8 Bconn.Close
  \* m+ c2 x% ]5 @) hsession("checked")="yes"
session("check")="right"
+ j) r( _' g6 g; ]% N4 a; P: ~response.Redirect "index.asp"
( @+ U% l$ K1 Belse
0 V  C  l( s4 N1 D( V/ Hsession("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
+ m& [- p& Q. l%>
% O% u+ r5 F4 E" Q5 e( m/ x
每个后台页面加上:
, u# a2 ^, r) m0 I<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
  X& n3 b4 o$ W  ^5 [& sresponse.Redirect "login.asp"  
else
) r- w2 ]+ \9 @- Y- s%>