asp实现简单数据库连接类
实现了简单的数据库连接，得到记录集，得到二维数组，执行某个语句，其实这个类可以继续扩充，比如先读取变量，得到执行次数，简单分页等等。。，篇幅有限，自己扩充
'----------------------------------------------
'数据库操作
'----------------------------------------------
'简化的数据类
Class dbconn
public connstr,conn,queryCount,die_err
private connstate
Private Sub Class_Initialize
queryCount=0
connstate = false
die_err = true
End Sub
'构造
Sub Conn_Open
on error resume next
set conn = server.CreateObject("adodb.connection")
conn.connectiontimeout = 120
Conn.Open connstr
if err then
if die_err = true then die "数据库连接错误！"
else
connstate= true
end if
End Sub
'得到记录集
Function getRs(byval sqlStr,byval vtype)
On Error Resume Next
if cint(vtype) <> 3 then vtype =1 end if
if connstate = false then call Conn_Open
set getrs = server.CreateObject("ADODB.RECORDSET")
getrs.open sqlStr,conn,1,vtype
queryCount = queryCount+1
if Err then
if die_err = true then die sqlStr
if die_err = true then die "数据库得到记录集错误！"
end if
End Function
'得到单一的值
Function getVal(byval sqlstr)
On Error Resume Next
if connstate = false then call Conn_Open
dim rs : set rs =conn.execute(sqlstr)
if rs.eof then
getVal =""
else
getVal = rs(0)
end if
rs.close : set rs = nothing
End Function
Function exec(Byval sqlstr)
if connstate = false then call Conn_Open
conn.execute(sqlstr)
End Function
'得到数组
Function getArray(Byval sqlstr)
on error resume next
if connstate = false then call Conn_Open
dim rs : set rs =conn.execute(sqlstr)
if rs.eof then getArray = "" else getArray = rs.getrows
rs.close : set rs = nothing
queryCount = queryCount+1
if Err then
if die_err = true then die "数据库得到数组错误！"
end if
End Function
'析构
Public Sub Class_Terminate()
if connstate = true
相关文档：
ASP万用分页程序
这只是个asp小技巧类的东西，它虽然适合在每个不同文件名里调用这个函数，但是也是有前提的，下面让我们来仔细看看其中的原委。
下面这段是基本的分页代码：
＜% sql = "select……………………省略了sql语句
Set rs=Server ......
Windows7下IIS7的安装及ASP配置方法★
本文讲述了在Windows 7下如何安装IIS7，以及IIS7在安装过程中的一些需要注意的设置，以及在IIS7下配置ASP的正确方法。转载过程中不得以任何方式和方法用于商业用途，请注明出处。谢谢您的支持。祝您安装及调试成功。
注：本人安装的是Windows 7 RC 7100 32位中文旗舰版 。
在Window ......
VBScript:
定义变量时候不能直接赋值，如：
Dim i=1 是错误的，应该这样：
Dim i
i = 1
——————————————
结束程序：response.end
跳出循环或者函数、子程序等用exit …
——————&m ......
7. 返回多个记录集的存储过程
本文最先介绍的是返回记录集的存储过程。有时候，需要一个存储过程返回多个记录集，在ASP中，如何同时取得这些记录集呢？为了说明这一问题，在userinfo表中增加两个字段：usertel及usermail，并设定只有登录用户可以查看这两项内容。
/*SP7*/
CREATE PROCEDURE dbo.getUserInfo
......
Top-CMS主要特点：
1.系统采用ASP+COM技术开发，一方面最大程度保障系统安全性，另一方面极大的提高系统运行效率。
2.系统完全基于B/S模式构建，只要在服务器上安装了本系统，客户机不需要安装其他软件，直接使用IE便可浏览。
3.系统本身集成诸如公告、专题、在线调查、用� ......
