<!--#include file="../inc/admin_conn.asp"-->
<!--#include file="../Star.INC"-->
<!--#include file="../md5/md5.asp"-->
<!--#include file="../Function.Asp"-->
<!--#include file="../Style.Asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ylmv_home"
rs.open sql,conn,1,1
if not rs.eof then
	Application("homes")=rs("homes")			'网站名称
	Application("url")=rs("url")				'国际域名
	Application("urls")=rs("urls")				'备案信息
	Application("qqone")=rs("qqone")			'联系ＱＱ
	Application("sitephone")=rs("sitephone")		'联系电话
        APPlication("mail")=rs("mail")				'联系信箱
	Application("Description")=rs("Description")		'宣传语句
        APPlication("pay")=rs("pay")				'统计代码
        APPlication("soft4")=rs("soft4")			'彩秀编号
        APPlication("talk")=rs("talk")			        '网站公告

end if
rs.close
set rs=nothing
	homes=Application("homes")			        '网站名称
	url=Application("url")			                '国际域名
	urls=Application("urls")		                '备案信息
	qqone=Application("qqone")				'联系ＱＱ
	sitephone=Application("sitephone")		        '联系电话
        mail=Application("mail")				'联系信箱
	Description=Application("Description")		        '宣传语句
        pay=Application("pay")                                  '统计代码
        soft4=Application("soft4")                              '彩秀编号
        talk=Application("talk") 			        '网站公告

%>
<%
if Application("MaxShangpinlist")="" then
 Application.Lock
	Application("MaxSpecialList")="15"
 Application.UnLock
end if
	MaxSpecialList=Application("MaxSpecialList")
%>