每个ASP程序员必备的知识

每个 ASP 程序员必备的知识数据库连接：以下为引用的内容： <% 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") rs.open exec,conn,1,1 参数 1，1 为读取 读取内容格式：<%=rs("字段")%>添加记录处理程序：以下为引用的内容： <% set conn=server.createobject("adodb.connection") 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('"+字段+"')" 多个用逗号隔开 conn.execute exec 使用 execute 提交 conn.close set conn=nothing %>搜索处理程序：以下为引用的内容： <% name=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="+字段 set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %> '页面搜索到的内容导出来 <% do while not rs.eof %><tr> <td><%=rs("name")%></td> <td><%=rs("tel")%></td> <td><%=rs("time")%></td> </tr> <% rs.movenext loop %>删除记录处理程序:以下为引用的内容： <% set 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 %>修改记录处理程序:以下为引用的内容： <% set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")exec="select * from 表名 where 编号="&request.form("id") set 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 rs.close set rs=nothing conn.close set conn=nothing %>修改记录执行程序:输入 ID 号页面>>>导出相对应 ID 数据>>>>>>直接修改的处理程序 后台登陆处理程序例子：以下为引用的内容： <% dim name,password name=request.form("name") password=request.form("password") dim exec,conn,rs exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')" set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名") set rs=server.createobject("adodb.recordset") rs.open exec,conn if not rs.eof then rs.Close conn.Close session("checked")="yes" session("check")="right" response.Redirect "index.asp" else session("checked")="no" session("check")="wrong" response.Redirect "login.asp" end if%> 每个后台页面加上: <%if not session("checked")="yes" then 'session 里面定义一个 checked 字符串变量 response.Redirect "login.asp" else %>为了能够正常使用，必须把它们放到服务器上的一个虚拟应用程序内，并且把所提供 的 global.asa 文件放到该应用程序的根目录中。

最简单的办法是把 global.asa 文件放到缺省 Web 网站的根目录（缺省情况下是 C:/InetPub/WWWRoot）中。

对任何已有的 global.asa 文件重命名是一个好办法，可以在以后对该文件进行恢复。

1． 显示 Application 集合的内容 ASPCounter 对象是 StaticObjects 集合的一个成员 （通过＜OBJECT＞元素进行定义） ， 但是其余部份（由 Server.CreateObject 实例化）是 Contents 集合的成员。

可以看到使用 global.asa 例子网页放到这些集合中的值，这在前面已经看到：以下为引用的内容： ＜!-- Declare instance of the ASPCounter component with application-level scope //--＞ ＜OBJECT ID=”ASPCounter” RUNAT=”Server” SCOPE=”Applicatoin” PROGID=”MSWC.Counters”＞ ＜/OBJECT＞ ... ... ＜SCRIPT LANGUAGE=”VBScript” RUNAT=”Server”＞ Sub Application_onStart()‘Create an instance of an ADO Connection with application-level scope Set Application(“ADOConnection”) = Server.CreateObject(“ADODB.Connection”) Dim varArray(3) ‘Create a Variant array and fill it varArray(0) = “This is a” varArray(1) = “Variant array” varArray(2) = “stored in the” varArray(3) = “Application object” Application(“Variant_Array”) = varArray ‘Store it in thd Application Application(“Start_Time”) = CStr(Now) ‘Store the date/time as a string Application(“Visit_Count”) = 0 ‘Set counter variable to zero End Sub ... ... ＜/SCRIPT＞(1) 遍历 Contents 集合的代码 为了遍历 Contents 集合，可使用一个 For Each ... Next 结构。