[建站技术]每个ASP程序员必备的知识

月中水

数据库连接：
& R$ h9 g% v" C2 b* {0 o' n<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* N0 p# s4 q4 \. U8 H( S8 s%>


+ [$ b) p/ W) {. J, o9 h+ o打开数据库：
) E* {5 Z+ \& i* l$ |6 j; {  q$ G0 Gexec="select * from 数据库表"
7 {$ c7 v" n. t2 x1 i; P* |; U/ Vset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
1 p7 H. g5 ^1 I7 V# ^
- A: m& r5 D( |% y读取内容格式：<%=rs("字段")%>

" M) M1 Q" x, V1 z3 w6 j. c添加记录处理程序：
<%
4 r: g4 {6 [% ?+ J+ M) n7 S& fset conn=server.createobject("adodb.connection")
4 ^9 i' Y# h& [+ ^: y! j5 T9 \conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
& `1 ]5 Q/ l4 {$ nconn.execute exec  使用execute提交
conn.close
set conn=nothing
%>
! J+ W/ a; \$ T' L! J7 P/ d
搜索处理程序:
<%
# g) [1 E* g3 L$ Hname=request.form("字段") name,tel为提交表单所设置的字段值
6 s2 Z9 L- S2 Y1 _2 J& rtel=request.form("字段")
8 Y% y* z7 X7 c3 |0 Xset conn=server.createobject("adodb.connection")
+ N! @- \& m) N2 P& Yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 `4 V; r: J" X8 W% `1 {0 Bexec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
8 o+ [6 c8 @5 i6 `: r* T6 Y* k%>
'页面搜索到的内容导出来
( F  D+ d; @, g1 J  n3 Q: w<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
' ^8 t# ]* p% W<td><%=rs("time")%></td>
</tr>
<%
, V( c3 W9 `5 z, L( e$ Prs.movenext
loop
%>
/ H. V$ C$ _9 q2 w- _0 N
  e) e4 Q  k7 j# d删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ v% O1 Y( K0 s: Sexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>
" q6 ^' M/ c" R; ^2 j
/ Z0 C, W6 a2 j  C" d2 H
5 X5 P' u3 J7 k; z修改记录处理程序:
' J- r# R- }8 Q<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
6 p4 I5 e1 s% G' L+ Jset rs=server.createobject("adodb.recordset")
9 B" z* b7 C3 Q: ]7 A5 Crs.open exec,conn,1,3  '1,3为修改意思
9 {5 @) s: h+ P4 k6 ars("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
5 N, ^. x& O( P: e& K9 E5 ]rs("tel")=request.form("字段")
rs("message")=request.form("字段")
5 `% i( V4 ^" wrs.update
% H! r0 |) c: S9 K# _rs.close
/ Y; M! Z/ V  N0 P5 Hset rs=nothing
5 U3 o. k# I+ s- Tconn.close
% D' J: b- R5 b. Wset conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
% A4 v1 A8 `8 H3 q( [6 j<%
dim name,password
* n; m7 Z% Y: w( k  t) j' Mname=request.form("name")
8 j6 Y/ t: o6 M. G6 qpassword=request.form("password")
2 U3 i4 `7 h8 H: Ndim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
2 k" n- H. f+ A, }6 a& Pset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! F& @2 F* r/ }2 D( l  {set rs=server.createobject("adodb.recordset")
7 i/ O- H7 ?; c' n2 ]4 q  F$ mrs.open exec,conn
  f* _! Q( N1 w2 R7 hif not rs.eof then
+ w/ |% b; x6 K% V# Brs.Close
  n* s) R  {7 A; vconn.Close
8 F$ j6 h! Q7 ]2 w' m2 W% nsession("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
else
: E1 j& _, R1 j5 ~) nsession("checked")="no"
session("check")="wrong"
+ _' d% f; u( W2 ~; Nresponse.Redirect "login.asp"
end if
%>
  j" @, ]) G# C3 u) N( K8 n1 a
* K$ B% }& d. p每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
5 C+ M" @/ r" b4 I0 y3 p5 Dresponse.Redirect "login.asp"  
" G9 j9 U2 Z+ [6 Oelse
, |2 U# e% V: c$ d# x%>