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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% C! }* D9 M% M" e- s% i%>
- y8 n* i" b# r2 ~: e; S$ I
# Z' O# B- Q9 y3 \
( D0 m/ h" p) [+ v打开数据库：
$ w7 |6 D: z( K) oexec="select * from 数据库表"
8 r/ B: i, n. Z& B% Bset rs=server.createobject("adodb.recordset")
% h$ p" w% ]& |# ^( n% crs.open exec,conn,1,1
, ^5 \7 z: L" m* b$ C9 m, o参数1，1为读取
! i5 h3 M$ z, `% K# ^, C" ?
4 ^6 ~5 U& d1 H2 ^读取内容格式：<%=rs("字段")%>

1 S1 ^: y; B) f* i添加记录处理程序：
1 [3 t+ _" ~5 Z( ~<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ k: Z' W8 \" `' n# U3 [& oname=request.form("字段")  name,tel,message为提交表单所设置的字段值
; e( c4 D9 |0 E. ^9 c/ ptel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
3 C/ C1 |- }5 P& A# Lconn.execute exec  使用execute提交
- [! F6 v7 L5 R' R: a' Rconn.close
set conn=nothing
%>

8 J. {5 x2 p3 P9 B( V: m搜索处理程序:
1 K& y2 [, j, w# C5 Y3 k+ {<%
name=request.form("字段") name,tel为提交表单所设置的字段值
, P+ }. k% _  y; X- c3 N4 m: s. I9 dtel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! s; t  s3 W* [  E( |exec="select * from 表 where name='"+字段+"' and tel="+字段
1 X' B. R4 P$ f, t% iset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
$ n" H0 C% k' Q0 y. |* O7 x%>
) S, k+ F9 i- v& O'页面搜索到的内容导出来
1 B0 G- I0 X6 Y" \0 O# I0 ~  \<%
. o! w+ D+ {% Tdo while not rs.eof
/ @4 X. u/ J1 G0 Q# v. X%><tr>
" b* d' n  A# `; y9 y; Y; y- _" z, W<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
; `/ a. o3 }5 q3 s</tr>
<%
7 n/ l8 f5 F8 f* t) F( X" hrs.movenext
% j) c; ~- X. kloop
%>
2 ?3 c' v) X  p# b3 t& R
删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
" G2 }) s7 ^( K" I% econn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
& m1 y+ ~3 D: a0 w, Zconn.execute exec
2 c& ]" K% l8 |" @( }%>
- L. a3 _. V( J( e+ u

修改记录处理程序:
; q3 o; x, ?& e& J- s& h<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* u# ~* c% _  C% e2 Dexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
1 [% [. U( W# I& q  ^5 mrs.open exec,conn,1,3  '1,3为修改意思
  T+ _/ S! S# F; u, x& O" }rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
- N  h' \/ x3 {+ A* srs("tel")=request.form("字段")
5 e! e7 W) M/ p& j9 B1 {rs("message")=request.form("字段")
rs.update
6 x9 Z$ s. G( A: \' W, lrs.close
set rs=nothing
conn.close
) U- Z* j/ {7 T; jset conn=nothing
%>
( x4 P3 g4 {% Z! u( h9 @修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

$ E: J  L+ y. I3 g( I3 x3 i后台登陆处理程序例子:
: A0 z1 t3 ~2 u3 l; p8 u<%
% E$ L( _: o! X& L; udim name,password
name=request.form("name")
$ A, X) Z* E) a+ A% w  C5 @password=request.form("password")
  H8 s+ x! g' A( T: t6 Sdim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
2 v7 }6 Y$ O  Aset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* M6 V0 d) G9 u4 `set rs=server.createobject("adodb.recordset")
rs.open exec,conn
5 I+ t( C4 ]( i9 {3 pif not rs.eof then
  J* e1 ~4 h% k6 W  s& krs.Close
7 x' _  m" o( I4 c( w! ?& j6 v; lconn.Close
session("checked")="yes"
  Z. c8 t$ s" c4 L4 ~& x. |& S" v8 Osession("check")="right"
response.Redirect "index.asp"
0 q/ p/ R) j7 Relse
session("checked")="no"
( W; M$ r. G+ u7 F. [session("check")="wrong"
" A8 h' i3 W2 x2 Z: G* Nresponse.Redirect "login.asp"
4 v0 ]! u/ I* r' ^end if
%>

每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
1 f- s: F/ w2 K# A1 s. J9 Sresponse.Redirect "login.asp"  
7 ?+ @6 _1 H, ]5 Z6 ?else
%>