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

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

---

作者: 月中水    时间: 2009-10-16 01:12
标题: [建站技术]每个ASP程序员必备的知识
数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>
$ q2 M; j2 r2 p
* y+ ^* `! m. D: E! ~: N: d
% D1 B* X+ [) |: |+ G# x* a打开数据库：
exec="select * from 数据库表"
+ d0 K4 J, ]) y  O! Oset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
1 n. D3 S/ l0 t8 _3 k参数1，1为读取
) D3 O. v9 n, `
% B) U( H4 I7 W7 ?, C2 I6 i& ]- C8 {读取内容格式：<%=rs("字段")%>
. o9 ^* \9 L3 G" `) U/ S$ v
添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
2 q& B; p& A1 i7 I: Fexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
' `6 Q7 ^& B6 J% q" e# kset conn=nothing
, b5 v) f% k' t9 O6 X% K%>
' y! Z6 v; d7 u1 m% x  i3 L
0 P/ d8 Q. }6 N6 h' q1 `: {搜索处理程序:
$ P7 q: }3 ]" r5 A5 G<%
+ [1 p7 M8 V! E5 `* U  zname=request.form("字段") name,tel为提交表单所设置的字段值
9 R( _  b* _; [6 O% Ctel=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="+字段
- k! |6 n: e3 F- |( q7 Zset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
/ z0 E# L/ h. X$ ?$ a! a$ M  R" U%>
'页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
& i# ]+ M8 a& N+ Y<td><%=rs("time")%></td>
</tr>
( [* ?9 a' @$ v1 v) p& n5 d<%
  k- a7 t2 U2 krs.movenext
9 O. D/ V6 ^& i1 Gloop
%>
7 \( L. n" I% H( d+ W
" x5 A( a4 I  K& d/ Y' @4 A: h9 `删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. P8 i' o1 a8 R/ Bexec="delete * from 表名 where 编号="&request.form("id")
; Z( p* \  D8 K, Xconn.execute exec
%>


5 k, ]8 T" Q3 l8 P7 Y5 v修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# U. Y# q% a) aexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
% T* y( s% ?, R+ H+ R% O* P; b/ w, ?, |; o8 }rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
" X3 K0 w9 k% G- P, Grs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
rs.close
set rs=nothing
conn.close
3 b4 x& ]& Y0 U: Y! W* pset conn=nothing
" s- f6 C4 l' _; {, {8 _%>
. }; x+ a( w4 e! c修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
$ C0 Q" m1 Z( H# ~$ _
后台登陆处理程序例子:
<%
1 |9 S; H$ R) vdim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
1 D: M  ~( c! h2 v4 Y4 B/ F+ @set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 R( l8 p. @( |  Z0 ?set rs=server.createobject("adodb.recordset")
2 H/ \3 X) {; a: X, @rs.open exec,conn
! W% {' ~8 F$ a  O0 Oif not rs.eof then
1 p6 l) L% F: b2 ?$ h! a: lrs.Close
conn.Close
* f  a2 E( j9 Xsession("checked")="yes"
1 C' N; d* F* i" |9 z/ X4 H. Zsession("check")="right"
) \, T5 S& e, P# B9 p0 y  k) Y2 r0 @response.Redirect "index.asp"
5 H% w; h& r1 m& Delse
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
4 @) |6 B! n9 }# V2 b" `end if
6 G0 ~7 }1 ?; ?, X0 h) F$ r/ Y4 Z%>
2 I3 n$ l# O- F+ h. b" Q& U2 C0 ]
6 e" t: H5 W) i每个后台页面加上:
+ ]( a9 m, h# y0 `<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
% \7 A% O3 }6 f/ ~; g3 |response.Redirect "login.asp"  
else
%>

---

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

Powered by Discuz! X3.2