www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > inc/conn.asp

    <%
'On Error Resume Next
dbpath = Server.Mappath("../App_Data/!#9@2%designV7.asp")
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & dbpath
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err.Number <> 0 Then
   Response.write "数据库链接出错!文件：inc/conn.asp!"
   Response.End()
end If

Dim photoSize,mediaSize,diskSize
Set rs=conn.Execute("Select Top 1 * From WebBasicInfo")
If Not rs.eof Then
	photoSize=Rs("W_HomeArtRecoNum")
	mediaSize=Rs("W_HomeSoftRecoNum")
	diskSize=Rs("W_HomeCoolSiteRecoNum")
End If
Set rs=Nothing
%>