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

月中水

数据库连接：
<%
, S2 }7 q0 c: i/ ?4 ?9 q' ?set conn=server.createobject("adodb.connection")
: n1 Y, U' s) b: @& T! P- y. ]conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>
4 b, ~( h' A; |+ F

9 J+ u, ]2 V4 j/ g/ o* t打开数据库：
exec="select * from 数据库表"
1 \0 ~6 I* ~: U9 G* }8 Zset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
, T( _$ V5 q  C- n4 I" n参数1，1为读取
! y: V; a8 _/ ^6 V; j
读取内容格式：<%=rs("字段")%>

3 H* d% ]7 w* l8 z添加记录处理程序：
6 v2 o8 u0 Y" J5 n! Y0 |<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
5 L! |/ f4 g# C' C! Q5 E9 Otel=request.form("字段")
0 p, h( u# c( amessage=request.form("字段")
' k( G; }  d5 P: pexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
* x7 k* h# m/ I- Y- @1 R) gconn.execute exec  使用execute提交
conn.close
* x5 j" ~0 f! V" H6 m( _6 o8 c; d# i; Pset conn=nothing
5 v& H4 k$ y# b, ]%>
% S7 \& K2 X' ?! O2 N7 d+ A3 w
4 Y/ b4 J1 z5 w6 H9 G! _; }$ V9 K搜索处理程序:
! r( g8 q6 Q/ h! I, T<%
# I: I0 p/ h' P, X7 }) ename=request.form("字段") name,tel为提交表单所设置的字段值
tel=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="+字段
' i  m: d! f1 d) d7 j$ Zset rs=server.createobject("adodb.recordset")
3 u; ^9 f8 H4 ars.open exec,conn,1,1
4 L0 l% C. ?: _$ Z( q/ K%>
! q5 c7 d  S! ~2 [- S'页面搜索到的内容导出来
+ h/ N* l: ^( ^1 e<%
, ?4 `& Z  C' O5 d& X% Jdo while not rs.eof
; A1 ^: O) f& H7 r- [6 T%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
9 Q" _4 K5 y2 u: H% H; X' C<td><%=rs("time")%></td>
. q1 H/ ~# @5 r, ^</tr>
<%
' v3 {7 U! f: b& r1 h( I9 t/ yrs.movenext
loop
%>

删除记录处理程序:
<%
# L) P. v; c# h! yset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>


修改记录处理程序:
2 C; S0 Y6 d% n% J<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
8 C8 o- K7 k" o( J& B# b9 ?$ P$ b6 Tset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
* L' n) Y$ r  b6 p% Krs.update
; A, @  {/ ^, }6 ?4 G( Ers.close
% v; E8 v! N9 V3 c2 O  n  W7 Tset rs=nothing
conn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
0 `- g6 ?% N/ }8 S& N) o
' t( |% ^9 L: I后台登陆处理程序例子:
<%
dim name,password
name=request.form("name")
* r5 J, U0 ?% [9 S0 N* ^password=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
) @" d. W* I6 F& H& t) Zset conn=server.createobject("adodb.connection")
/ h/ L- r" K+ @; @6 ~conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
3 |% @1 ]  w6 s1 @if not rs.eof then
rs.Close
1 R! i& H4 m* K! v. m) N( Bconn.Close
session("checked")="yes"
session("check")="right"
: }9 a& B( h2 i4 y2 ]  e6 T; ]3 p- Fresponse.Redirect "index.asp"
else
# V6 z) v( }2 c: F) h5 c+ Lsession("checked")="no"
6 ]7 I7 Y. j" J) y$ f8 `+ a9 _session("check")="wrong"
  Y9 U! \* O2 u; eresponse.Redirect "login.asp"
end if
6 ]$ z; a: s" X7 z, L) I%>
$ R5 o  v& `, r; y) [! l- Y6 u7 x
3 v3 |* E, `+ g. d' y# A$ M每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
- a5 Z/ x+ f* C$ n8 G( ^7 p" w& _( Nelse
%>