config.asp

来自「思翔会员制收费阅读（文章管理）系统20080323 收费按每点击一次收费一」· ASP 代码 · 共 21 行

<%
'on error resume next

dim LouConn,ConnStr,db
db="sXang_cn\sXang.mdb" 
Set LouConn = Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
LouConn.Open ConnStr

If Err then
Err.Clear
Set Louconn = Nothing
Response.Write "系统调整中......请稍候再试！！"
Response.End
End If


dim Logo_alt : Logo_alt = "思翔 www.sxang.cn"
dim Page_Size : Page_Size = 20 '每页文章显示的条数
dim Title_Size : Title_Size = 24 '标题字数
%>