config.asp

思翔会员制收费阅读（文章管理）系统20080323 收费按每点击一次收费一次

<%
'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 = 17
dim BZ_Size : BZ_Size = 60 '管理会员页备注字数
%>