<%@ LANGUAGE="VBScript.Encode" CodePage="65001"%>
<%
Response.Buffer=True
Response.ExpiresAbsolute=Now()-1 
Response.Expires=0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"
Server.ScriptTimeout=90
'On Error Resume Next
dbfolder="database/"		'数据库所在目录
dbname="wrzcnet_html@dfwefd.mdb"		'数据库名称
%>