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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
0 F1 M, j3 X6 e- |' }conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>
) N# j; w: O) _* n' k
; U; n2 S. {0 O9 H, ~
5 Q! i: x! i) o" m# y& W  R打开数据库：
exec="select * from 数据库表"
- O% w' Y1 _' d& eset rs=server.createobject("adodb.recordset")
$ t; N. V% G) }' {! e' e6 rrs.open exec,conn,1,1
0 q8 g- F0 [% C' k参数1，1为读取
4 d$ z3 T/ e( R, p1 S! m" G- G
( W5 G8 N9 v9 P; M! Z( ?读取内容格式：<%=rs("字段")%>
. r  q0 H: p# `* n& `0 U
添加记录处理程序：
<%
0 j1 Y1 Q5 E3 hset conn=server.createobject("adodb.connection")
# o+ }, m" |1 x. ]1 uconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" e# R# A* j; wname=request.form("字段")  name,tel,message为提交表单所设置的字段值
, ^8 S% Y: R  ltel=request.form("字段")
/ n- Z! o6 i" C. c' V$ cmessage=request.form("字段")
1 h' X4 ]" J& vexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
4 S0 W# G9 e/ Uconn.execute exec  使用execute提交
2 s- Y: i& {3 Kconn.close
/ t' {, J. W: N: ^$ H. nset conn=nothing
, b+ `: y  a/ p" u2 ^%>

搜索处理程序:
( k0 b" g7 \: W9 S' k2 Z<%
name=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
( a' L: c* e- P. z) q. \set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
( M/ f0 n9 L+ Iset rs=server.createobject("adodb.recordset")
$ L3 T- E* H: i" n5 trs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
<%
: v, D" J. s0 T# odo while not rs.eof
$ v3 ^- v  ^- b( W%><tr>
, S: H+ k! n5 q. `# C  j7 m<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
* t, ~3 Y* _. ?; n2 j* i6 `  S5 _, U</tr>
( }5 X/ g7 h1 o& z( k<%
8 p" I$ F6 {- Ors.movenext
! ~' [  N# ?& iloop
%>

$ O" p7 G4 k3 Y: V* j8 f/ A% }7 T删除记录处理程序:
, ^* A. C9 _- Z<%
6 }1 U! J% f4 j, a5 wset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
9 D. p3 Y) i0 W$ o' @* M" R: Tconn.execute exec
  G2 [/ ~- }/ W5 g5 w%>
1 y! j7 s1 _3 h

修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
: G! g) D) i8 v* j' R4 Sconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
) B) d! O0 x+ i" D2 C( I; Nrs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
% I  a* [$ d( t. {rs("tel")=request.form("字段")
7 Z/ T- a# a! S& grs("message")=request.form("字段")
rs.update
: B) f5 o( I0 i! s. R1 trs.close
; @  H9 k) e. z- @1 Eset rs=nothing
3 h. I. p! {. V8 X8 S! sconn.close
9 i, P3 R, H) y8 O( l* A5 M5 c5 fset conn=nothing
8 ?+ @% D1 p! Y* P# I) B%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

' _! T' ]+ [2 {/ }2 r. R; @5 {- H后台登陆处理程序例子:
) [# `, v$ g9 o7 b<%
dim name,password
name=request.form("name")
6 H! ^& r% w; N* J6 p; o7 @password=request.form("password")
dim exec,conn,rs
  s+ X& l! }4 j# Vexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
. D, R( {& T$ j4 d" Hconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! ~# p# _- y0 V- m4 Aset rs=server.createobject("adodb.recordset")
8 ~- V  q- X& A5 }rs.open exec,conn
( B& G2 K/ ]& [- A( E- ?if not rs.eof then
1 M  b( B  _$ p! Q$ Lrs.Close
: R8 U8 W& U$ }# econn.Close
session("checked")="yes"
3 }5 k8 p5 \' r3 D5 m, H$ ksession("check")="right"
) C6 p% {. y' Mresponse.Redirect "index.asp"
else
/ T* j0 ]) O& _session("checked")="no"
4 U* H/ L; ^: }5 ?  n9 u4 D8 ssession("check")="wrong"
response.Redirect "login.asp"
1 x3 R: U! X# J3 s+ aend if
6 Y( |, L. {% d" M, Y%>

8 \9 Q3 H, D/ m9 o3 o每个后台页面加上:
9 r: K( r7 k/ M" \3 ^  v<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
3 t/ x9 F( w2 d$ Q6 nresponse.Redirect "login.asp"  
5 D9 q( t. p) K& b! |" O2 L: K6 @else
. ^+ p9 e" F+ N3 O4 L%>