飞翔无限fxwx.com广西经贸职业技术学院论坛

标题: [建站技术]每个ASP程序员必备的知识 [打印本页]

---

作者: 月中水    时间: 2009-10-16 01:12
标题: [建站技术]每个ASP程序员必备的知识
数据库连接：
- Y) J& T4 Y; Z3 B( T. F<%
2 A7 {: r* p* H6 Y7 K; ~3 V0 sset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


, a. ?$ ?0 Q& |' Q4 {& v# V打开数据库：
2 ^  s& ^; u: B: y6 T5 n$ x8 V9 I  }exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
/ r1 j+ b: K2 A2 I$ M; C& frs.open exec,conn,1,1
5 S6 K/ N$ w8 h' \参数1，1为读取
' r! D/ w; z; ]4 k# ?; S0 o
读取内容格式：<%=rs("字段")%>

3 ?# J# o( n& P& B9 \) m: \$ `添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# a# n, y, u( r1 @name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
; r( k+ ~0 T" h& T! cconn.close
, _+ E/ A' m7 @% Xset conn=nothing
%>
0 s: o, a. m3 x) a, i5 Y3 [: J
搜索处理程序:
<%
/ r3 m0 g; ]2 ]' mname=request.form("字段") name,tel为提交表单所设置的字段值
tel=request.form("字段")
set conn=server.createobject("adodb.connection")
" R# ~' b7 N& N5 @" i/ zconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
" }. u# t; v. Wset rs=server.createobject("adodb.recordset")
0 u" o! O# f+ _  @rs.open exec,conn,1,1
/ m8 X- p# P' V, D% z8 J%>
'页面搜索到的内容导出来
7 O3 {6 M8 T3 r6 h4 m9 g9 r0 k/ X<%
do while not rs.eof
%><tr>
4 F( P5 T$ D' _3 F( \" V: v# r3 S<td><%=rs("name")%></td>
% m6 u! Y+ G1 N* B% M. v' ^<td><%=rs("tel")%></td>
# ^  z! G/ e* P- i1 m<td><%=rs("time")%></td>
: E1 Q1 |; Y1 ^6 L1 X3 L: Q. K</tr>
) S/ e+ B$ ?$ |<%
rs.movenext
# x: ^$ a) X+ n9 Q5 |" D; a5 hloop
/ R" N2 n7 h# H0 p% e4 p$ ^%>
$ |8 u. u. I! i  i3 B6 ^
删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
/ C; B' M" a( l+ |/ bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
  B# W- H2 G" L3 s  K. h0 Tconn.execute exec
%>
+ b" P: E4 f% @: h# T4 `

修改记录处理程序:
- {: Q& V; P; P( D8 c<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( s" N( g+ A! ?( ^exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
" f2 I7 h: D2 a- e. mrs.open exec,conn,1,3  '1,3为修改意思
3 n& p4 |" V8 Z# T: Xrs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
  y/ b6 W& I; b7 N+ [* Ers("message")=request.form("字段")
rs.update
8 x5 G: Z0 }6 u: V6 N( Prs.close
' H  z/ Z3 l, x) n# dset rs=nothing
0 t1 ^3 s' Q  G* L4 k  k% }4 rconn.close
. ^, m; U8 z+ d  ^set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
* W0 N- w  N, o8 |
后台登陆处理程序例子:
. G8 P# d8 z3 c7 ^$ C<%
dim name,password
name=request.form("name")
# ^$ \' S2 U: L2 `, a1 U5 Qpassword=request.form("password")
( h8 o0 b% m  @. |3 Zdim exec,conn,rs
  k3 d; X; \8 {$ Q. c) z. b0 P; Uexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
& Q& E6 t7 U  c' {7 z0 ]set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
  ]+ ~! }3 k7 m$ C$ dset rs=server.createobject("adodb.recordset")
1 c' D6 F: _5 jrs.open exec,conn
5 s( D, }# @) ]" Rif not rs.eof then
rs.Close
) _+ k2 W  ~8 D# q0 \conn.Close
session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
else
) o& F0 U1 }1 E9 g0 r; O- j/ ssession("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
%>
% B( K1 P5 q1 I/ f6 k6 M, e, Z
3 O& }8 P& p3 {5 e/ V" u' `每个后台页面加上:
0 ]' o1 Z5 a* S" @0 j0 Z<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
$ ~9 z9 x5 a0 nresponse.Redirect "login.asp"  
1 H$ ~, K$ G* S8 U. a, lelse
6 C8 W% S6 F* c8 \# L7 C& h/ Y%>

---

欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)

Powered by Discuz! X3.2