<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("./data/redguest.asp")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

function CloseDB

Conn.Close
set Conn=Nothing

End Function

const ADMINname="admin"
const Passwd="1"
const ProgramCName="红蜻蜓工作室 Guestbook 主程式"
const ProgramEName="Reddragonfly & Studio ASP Source"
const ProgramVer="20031102"
%>