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

月中水

数据库连接：
5 f  ~6 Z' G  c+ ~" Y  d5 v: `1 l<%
7 a) t* w) L- S0 T$ Lset conn=server.createobject("adodb.connection")
+ x+ s! E3 L; ]+ mconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 c) L2 R( E) D0 g6 v%>
/ i6 }- l% P0 G
3 [& ^$ o' h, J  S/ m' D/ p. `$ E/ Y; h
打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
0 x; k! h3 ~+ o5 [( A, B- t- Nrs.open exec,conn,1,1
5 {, s% _2 \7 T0 Q4 K: ]& x7 p参数1，1为读取
5 s2 Q- S3 I- S0 C
读取内容格式：<%=rs("字段")%>
% C% r1 H+ `2 M% L
添加记录处理程序：
+ G' L/ n/ D9 f5 G8 y0 G' Z<%
" I  D/ Y5 B8 O: Iset conn=server.createobject("adodb.connection")
; r5 \9 J# X0 M8 g- S; H% {9 ^9 lconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
" l  P2 I/ B% [9 ~- p) K; g; Q# @, rtel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
7 m  x! y% H; W' P9 ^2 I3 |conn.execute exec  使用execute提交
, w+ Z8 K6 [  n! L4 b0 Aconn.close
set conn=nothing
%>
( s5 F- `& |$ \* C+ B$ t) y7 Z
搜索处理程序:
! M  _6 v- @9 c) z) d2 E# ^) f<%
. t8 R. R) U/ h# y# gname=request.form("字段") name,tel为提交表单所设置的字段值
/ m: s3 T8 M; m+ ~; j! a: qtel=request.form("字段")
set conn=server.createobject("adodb.connection")
/ W7 `0 J3 r$ Lconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
4 v6 i* t1 q# Vset rs=server.createobject("adodb.recordset")
+ d+ U- f5 w9 {; |( z& drs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
8 L2 ?) m( V+ E! I# y/ R7 o( ?0 y<%
  E- y- R- U6 d; ~/ i% g! J4 Ddo while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
6 L3 W. f0 o2 W<td><%=rs("time")%></td>
</tr>
<%
- |& t) c* M5 f- ?. `rs.movenext
loop
0 R7 Z. k4 c+ z%>
9 E7 l, @" V) f, T7 A  F' B
删除记录处理程序:
<%
1 J) f  t) t! U- Aset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>

/ D* q+ a* E" }5 v% N2 \
修改记录处理程序:
<%
9 _: f1 S* W! z& o& c9 j; M0 wset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
* U# T1 s! N. q7 ~2 S. C$ \* X) ?2 Srs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
" U0 h1 K* j, i. ?rs("message")=request.form("字段")
2 W' Z' V) V; L) w: i$ I( ]9 nrs.update
5 Y9 J5 H8 n0 }. @, @* Q6 Ers.close
3 V/ T- Z/ O7 \! j" M0 _  n$ Xset rs=nothing
* M0 f; c5 @2 \1 s" M. econn.close
& c/ s! y4 ]- @set conn=nothing
%>
$ Z7 D2 y' H; l* M$ f/ l修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
/ H7 b4 H" @- V0 K, t% ^5 m<%
dim name,password
1 N* @* f' x4 ~9 ]+ b) y# cname=request.form("name")
1 ~. i. r- G- Cpassword=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
+ _+ g0 h. w# O  S& w$ gset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
session("checked")="yes"
1 p6 ^+ o9 X/ F: l* Usession("check")="right"
response.Redirect "index.asp"
& D7 e. V- F# q/ q7 oelse
! ^) s& O/ E( k+ p3 ?) n" D# dsession("checked")="no"
$ ^' L: E. Y! xsession("check")="wrong"
# b6 V+ q1 w+ @) V1 P" `% r4 Z* Zresponse.Redirect "login.asp"
: G1 V) J! Y& p, o- K: U) Q9 X, @end if
%>
! c" p1 e% e7 s: k# L$ `
0 ?5 _4 a7 a8 x6 P( `+ G每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
9 T; j% a8 ^) g. z) M$ X+ lresponse.Redirect "login.asp"  
, z2 W9 H( C  e9 h- H9 relse
%>