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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" [8 `5 ?% \) \4 W1 v; [4 K%>


打开数据库：
2 F; k0 h& a" Z$ W: _# lexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
# {6 ~& s% w( V: b# `8 w( _参数1，1为读取
) u. q0 n8 P! W! w" y
( c& T8 ^4 ^3 H- [( b* Y, _- U1 v读取内容格式：<%=rs("字段")%>
; x- e3 l2 t, d" M3 D* F+ D
添加记录处理程序：
<%
  j. h$ w9 L% E' f# u6 fset conn=server.createobject("adodb.connection")
" {$ }* b  g! e$ e5 Y8 Sconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
" D; {' s9 o& s' S1 ?exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
! x9 E0 N9 M( B8 y+ e; i2 Lconn.execute exec  使用execute提交
! w2 M6 j9 y. @* N2 [0 `  l2 L7 tconn.close
set conn=nothing
%>
  Q  r6 {; Y9 f8 W
3 {# _# N" L# M/ [6 v) G& b' R( T搜索处理程序:
<%
2 `* W* V1 ?7 H# J0 N( V2 Bname=request.form("字段") name,tel为提交表单所设置的字段值
) I7 r) x, _' n& D8 ttel=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="+字段
  B1 z& E) x  W6 i6 f, ?set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
# h0 u; O) C; |2 ?6 K3 e; i'页面搜索到的内容导出来
; v, r+ j* H6 v<%
( p- K* S! v, R+ z5 i2 P0 bdo while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
0 f" a1 G, j- _2 j0 d</tr>
% b# Z! E+ q1 Z% ^7 Q% ?0 ^# a<%
rs.movenext
+ ]' M) d1 k/ `# ploop
# _' F, G( ^3 ?%>
1 r3 x5 e3 V6 f& i% [
删除记录处理程序:
! b* D" ]) k. A  {7 r<%
/ B# S8 W: W. [; Y5 g% Mset conn=server.createobject("adodb.connection")
, u7 C" t+ Q2 D& qconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
" n8 L0 m  c  h+ ?conn.execute exec
% b% D; E- q# ^' X& u' K1 _%>
! q/ V! v: Y# e0 w
" T; j7 H2 |& q' b
( z3 }2 r4 h' g5 [" O修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
* F: j3 o* b0 P$ B, u: o* Nconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 ]4 Y* x" M+ dexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
. B8 D! C' j3 [0 l$ B0 G# l9 Q  ?rs.open exec,conn,1,3  '1,3为修改意思
1 j4 G$ p: A& z6 M# [* B  f) o7 ]1 ^1 irs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
' m$ I  P) U- urs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
2 i: r+ ?/ v/ b# L) |9 A5 ^set rs=nothing
, N" H; K3 B/ Aconn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

2 g: ^3 e0 W( a8 V后台登陆处理程序例子:
% X* ~1 }  h# r" _7 W<%
; F2 @3 N1 j& pdim name,password
0 U) l- D: g( b( w2 k1 i) E7 yname=request.form("name")
password=request.form("password")
& b, ^9 L3 H( A' J* X8 e# b' a# Mdim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
$ ~* x8 `. o' p) `set conn=server.createobject("adodb.connection")
4 N  V5 G+ N* D3 G1 }# X6 `  Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: C! H5 r" m2 L" h9 ^( m" iset rs=server.createobject("adodb.recordset")
0 Z9 D0 ]8 T4 Srs.open exec,conn
- u1 o& Z$ f8 s7 Tif not rs.eof then
rs.Close
+ E% j  ~' O, v# r) fconn.Close
' C$ P2 @: u( w5 O$ T4 \/ Jsession("checked")="yes"
session("check")="right"
% t6 m1 E. d2 P( s8 e% w3 Eresponse.Redirect "index.asp"
4 ]# U, u& a. F( E- ]else
session("checked")="no"
' [. ^. D- @- G) e! s' Msession("check")="wrong"
response.Redirect "login.asp"
4 t+ B1 P, C# L2 i: Uend if
%>
0 u$ P) N! G  ~8 P+ e2 R
每个后台页面加上:
( H# h' p9 e8 A% Q% \# S& `<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>