<%
'Common Settings
set rs=server.createobject("adodb.recordset")
sql="select * from web_settings"
rs.open(sql),cn,1,1
web_name=rs("web_name")
web_url=rs("web_url")
web_image=rs("web_image")
web_title=rs("web_title")
web_keywords=rs("web_keywords")
web_description=rs("web_description")
web_copyright=rs("web_copyright")
web_theme=rs("web_theme")
web_consult=rs("web_contact")
web_TopHTML=rs("web_TopHTML")
web_BottomHTML=rs("web_BottomHTML")
web_tel=rs("web_tel")
rs.close
set rs=Nothing

'Mobile Common Settings
set rs=server.createobject("adodb.recordset")
sql="select web_Folder,web_Show from mobile_web_settings"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
web_Folder=rs("web_Folder")
web_Show=rs("web_Show")
end if
rs.close
set rs=nothing

%>

<% '文件夹获取

'Search
set rs_1=server.createobject("adodb.recordset")
sql="select FileName,FolderName from web_Models_type where [id]=35"
rs_1.open(sql),cn,1,1
Search_FolderName="/"&rs_1("FolderName")
rs_1.close
set rs_1=nothing

'Article
set rs_1=server.createobject("adodb.recordset")
sql="select FileName,FolderName from web_Models_type where [id]=5"
rs_1.open(sql),cn,1,1
ArticleContent_FolderName="/"&rs_1("FolderName")
rs_1.close
set rs_1=nothing

'Feed
set rs_1=server.createobject("adodb.recordset")
sql="select FileName,FolderName from web_Models_type where [id]=8"
rs_1.open(sql),cn,1,1
FeedContent_FolderName="/"&rs_1("FolderName")
rs_1.close
set rs_1=nothing

%>


<%
'List Settings
set rs=server.createobject("adodb.recordset")
sql="select * from web_list"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
ArticleCount=rs("ArticleCount")
ArticleOrder=rs("ArticleOrder")
MessageCount=rs("MessageCount")
MessageOrder=rs("MessageOrder")
MessageCheck=rs("MessageCheck")
end if
rs.close
set rs=nothing
%>

<%
'Mail Settings
set rs=server.createobject("adodb.recordset")
sql="select * from web_Mail"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
MailAddress=rs("MailAddress")
MailName=rs("MailName")
MailPassword=rs("MailPassword")
MailSmtp=rs("MailSmtp")
MailSentName=rs("MailSentName")
MailEmergency=rs("MailEmergency")
ReceiveMailAddress=rs("ReceiveMailAddress")
ReceiveMessageYes=rs("ReceiveMessageYes")
ReplyMessageYes=rs("ReplyMessageYes")
end if
rs.close
set rs=nothing%>



