3、包括文件
这里所要用到的函数其实不多，次要是对数据库停止操作的，假如要避免输出时的
HTML等代码，直接用server.htmlencode停止处置就能够了，所以不需求一个专门的
函数来处置。咱们可以沿用上一篇《跟我学》系列《跟我学做树型菜单》里的包括文件。
共用函数文件，文件名：inc.asp
<%
'*******************************************************************
'通用数据库ASP函数
'*******************************************************************
'数据库常数
databasename="survey.mdb" '数据库名,假如更名的话，在这里修正就好了
'*******************************************************************
'翻开数据库
sub opendb(connect)
set connect=server.CreateObject("ADODB.connection")
connect.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
server.MapPath(databasename)
connect.Open strconn
end sub
'*******************************************************************
'封闭数据库
sub closedb(connect)
connect.close
set connect=nothing
end sub
'*******************************************************************
'翻开单个表读
sub opentable(connect,tbname,myrs)
set myrs=server.createobject("ADODB.recordset")
rssql="select * from " & tbname
myrs.open rssql,connect,1,1
end sub
'*******************************************************************
'封闭一时表
sub closetable(rs)
rs.close
set rs=nothing
end sub
'*******************************************************************
'查询数据库
sub searchtable(connect,sql,rs)
set rs=server.createobject("ADODB.recordset")
rs.open sql,connect,1,1
end sub
'*******************************************************************
'查询并更改数据库
sub changetable(connect,sql,rs)
set rs=server.createobject("ADODB.recordset")
rs.open sql,connect,1,3
end sub
'*******************************************************************
'显示信息 用于调试
Sub w(msg)
response.write msg
end sub