<%
Const dbtype = 0									
Const datapath = "/database/#db.mdb"		
Const YWNT_TMS_RS = "Adodb.RecordSet"
Dim SqlNow
	DayStr = "'d'"
	MakeRandomStr = "'n'"
    SqlNow = "Now()"
    connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(datapath)
Set conn = server.CreateObject("ADODB.Connection")
conn.open connstr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End

sub connclose()
conn.close     
set conn=nothing
end sub
%>