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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
1 w4 u) k8 \1 a: }6 m' u* sconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

$ O$ l( ?' k0 G- q8 A) v
! S5 }. J4 S, O打开数据库：
exec="select * from 数据库表"
: U' s2 d2 W1 L& e$ V: Wset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
# p. H8 t: l+ w
( e0 O' o# q  o5 U+ X% S# d读取内容格式：<%=rs("字段")%>
. x% Q6 d; M2 g8 ]0 l" t, ~
4 U. U/ {' F8 b7 ?0 d2 \2 F9 ]添加记录处理程序：
<%
' K! Q( T( o% X3 V6 G/ ~set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& N2 c% S8 b$ R/ W7 X; Zname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
3 ~  H4 S, q1 K! X1 `exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
& P$ m3 [0 `+ B: ?6 s# d4 Vset conn=nothing
%>
. [3 t2 H: }3 a" y, ^5 x6 n
搜索处理程序:
2 k5 ?# ?) ~! e& i* q4 O, [; T<%
% u# y/ c* I2 x' p* m. e6 y; dname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
' ^# @9 `9 T3 [set conn=server.createobject("adodb.connection")
; J+ b' e$ F7 |0 e  L. v- y- d6 a! ^conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 n% _/ A7 z4 |+ ?2 Rexec="select * from 表 where name='"+字段+"' and tel="+字段
& O  z( F, U" i8 u  O! q& pset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
1 P6 Q0 n" m: I' I  |<%
do while not rs.eof
7 S! D) A/ P1 A%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
' L. @! w- _6 H, }" c& h; `<td><%=rs("time")%></td>
</tr>
<%
$ b! |' N! g' E; trs.movenext
7 x/ a; s4 i% l7 I# h8 `2 tloop
%>

0 J5 U8 S8 M' d0 D4 ]. B删除记录处理程序:
<%
, R# u! d- Q, {set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ z  G1 j6 O, U( u0 ^% Cexec="delete * from 表名 where 编号="&request.form("id")
4 U. L7 @- i( J# Qconn.execute exec
%>
, {& k- \& [/ h" o/ M
- m( q3 h: j/ q: d; ]
修改记录处理程序:
<%
1 d, h$ m+ ~% V) I( `# U/ H. oset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 C. ^  F+ C' X" G& Nexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
) l4 Y9 R9 R0 I+ r3 g4 h# a/ B/ \; ars("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
: U) Q7 n& D' B: j' P, d! p% srs.close
$ E' o  O0 l% i& [, b9 Eset rs=nothing
0 o" l8 W& C! J2 ^  Iconn.close
set conn=nothing
1 J; V5 K( b4 [%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
5 Q: b% X; M+ t0 ~: h$ O
后台登陆处理程序例子:
<%
1 o6 B9 G! Z9 cdim name,password
$ P" x. F# ?$ X- V  W6 i+ U, iname=request.form("name")
7 m2 Z1 ^* Z' `8 y5 Qpassword=request.form("password")
2 t5 q- F1 x7 s9 W3 D8 U$ p" tdim exec,conn,rs
# F1 r" ]" q( A, C) R4 Jexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
% ~0 N% j6 J& R( e/ u% i( \conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" Z; u+ J! ]6 @; I7 y, L- j7 Wset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
# F) |- r% C: B7 Rrs.Close
, ]) q. U* _7 ~conn.Close
session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
else
( h& [# C4 V$ G, X6 Q) R9 csession("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
# y8 t  u$ y1 K/ ^%>
+ ?8 R0 v7 p6 G6 N
) \; d* P, _" U% U, X# p  O每个后台页面加上:
. T8 N  E: f& X# W8 P7 p+ `<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
/ F  f  a" i. `+ \+ T% Lresponse.Redirect "login.asp"  
else
% L- ?/ W; ~# ?: n3 u%>