28,408
社区成员




<!--#include file="../Include/Const.Asp" -->
<!--#include file="data_name.asp"-->
<%
Response.Buffer=True
Db = "D:\Projects\test\data\#Database.mdb"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
SqlNowString="Now()"
SqlChar="'"
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "网站数据库连接出错,请检查设置的数据库路径是否正确!"
Response.End
End If
On Error GoTo 0
%>
<!--#include file="sql.asp"-->
<!--#include file="spiderbot.asp"-->
<%
set rs=conn.execute("select * from setup ")
if rs("webclose")=true then
response.write "<div align='center' style='font-size:30px; color:#FF0000;'><br /><br /><br />"&rs("webclosewhy")&"</div>"
response.end
end if
rs.close
set rs=nothing
%>
<!--#include file="config.asp"-->
<!--#include file="Function1.Asp" -->
<%
Dim Conn, ConnStr
Set Conn = Server.CreateObject("Adodb.Connection")
If IsDatabaseType = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & DEF_SQLusername & "; Password = " & DEF_SQLpassword & "; Initial Catalog = " & DEF_SQLdatabase & "; Data Source = " & DEF_SQLserver & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&SysRootDir&""&SiteDataPath&"/"&SiteDataAccess&"")
End If
Conn.Open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write QianboChLanguage1
Response.End
End If
%>
<%
Session.CodePage=65001'指定编码
'Server.ScriptTimeout=500'设置脚本超时时间,秒
data_name = "/data/#Database.mdb"'网站数据库路径
%>