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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
. v; H* q+ E5 \& g# k" Oconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>
" M4 Z. Q3 o: [$ ]$ |% q8 _

2 D1 H4 U5 s; G4 N# u9 i  ^打开数据库：
4 H6 `! J2 o0 e/ C: ^exec="select * from 数据库表"
, `3 o% x+ l& i( v+ mset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
) a; q) Z0 ]" ^参数1，1为读取

读取内容格式：<%=rs("字段")%>
6 f) Z/ {. d" C2 W* {8 D% s
1 P' l9 |7 J8 t9 E! _! R2 h! a* a添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
( K) r# ?  R2 h+ aconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 n" g) m! z4 ?) _name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
# |0 Y0 ^& H3 }3 W8 ?message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
( {8 B1 A2 s9 Cconn.close
set conn=nothing
& T7 E- X7 ]! I/ g  h# z%>

搜索处理程序:
* \- L5 ]3 w* x/ V. y<%
! j9 ~3 c( B6 z) e  D5 a5 {name=request.form("字段") name,tel为提交表单所设置的字段值
tel=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="+字段
6 H1 T* t) b5 v4 G; g4 ]set rs=server.createobject("adodb.recordset")
$ U2 e% L5 X- D: D- b+ k9 Brs.open exec,conn,1,1
$ U9 v& {8 n% q) M) N: _%>
$ F; Z3 Z4 z3 q'页面搜索到的内容导出来
- i6 d( T  Z/ h, G9 V<%
! Y$ U" ^& z! f  j0 V- [& Cdo while not rs.eof
%><tr>
2 A7 T* @2 u4 h( @<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
5 T+ G+ T; B1 d& ~* j3 t3 f$ F</tr>
<%
  F( D1 }8 G& e: frs.movenext
loop
% f/ @: Y2 g- `) R' p7 C5 j%>

删除记录处理程序:
, J6 e2 R; z4 [* B1 O<%
set conn=server.createobject("adodb.connection")
# P: E8 o/ e8 F/ lconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
' Y, M8 d8 S. Q# n; }) f; ?exec="delete * from 表名 where 编号="&request.form("id")
$ m# c- w3 p& F/ I3 f" x& jconn.execute exec
1 D6 J% C' O- D; V9 {6 H  _5 V+ \%>


  k! B0 a) t9 [修改记录处理程序:
3 {8 j0 I7 @: H- m5 r. A  e<%
, ^: y" @$ J' e8 Zset conn=server.createobject("adodb.connection")
$ ^1 b0 m& J* M+ e  N# k" z5 ~% Rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
6 m# x& o. o9 \# X; aset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
" |! ]1 t% f2 [rs.update
6 Q/ D# F" Z5 ^rs.close
set rs=nothing
; f0 z4 h3 y. K' k2 V7 _1 Aconn.close
. E. i: H8 |" Y  r, P* x, y( ^7 jset conn=nothing
: c9 X5 _# H3 |$ f4 c%>
  F' U3 ~# `2 B' ?" L修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
1 Q" r7 O* q6 m; R& \
后台登陆处理程序例子:
& p* ~- h/ J/ R<%
# H+ }! z! `) ?+ @6 R* Ydim name,password
" m0 Z" E7 n# {4 S( lname=request.form("name")
password=request.form("password")
dim exec,conn,rs
7 O8 W0 z, l8 @0 _! dexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
$ j$ z3 d9 Z3 ?# Y- cconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
6 H$ ~# _& w! Y6 I- K" qrs.open exec,conn
if not rs.eof then
( M& O" V- T7 z/ i' B; d9 [5 Wrs.Close
1 L( w% v5 h& x2 B6 f  L8 `6 i3 Pconn.Close
session("checked")="yes"
0 g4 d2 B2 d& Z% isession("check")="right"
response.Redirect "index.asp"
else
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
8 [2 e/ Q) ]: r8 Q, K# M# mend if
6 u% [/ w/ A- O% y$ }%>

3 d1 b$ G& _4 q/ n4 i3 S5 o: }" Z每个后台页面加上:
8 `5 I0 A! }) Y. `<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>