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

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

作者: 月中水    时间: 2009-10-16 01:12
标题: [建站技术]每个ASP程序员必备的知识
数据库连接:7 r# W% O$ _9 a- Y
<%
: |8 J( g3 Y" n$ z" [set conn=server.createobject("adodb.connection")
' @' X( L& R  L/ i9 Bconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, M7 l. h; j0 [% U; a%>* h& Y9 ^- l+ w9 P& B$ t
+ I7 k. D# L! [- b7 X
- o  N( @/ l( K7 m, O# q+ M+ l: ?
打开数据库:
! ?# y8 N/ I& n1 {! F6 ]  Texec="select * from 数据库表". W% X' x4 Z! @
set rs=server.createobject("adodb.recordset")
; L8 q! t" _: @( p4 L& y( Srs.open exec,conn,1,1 5 m% Q1 v& d3 }( G" f' j* h0 c
参数1,1为读取
: k) {# S$ a1 V( D* ~& z7 I, R
- ~2 S' D: k8 B/ _% `读取内容格式:<%=rs("字段")%>
" F. `: r7 h; V; P( q9 Q/ h: g9 v2 `5 y8 B/ i
添加记录处理程序:4 L. I" t- b( `! L: X( E
<%0 M2 t3 Y3 k" q. {9 R
set conn=server.createobject("adodb.connection")- ~) Z! F  }' t4 e* G
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名"); k8 H* n/ N8 W+ T/ a9 M6 }; I/ I" k
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
8 d7 m% m; K. xtel=request.form("字段")
- l( d+ X+ H6 g$ i2 E5 M$ lmessage=request.form("字段")
: ?8 Z2 w8 j( l& q: kexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开$ R# \  H! P- t- Q" J" z% J
conn.execute exec  使用execute提交
; m6 k' R4 Q% V6 {9 ^% m" m- h. Vconn.close
' D" C0 W. D) [- F2 K/ y, [6 K& n  d7 nset conn=nothing4 s! m2 N7 |9 X; g0 c' V
%>* w7 f1 X. z. p' D
% x" q% o: f# c5 q3 B
搜索处理程序:
, ?" ?. Y7 v% W" }<%
( G% o. S, B' nname=request.form("字段") name,tel为提交表单所设置的字段值
  @+ m5 V  m1 B) `. Ftel=request.form("字段")6 W# a. d, Y$ v9 v
set conn=server.createobject("adodb.connection")
* l$ B/ P. Z2 Kconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")* T; _1 U3 B4 \3 n, u
exec="select * from 表 where name='"+字段+"' and tel="+字段! ]7 }* C; A. s% k- m6 ?7 D1 ~, L
set rs=server.createobject("adodb.recordset")
6 I- ^# ]% ]7 l' Y  e2 prs.open exec,conn,1,1+ ?- @, ~+ ]8 T8 Y- k6 o
%>- [6 L( S5 m8 g1 e7 Y% E
'页面搜索到的内容导出来
- _, _& ^7 d4 I, ^  d2 U% N: ?% K<%
- E% _0 c/ W$ C  ?% Bdo while not rs.eof
$ |$ t. e) M9 b5 a' ~' l%><tr>+ O- Y! O6 n9 }& ^
<td><%=rs("name")%></td>
  _/ Y! a3 Z4 ^5 x5 Q1 D, J( _; ^<td><%=rs("tel")%></td>
7 v' v' C) Q% l8 ]<td><%=rs("time")%></td>. S9 h/ P& I' l% T/ G
</tr>& A% [- G# o7 c  R9 v: `# v5 _
<%( O) ^% Z: g& M$ N. ^
rs.movenext
/ a5 G5 O: D2 a0 D& D$ ~3 p: `7 W+ \8 Floop
6 q( Q2 V: [" M( |: U7 ^%>
$ W9 X9 U5 ^7 F( \& S2 m
! F6 H/ b0 d* q* `2 W4 S# v4 \( j删除记录处理程序:; y/ N% g9 {; @0 f' v
<%
. a+ @/ s! O/ @* y) h+ Dset conn=server.createobject("adodb.connection")
6 C1 b  w0 b, P& C" Gconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")1 I$ ?8 X  ^( E# n# o3 I
exec="delete * from 表名 where 编号="&request.form("id")
0 f7 i! \1 R2 b) R/ Fconn.execute exec
/ b7 e$ I$ i8 v+ C7 Z% y/ P%>
( v* }+ H; c4 u2 t& e+ k! h3 c1 E2 h' X# y9 T

1 a; @; b$ f1 |) o( F- G" P修改记录处理程序:
0 @( n4 y* Z( q3 i3 W<%7 L0 Q: T, h  V* f# v* K
set conn=server.createobject("adodb.connection")
# ~0 @8 m' e& W# ~( T3 }& Dconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")- H3 U6 |! C' _8 Y0 s2 ~
exec="select * from 表名 where 编号="&request.form("id")4 `3 n5 c: J- r- Z' Y7 _# h8 E* Y
set rs=server.createobject("adodb.recordset")0 [+ \$ Y- e( @8 _  {
rs.open exec,conn,1,3  '1,3为修改意思
. N" M% M7 V/ c2 J5 E+ B$ ?rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
% [& ]3 y8 D6 b1 `8 grs("tel")=request.form("字段")
' h$ J3 E9 M+ V" t' t/ trs("message")=request.form("字段")
( R$ U) i2 W8 f( F5 X$ Grs.update4 E. n3 R4 F( J( f1 |) X
rs.close1 Q5 u& u; Z, Z) m
set rs=nothing
. f+ L; L6 c6 F& n6 }$ gconn.close
% A  N2 o; x. R* @set conn=nothing
3 l: F  E+ U) ?/ s, u%>
% v8 {4 |) _  }+ f* l修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
$ U3 K$ {) ?/ K. S2 [$ W3 i2 ]9 v/ Q
. V# r* @8 n; {" Q+ t9 }1 d, v后台登陆处理程序例子:
, i8 ^: [7 L* D$ I0 U: N' i5 P<%( s+ }4 j* c0 q- r4 B
dim name,password
4 L9 ?' f+ {8 ~" Yname=request.form("name")
# m; j; H! }5 s& T1 Epassword=request.form("password")
4 ^& G) o$ `1 Ndim exec,conn,rs
* X; f6 S8 x% }" e5 ~1 Vexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
9 |) X) z7 G1 R+ F; ]: Tset conn=server.createobject("adodb.connection"); T; w# R  b# X( g6 R
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")  y4 i4 Q5 Z1 z& G% o5 j6 ~8 P5 b
set rs=server.createobject("adodb.recordset")
+ K# m/ l/ [, ]7 f5 Y/ |rs.open exec,conn/ T$ Q, [2 ~' e0 N" e4 Z% z) ]( \9 d
if not rs.eof then
5 @/ s8 n6 u+ Hrs.Close
  F  `. A7 W' w: j3 S; z* Fconn.Close- H! ]7 ]1 V( |' f
session("checked")="yes"3 @0 z3 A0 R: l7 g7 f
session("check")="right"
: `' p% X0 ^3 g1 E; Uresponse.Redirect "index.asp"
8 K# ?, a8 E) C6 Yelse
5 x9 c' q2 Z- V1 ?session("checked")="no"; S0 y8 A- Z$ s# ^  H
session("check")="wrong"
) K# T+ n: I# t$ P5 \) v/ @response.Redirect "login.asp"
* d& }: l* I5 z% Hend if
! G' `: B4 `3 l$ p1 i9 k( Y%>
9 O. m, a: m9 i- M6 ^- u9 @) }  _
每个后台页面加上:
7 o( ?0 R; y& h2 M<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量6 j/ J8 B1 q. ~
response.Redirect "login.asp"  ; P' v: K/ X7 z# e; _
else' S; }+ I8 i: \1 I
%>




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