WEB源码(ASP,PHP,...)

开发平台：

ASP/ASPX

ConnSite.asp：源码内容

							﻿<%
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)
Conn.open ConnStr
if err then
   err.clear
   Set Conn = Nothing
   Response.Write "系统错误：数据库连接出错/Include/Const.asp文件!登陆 web.dns-w.cn 寻求帮助！"
   Response.End
end if
%>

						