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

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

作者: 月中水    时间: 2009-10-16 01:12
标题: [建站技术]每个ASP程序员必备的知识
数据库连接:7 R8 V! x$ h% e7 j0 j
<%1 D9 |/ j4 u: L( R8 w8 k
set conn=server.createobject("adodb.connection"): v% A1 X7 y  Q! k/ _$ D
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 G% r- ~! J+ m9 k% x%>; E1 O6 E5 H) n! I
9 T$ W3 _8 l* r4 y
0 I7 C) _/ @4 m( u3 J' Q
打开数据库:& T8 }2 J3 v- i1 z
exec="select * from 数据库表"
( x* n8 H& J: o# w' S  S: s- i" @set rs=server.createobject("adodb.recordset")" @; h: c' ?6 h* S1 u
rs.open exec,conn,1,1 " f0 f" X+ A6 l/ G- v  f
参数1,1为读取
! E! Z% N8 e1 ]) ^( v, y" A# L7 U0 X, A/ M- U: b
读取内容格式:<%=rs("字段")%>
) [4 _" w+ [4 G$ U
0 _% i3 i8 v/ @& B# u4 s添加记录处理程序:3 M1 M; c' X% V9 q4 z( D; W
<%/ b% F& t7 ?" X. A  T8 `
set conn=server.createobject("adodb.connection")( \7 p/ X* Q! D3 L" T$ m5 [
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 C. A' Z9 D1 T0 \3 Rname=request.form("字段")  name,tel,message为提交表单所设置的字段值) q. K7 S0 b+ `  Z/ q" `# M) S5 h
tel=request.form("字段")
: s& y: \* }6 O+ nmessage=request.form("字段")
$ |  S1 d) I+ y' O7 M( n: o; v  dexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
  G8 A9 d$ }5 Bconn.execute exec  使用execute提交
) H9 u; s4 e  b* t+ c1 sconn.close
1 M. U7 j/ {! J5 P  s$ k+ A: Tset conn=nothing; H5 W, C# W  N! g8 X* h6 c
%>
& d  X1 P+ T9 N/ }5 J/ {; R/ n, Q3 }2 H
搜索处理程序:* B" E+ F* p5 i/ p% o
<%4 |/ x+ u( d, h! y# S) H
name=request.form("字段") name,tel为提交表单所设置的字段值
0 b2 q$ Z. |# xtel=request.form("字段")5 W) y- P4 `0 h
set conn=server.createobject("adodb.connection")
) p8 i1 E8 Y9 {! u/ x; mconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")7 v" H7 V( S5 c+ A
exec="select * from 表 where name='"+字段+"' and tel="+字段
9 G6 j9 J9 B6 T% u. W8 a7 e8 ]set rs=server.createobject("adodb.recordset")  Q. P; @+ U& s% ~2 w1 T
rs.open exec,conn,1,1* K5 O6 W$ m. t  ]5 p7 R, W
%>4 D9 m+ v* s- {- G% M/ d6 W
'页面搜索到的内容导出来
' J  A' g; {5 r. I<%
1 N+ ]' x# o) y1 Y5 b2 k' Ado while not rs.eof! w$ @$ H: E8 `
%><tr>  J1 u+ l. ~0 B$ u6 t8 A1 @. h* Z
<td><%=rs("name")%></td>
$ b# M' ^% X/ |7 S: C" Y4 [' {<td><%=rs("tel")%></td>
9 q* Y$ ^4 u: J) ~' V' ]<td><%=rs("time")%></td>0 U* t" [2 a5 @7 {# X& Q% @
</tr>: w/ q$ |$ s( `& d9 I& _/ w
<%
( Y0 R* D2 q5 N5 Ors.movenext+ a# a9 K4 Q  c% l0 z- Y
loop- ~. k, x: w+ X" p) |2 D- Y! g
%>
5 R* n  j9 b) Z/ h! q; ^6 Y: h* V- W0 L: T" I/ m
删除记录处理程序:  {. r1 M$ S, |* w/ u! X3 ^& g
<%* @" _4 w! A/ |1 O5 C
set conn=server.createobject("adodb.connection")# S5 r& G; t$ x" @3 R3 L
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名"); @7 |: l0 A0 V7 \: F; e
exec="delete * from 表名 where 编号="&request.form("id")
- B- Z: `/ e  g, z" u. _) H3 P5 Sconn.execute exec
9 x3 n& d9 @0 m  K& Q; b5 ~4 N0 d%>
( q$ w9 l( s" |' H/ o$ ~, O) r
1 U6 X9 w% {/ C3 A7 C& b$ \% I
1 n& j: C- y! I$ X6 s. N, d修改记录处理程序:
# J6 c% Q9 C# K! E5 }/ Q- ]<%
0 m8 d3 D/ ?, Cset conn=server.createobject("adodb.connection")
7 _& y* ?; j5 ]; S2 X1 uconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")3 Z3 ]9 {" B' H2 v3 `% K
exec="select * from 表名 where 编号="&request.form("id")% }. ^: k& p3 E- d
set rs=server.createobject("adodb.recordset")
/ n  J+ i& S% j3 s+ {6 [: Rrs.open exec,conn,1,3  '1,3为修改意思, I, |' Y8 _+ N4 C% o" |- f
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
9 A% J5 _, Y+ x# o# F" R# Urs("tel")=request.form("字段")
/ J) \' f7 ^0 }3 W0 d; Z$ C1 Vrs("message")=request.form("字段")
% R* |! e' t2 L& ?, zrs.update
3 y% B( [3 N* M7 P% m" Vrs.close
$ B8 z; G2 P3 q: B  l+ Fset rs=nothing9 {. y' W, d' R. M
conn.close* y$ T1 ^* z) }
set conn=nothing
# g! G3 m) d# }%>
/ p( E  u4 \) n" v; _0 U修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序0 e( `  w( c1 }7 H% e1 M

" X" H1 S' {5 h* H后台登陆处理程序例子:2 H; G) X5 l# s" `
<%* N3 g$ K/ B, s9 w
dim name,password% g- j  [" K8 g/ Z  A" N1 D" z, @4 `0 @# U) c
name=request.form("name")' }; j. H6 u' U7 d' y. m5 K: @
password=request.form("password"), P( w1 h- v! k' v% \& k; R. H
dim exec,conn,rs
: r1 K2 G6 L: J3 o+ x7 _exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
3 t" w3 k; @+ B. p( [set conn=server.createobject("adodb.connection")! z' g2 ?% t9 s0 U
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")8 G5 M" p' R1 c7 {. }: L
set rs=server.createobject("adodb.recordset")
; C& k' i3 d. [8 Srs.open exec,conn
# r! e# j5 Q; b/ g8 ^* @if not rs.eof then" M" S+ K0 R, [" S8 K2 ?
rs.Close
5 O  o% Q( ?; j2 D3 ?conn.Close
( S: @$ i. y0 `( k2 vsession("checked")="yes"2 J& R" n, P1 ^+ c1 z/ W
session("check")="right"0 c; v/ q: a. S
response.Redirect "index.asp"8 ~5 C5 E, R$ L) p
else( U2 e; d5 B8 k7 X' q8 ~1 Q: p
session("checked")="no"
3 |5 |( W! {* C# W$ a6 o9 u( K8 ]session("check")="wrong". `, U3 y  \* `7 V
response.Redirect "login.asp"
( s" j: m5 _% G' yend if
! g& P3 I9 m; S( c0 U%>
  t& V3 n: ?! S3 j
3 P+ N- J4 {* ?7 m7 t每个后台页面加上:: M" X+ |* t! u5 V% }5 X4 \& Z
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
% A, }2 o2 S0 A5 G+ h/ }) Bresponse.Redirect "login.asp"  , ~/ [# t* U/ w9 |' o# v% N
else( s6 q. B( J* g' t2 ]7 t) f" w: w8 _
%>




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