config.asp

1．用Asp等网页设计语言实现网络在线投票系统的设计。 2．设计报告内容应说明： ⑴ 课程设计目的与功能； ⑵ 需求分析

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
'以下五行的功能是让网页立即过期：
response.expires = 0
response.expiresabsolute = now() - 1 
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private" 
Response.cachecontrol = "no-cache"
dim conn,rs,connstr,sql'数据库对像变量:::
dim OnePage,PageAll,p'每页条数，总页数，当前页:::
dim i,j,k,l'临时变量:::
dim NewTitle,NewType,NewNum,NewMin,NewMax,NewText,tpNum'投票记录的内容:::
dim InputType'单选或多选:::
dim TouPiao()'数组，记录选择每个选择的人次数:::
dim TouPiaoNum'所有票数的总和:::
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
'以下两句语句,前一句为SQL Server,后一句为ACCESS:::
'connstr="DSN=studycity;uid=hongbo;pwd=111;"'此行为SQL Server的链接句，必须保证DSN和SQL Server的正常:::
connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("toupiao.mdb")'此行为ACCESS链接句:::
Sub OpenConn
	err.Clear
	On Error Resume Next
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
		Response.End
	End If
End Sub
Sub CloseConn
	rs.close
	conn.close
	'set rs=nothing
	'set conn=nothing
End Sub
%>