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

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

---

作者: 月中水    时间: 2009-10-16 01:12
标题: [建站技术]每个ASP程序员必备的知识
数据库连接：
/ C  @" ]) S! M/ I1 d  h<%
. X% G: F+ i: h2 i  ?1 Bset conn=server.createobject("adodb.connection")
2 O! U3 ^! f* B8 Bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ H, k+ @6 t4 U: L%>
3 r# g* K7 ~' r% M

打开数据库：
2 k7 o: e7 y2 O; b# Dexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
# ?* m9 Z' Y9 T1 O# Prs.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>

! u- V% z7 O$ f! p) X, t% k添加记录处理程序：
<%
" Y5 ^4 q- K7 @* nset conn=server.createobject("adodb.connection")
2 a/ \; ]% O# \# Rconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
& `- p$ C" v- @* k, r8 @tel=request.form("字段")
/ D' y+ L: Q+ M( S9 e2 u% Imessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
/ n  K8 b- w$ N7 k4 q+ u9 L- `8 Gconn.close
% r0 }% i3 X' Y& G( R' e/ ]6 rset conn=nothing
%>
4 h# A- ?3 R3 D$ j9 i( d5 b3 {
搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
5 x4 g8 o; ]1 f: B' ntel=request.form("字段")
4 f: }# m8 h* Z! l% q* Hset conn=server.createobject("adodb.connection")
+ L, S2 B4 X" L1 J$ [conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
; b1 R! Z' d2 Q9 C; S  V! h- D9 P+ zset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
0 R  L7 Q+ @" P/ W* [%>
'页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
& V5 T& Q2 U% W% w& Q<td><%=rs("name")%></td>
, h+ m- U) R; F$ v) @. _4 t<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
<%
* ]. W! D6 U- q: _4 [rs.movenext
' @# [$ U, R! K5 `loop
; d0 F& u" e/ D%>
" C$ Y) `6 J; ~9 _# K
+ ^/ c- |. e; `$ B删除记录处理程序:
! G  a/ i. d  W! Y  j2 h: X  \<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
* o- F, M/ y( Q8 B" n; ^conn.execute exec
%>
) x; t! _0 i7 J6 O: t8 Y7 p

% O6 a. j0 O+ A7 i# C. [修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
3 P2 Z8 ~/ B9 zconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) r& @/ |/ y+ Y# g' X; z) qexec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
  Q& Y- T4 d& ]8 v& K. S; xrs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
3 \2 S3 }, W# I  Q3 ?. Krs("tel")=request.form("字段")
rs("message")=request.form("字段")
7 }& g* h& m& o, X( o5 }9 Z1 Irs.update
& I; i, T8 ]* g4 f  [rs.close
* R- c% C9 }7 R9 [set rs=nothing
conn.close
+ Y9 h5 H# N2 ], Bset conn=nothing
9 u$ }( ~* ?, k4 ^3 o%>
8 s# g8 g% E  V( {" q7 l- n修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
2 }# N% E8 S. @<%
) Z$ c  ], a/ ^* E2 E& ]7 m8 Wdim name,password
0 A1 ]  V) g% W/ S* Hname=request.form("name")
# p0 f$ W6 `' z3 Dpassword=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")
2 K$ o0 {: ]* o7 |/ Zrs.open exec,conn
0 l& ^  R& d  a; K4 Y( wif not rs.eof then
4 ?8 n) J5 Y& prs.Close
conn.Close
session("checked")="yes"
" M% e; d7 |6 y2 N3 M9 e/ A# Qsession("check")="right"
response.Redirect "index.asp"
5 E1 U# O/ a1 n; c  _else
8 ~2 X& D% f0 P9 E6 F+ D3 _) L! t7 xsession("checked")="no"
" A! e2 l1 S" V1 W+ N1 ?! _7 jsession("check")="wrong"
response.Redirect "login.asp"
end if
%>

每个后台页面加上:
0 w8 C8 s" E3 {6 H<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
5 V2 _# h7 Q4 X1 T& [) w5 J4 `else
%>

---

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

Powered by Discuz! X3.2