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

月中水

数据库连接：
<%
: U: T# d  U( J& ~set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>

3 ]3 a$ w( T- r/ v
打开数据库：
exec="select * from 数据库表"
+ Y& p' `$ q5 e. B$ u$ [) c: `set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
0 ~" W/ L+ b& Z! I$ c, m
读取内容格式：<%=rs("字段")%>

" K6 n' `0 f9 [& h添加记录处理程序：
<%
9 Y+ G% q& ]7 S; |. q& g4 xset conn=server.createobject("adodb.connection")
% S. T# Q  S' s/ T& _conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
$ H% P9 L9 d* \6 s5 V" ?- jmessage=request.form("字段")
" ~3 t9 K" _. i* Yexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
% X2 U! d* [/ Fconn.close
; ?+ O- u7 k3 _7 J9 Rset conn=nothing
' e( F9 {! X" L  G+ T* _%>
) [8 ~9 H+ G* \1 y( Y. ?
' \$ g, e( [) a搜索处理程序:
: A' I/ F+ a7 l. B5 S! F<%
+ ~) j2 g2 ^2 Aname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
/ P" E* a8 h6 i! f: e# O5 Irs.open exec,conn,1,1
& [: `% ~1 s  @$ {: [$ b) N. `! {%>
$ f) @& o4 w5 {, r( C9 N& k) _9 ]'页面搜索到的内容导出来
<%
do while not rs.eof
5 y) q0 |; }) H" S0 O5 E%><tr>
<td><%=rs("name")%></td>
; {! d0 @$ ?4 E<td><%=rs("tel")%></td>
& u: w5 l5 Y" o, D<td><%=rs("time")%></td>
</tr>
<%
6 Y9 _2 o- i8 E& Grs.movenext
( K5 B/ C& G) g( tloop
6 \  ?2 Z& ?* L+ u  f3 Q%>
! m: |, b3 H% R, a' S. B, A7 S0 i
删除记录处理程序:
' w* S+ {9 C2 O* l& `& R<%
: e' H5 k7 e- y* lset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( F: ^% u  G. }1 P5 [: Y- Iexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
7 b, q# `; M( _. j) w5 g0 T%>
+ O0 `& `9 _7 w  n/ P# w
9 P; _3 c7 ?3 C- Z0 C& t
8 O* H. E, F$ F8 I; U; `( O修改记录处理程序:
<%
; U8 p- g- n% f! qset conn=server.createobject("adodb.connection")
2 Q+ n' R8 f  v, c3 E$ n4 yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! i* f/ f5 [9 pexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
0 ?) T4 y0 j6 T, T+ c- hrs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
( q( {3 |: O* Yrs("message")=request.form("字段")
rs.update
6 p0 E: n2 H+ u  |rs.close
" n8 ]  C, z% j: n0 cset rs=nothing
9 Z+ |$ g" `/ ^conn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
' P) ^/ ]! r4 b8 t. f0 T$ j
/ @; m' [4 O/ I+ d后台登陆处理程序例子:
<%
dim name,password
5 V; J9 O) c4 M0 B" P* K0 j$ @name=request.form("name")
' ?- C! r+ q/ x+ w8 Ppassword=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
; h# a6 q4 Y- {5 A  k9 X/ f  t) U9 ^conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 ~+ S- Q& U  N2 R/ Dset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
0 ?9 Y/ o' p: H. Y0 n$ brs.Close
conn.Close
% \! M) N) B+ X. h5 e& U/ dsession("checked")="yes"
5 A8 o- [* q" @session("check")="right"
5 P! r6 Z* ]" E0 u; ~  [response.Redirect "index.asp"
. K) r8 z: W" k3 e, d# d) jelse
session("checked")="no"
session("check")="wrong"
* O, z% d' M  p& w1 u7 K. P7 [response.Redirect "login.asp"
end if
%>

7 m3 [5 ?1 \+ f/ n* ^" U每个后台页面加上:
( p6 L9 j% F' e( L<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
else
%>