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

月中水

数据库连接：
<%
/ `- Q/ u, d; y; C* Fset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

7 j7 p! Y; W+ a; w* j2 u
# u4 v+ h' N$ g; {! ]* S1 N. S打开数据库：
7 v0 ?- t8 ^& C) mexec="select * from 数据库表"
4 K. i  q) D3 u4 v0 S6 iset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
; r8 K/ n! A& p参数1，1为读取

; w2 S9 _# R8 `4 r# B# {! ~, X读取内容格式：<%=rs("字段")%>

! P/ r- D9 q5 N: ]) d) r* L添加记录处理程序：
# n) _1 {9 m( c7 ^4 h<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! |8 J" L4 q  E4 s) Rname=request.form("字段")  name,tel,message为提交表单所设置的字段值
1 X8 v: l; ^) r: Ctel=request.form("字段")
% v+ N6 [6 |0 [( q8 s) i* Vmessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
& j; Q. B+ W9 `2 _/ z: _! l- ~conn.execute exec  使用execute提交
+ M: O! C9 l8 Y  l9 A/ ~6 r0 r' O) zconn.close
; i/ g9 V, |1 m- mset conn=nothing
%>
" U- Z$ l' k; d* b& g: q/ N* Q
搜索处理程序:
<%
6 e4 [) d! H5 K- @  q  |name=request.form("字段") name,tel为提交表单所设置的字段值
$ H# Y6 r$ k+ ], f: E/ u; y* ~tel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" m: W4 }2 J( k" f: E8 sexec="select * from 表 where name='"+字段+"' and tel="+字段
2 f* B! g+ R8 J* C, t. \" Fset rs=server.createobject("adodb.recordset")
# }, n( o5 }: h" E$ Zrs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
<%
6 d( a% K( t, ^+ E$ v, Bdo while not rs.eof
" }- I5 I6 g8 X4 A' c2 H%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
5 i2 g: K6 g3 N0 ?9 X4 l<%
rs.movenext
loop
%>
( M2 [; \0 X# F' v+ O# S5 t: [
' ]- q$ R! N0 x, f) ?6 M$ [删除记录处理程序:
2 q3 y& ]3 M. {6 I: w9 ^: ]! i8 d, m<%
set conn=server.createobject("adodb.connection")
0 @9 c9 O5 R  W. y7 `7 Rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 S' H4 T4 s2 p8 ]exec="delete * from 表名 where 编号="&request.form("id")
0 `- |8 p8 Z4 q  vconn.execute exec
- F7 \$ a" N5 y7 T0 T%>
# {$ e8 V: `. T5 h0 N6 I# J
: i- Q% S5 N  z4 d8 B- L3 b
* r+ |7 z# ~. {: O; g. Z修改记录处理程序:
4 U2 z" g9 \' y  J+ j! j8 {<%
, I6 p  e4 x& q* b, r+ {3 l/ E$ mset conn=server.createobject("adodb.connection")
0 z4 k1 L7 X. l6 fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 i9 Z/ W2 y2 o/ R3 q' gexec="select * from 表名 where 编号="&request.form("id")
+ C: \0 f& p- e9 l8 @& I4 W: aset rs=server.createobject("adodb.recordset")
5 [2 T0 c* d% b- Irs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
; }$ `. \9 g; jrs.close
5 C% O$ f! J8 J3 xset rs=nothing
% j/ B4 p  x4 T/ {conn.close
set conn=nothing
( L1 j& k: l& f7 n%>
8 P0 I# @/ h; ^$ b  K- q* Z修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
* x( M' i3 o/ T( y
后台登陆处理程序例子:
<%
" n/ u2 X. F; tdim name,password
name=request.form("name")
" u% M( c% Q' Qpassword=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
  O9 E8 _8 \" c% k; i+ Ars.open exec,conn
$ ]& v- @  v$ Z: k8 h% x+ yif not rs.eof then
rs.Close
* x1 ^) [8 i8 C' e, Z, Y" o9 kconn.Close
0 q4 f* i7 [" j) t* jsession("checked")="yes"
) U- z5 @" ~6 `* B4 R4 usession("check")="right"
response.Redirect "index.asp"
else
session("checked")="no"
session("check")="wrong"
" M9 ^4 E8 K6 iresponse.Redirect "login.asp"
end if
# Q6 G; t6 B+ l! M%>
: O) f8 L/ x; C6 s( ?
3 B; F# D9 j( F) `每个后台页面加上:
( y8 s# F% {2 {- g<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>