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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
. T3 a  p+ ?- @8 v9 `conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


打开数据库：
8 n1 l- e" F4 z9 ^  t+ kexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
, j* t( s5 q& ]6 ~: Q
读取内容格式：<%=rs("字段")%>

添加记录处理程序：
+ n! |3 f" Y" ~8 Y- N" o3 d<%
( \: r3 p/ i- w3 p5 _& v4 X, z/ ^set conn=server.createobject("adodb.connection")
+ X( C% ]- c$ c$ _1 _conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
3 z# u2 V5 p, |" Z. q$ Atel=request.form("字段")
; m5 E. K3 z: i0 }2 Q6 Cmessage=request.form("字段")
, P, x  R7 ?3 n& D. nexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
9 L" t9 z( s+ V& X2 ?( v( Q) Gconn.execute exec  使用execute提交
# a9 e/ v0 n7 [, K, M) @7 Wconn.close
) s4 w; e1 [; f! Yset conn=nothing
%>
- P* M1 q, a$ ?6 Y; I4 ~: E
搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
: a6 T3 r" l# j% p: T1 Z7 otel=request.form("字段")
0 x: j1 Q2 d) [* o0 Z! Mset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* _" _% j. e- a/ ~  j- \% \exec="select * from 表 where name='"+字段+"' and tel="+字段
7 L" ~9 E4 j. Cset rs=server.createobject("adodb.recordset")
4 k. f9 P; A' Q8 ~! l& q# zrs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
7 h4 F8 }$ h" J& V<%
# o: W. ?7 r" pdo while not rs.eof
%><tr>
$ n. Y7 z$ x6 I! U% m0 P2 P<td><%=rs("name")%></td>
# `/ D& [6 k- v2 r<td><%=rs("tel")%></td>
# K$ U. k# i5 S8 Q0 \& `<td><%=rs("time")%></td>
5 x1 r; _& U* R5 C</tr>
& R1 F1 ?2 g) `9 e) b) j<%
; s) H; ]0 }! b' N: V' P% grs.movenext
: p. |3 ?* u0 @: Z+ ?! V# K+ floop
$ H" I% V& d3 {5 F  [7 q8 n%>
- E7 v0 `& N- ?( D, T
删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
4 t. W. F5 Z. O# I% c8 s+ @conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. [/ H9 f- O- _3 Fexec="delete * from 表名 where 编号="&request.form("id")
" ^) R" y# s5 w$ R( p) }: h9 N! x& {+ Econn.execute exec
  H7 L. h7 T. S/ t: J, ?%>

4 X1 q+ w% p" Q& q; J3 \
8 S, o8 z; \0 p, e8 T4 G& t修改记录处理程序:
<%
5 c# T, _1 |& e2 C( x- X$ N" Pset conn=server.createobject("adodb.connection")
# ?  [4 s) Z; }1 e+ Dconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. @9 D" U, _: ]# zexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
6 V1 Z+ O( c& Z1 ers("tel")=request.form("字段")
- B4 H1 U8 [/ F3 Z& E: J1 Rrs("message")=request.form("字段")
3 P, R2 x' J$ j( Srs.update
rs.close
! R2 Q% k0 A9 O* d0 D- _: U- L" g2 Dset rs=nothing
conn.close
set conn=nothing
, ~  G5 R+ v1 e! [& ^' S%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
<%
dim name,password
1 p& q/ R5 X- Z% v: Y% mname=request.form("name")
! E$ x$ w2 C! ?% q3 Mpassword=request.form("password")
dim exec,conn,rs
8 Y5 v: d$ m6 Yexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
9 Q; Q* ]8 N5 E# e9 }$ a, Yset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
) g' L3 y; f  [4 `) a: Brs.open exec,conn
7 d+ g! Z( B$ f6 E3 m! Y; D5 lif not rs.eof then
rs.Close
conn.Close
session("checked")="yes"
session("check")="right"
! {1 a2 Z! i6 N: L( u7 Mresponse.Redirect "index.asp"
else
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
- o, V4 D9 _8 N8 r0 A! bend if
- W5 x& f5 R" S" N; @%>
1 P2 v( b, f6 U5 o
每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
+ @) d$ R8 Y# q# f% v3 ?0 Zresponse.Redirect "login.asp"  
! a! i6 R( m: c2 R4 C0 V) \else
! v: C) |! x9 ~& u) S, P. o%>