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

月中水

数据库连接：
7 ~9 q$ c9 ~4 z. b( O4 Y4 `9 n<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
2 b) g( V' l/ p  Crs.open exec,conn,1,1
参数1，1为读取

0 }: \, ?1 C( N' T0 E6 _- ]读取内容格式：<%=rs("字段")%>
8 n5 Q7 s& q* t* T; k+ `5 m: {
0 t) S  x0 Q, R2 @8 r添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
) N+ w  J2 {  j4 gconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 z9 k) e& v! h. gname=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
message=request.form("字段")
4 ?1 R# ^5 e# g7 ?# `6 v+ ^exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
' n: ]' ]+ h6 l: q( x" s2 rconn.execute exec  使用execute提交
conn.close
% T' c: [$ G* dset conn=nothing
%>
+ m& Q$ o3 \. ^8 o
搜索处理程序:
<%
/ x, Q7 X; M. q6 P( B) x( W( B+ X" hname=request.form("字段") name,tel为提交表单所设置的字段值
/ I) w- G* D8 Y+ g2 Etel=request.form("字段")
" U1 h0 x. U0 ~4 dset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 M2 r2 m+ f. |6 L' ?! d2 P6 x, \exec="select * from 表 where name='"+字段+"' and tel="+字段
set rs=server.createobject("adodb.recordset")
: ~+ g- U# T  \$ l' W5 Crs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
2 \6 t: e% \2 ]1 `  {- O<%
' K! D9 v4 k4 c3 jdo while not rs.eof
1 ]7 Y' f. S7 L. V' L( v( Q2 f%><tr>
<td><%=rs("name")%></td>
! E/ I- D8 h- }4 z& m<td><%=rs("tel")%></td>
0 c+ w6 n# T1 U  q<td><%=rs("time")%></td>
& g1 v; }' S$ Y- Z) N</tr>
5 \6 ]4 V7 [8 X" J( S5 `& w4 Z<%
' ]+ {! j/ b- x( P: ]$ K  Grs.movenext
- I9 ?/ Z: H& v* Rloop
%>

( _" S7 A' y6 ?7 J删除记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 A' T0 w! x7 l$ J8 e' b  nexec="delete * from 表名 where 编号="&request.form("id")
" z3 }# h# A+ l  T, l# G( jconn.execute exec
% U1 Z' `0 U) j2 i0 F( X& ]1 }%>


修改记录处理程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
# U% y1 W3 b$ A. g9 H+ c& `8 bset 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("字段")
rs.update
0 R8 m* M% r# s9 i3 _rs.close
set rs=nothing
conn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

% p7 T# o0 B! ], g6 c7 S后台登陆处理程序例子:
8 q. @6 R0 N, a" z<%
: I% }" N& L. [9 B& ^7 ?% Gdim name,password
: k5 _/ f$ o6 v8 v- [, Wname=request.form("name")
password=request.form("password")
dim exec,conn,rs
$ m( P& `! ^$ E5 ]- y! J$ fexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
9 {! \- R! V4 r. R- T8 |conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 Y* L8 X# q# |" k, mset rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
  A" J6 N8 N8 ]2 }session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
3 a/ C/ E: Z8 F$ A: U, aelse
session("checked")="no"
$ C* J+ q) Q. ^* Y% B* Ssession("check")="wrong"
response.Redirect "login.asp"
end if
1 E( _( F, S; n4 ~3 H%>

7 V3 f6 Y$ j+ Y8 l1 [2 z- U$ J: D. }) |每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
; t7 F" I! S2 Jelse
%>