��?% Dim Conn,ConnStr 'On error resume next Set Conn=Server.CreateObject("Adodb.Connection") 'ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(SiteDataPath) ConnStr="Provider=SQLOLEDB;Data Source=.;Initial Catalog=zhentou;User ID=sa; Password=sa;" Conn.open ConnStr if err then err.clear Set Conn = Nothing Response.Write "系统错误:数据库连接出错,请��€���?系统管理>>站点常量设置',或���?Include/Const.asp文件!" Response.End end if %>