用ASP学做一个在线调查

核心提示： 其中，survey_vote表和survey表的id字段有多对一的关系，用ASP学做一个在线调查(3)，并不一定要建立这个关系，但是建立关系会使思路更明确，我们可以沿用上一篇《跟我学》系列《跟我学做树型菜单》里的包含文件，共用函数文件，三、包含文件这里所要用到的函数并不多，主要是对数据库进

其中，survey_vote表和survey表的id字段有多对一的关系。并不一定要建立这个关系，但是建立关系会使思路更明确。

三、包含文件
　　这里所要用到的函数并不多，主要是对数据库进行操作的，如果要防止输入时的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
''*******************************************************************
''程序中断 用于调试
sub userstop()
response.end
end sub
%＞