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 ......
书接上文，直接从字符串返回对象，此次更新，实现了返回对象的自动化，无需在声明实体类。但这个函数只适合页面声明几个对象，批量对象，比如几百个，推荐使用下一文所使用函数。
函数很简单，不解释，直接贴代码。
option explicit
'返回对象的函数
function getObj(byval str)
dim classname,itemlist,i
cl ......
此文只是入门，演示了如何用实体类存储数据，无实际意义。后面有陆续更新优化。（以后的文章中将陆续实现无需声明具体类自动存储数据，和简单的性能优化）
在asp程序开发过程中，结构数据的存储一直是个问题，asp的数组一直很弱，而且不能自解释， ......
Top-CMS主要特点：
1.系统采用ASP+COM技术开发，一方面最大程度保障系统安全性，另一方面极大的提高系统运行效率。
2.系统完全基于B/S模式构建，只要在服务器上安装了本系统，客户机不需要安装其他软件，直接使用IE便可浏览。
3.系统本身集成诸如公告、专题、在线调查、用� ......
