www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Const.asp

    <!--#include file="../user/Conn.Asp"-->
<!--#include file="Star.INC"-->
<!--#include file="md5.asp"-->
<!--#include file="Function.Asp"-->
<!--#include file="Style.Asp"-->
<%
'===========================版权信息===============================
' 流光音乐系统 1.0
' Homepage  : http://www.ad968.cn
' E-Mail : 77280511@qq.com
' QQ : 77280511 
'请保留版权信息,以便我们更好的为您服务
'==================================================================
set rs=server.createobject("adodb.recordset")
sql="select * from const" 
rs.open sql,conn,1,1
if not rs.eof then
	Application("WebName")=rs("WebName")			'网站名称
	Application("WebUrl")=rs("WebUrl")			'网站地址
	Application("Copyright")=rs("Copyright")		'版权信息
	Application("Ver")=rs("Ver")				'版本信息
	Application("AdminEmail")=rs("AdminEmail")		'站长信箱
        APPlication("WebPost1")=rs("WebPost1")		        '首页公告
        APPlication("WebPost2")=rs("WebPost2")		        '
        APPlication("WebPost3")=rs("WebPost3")		        '
        APPlication("WebPost4")=rs("WebPost4")		        '
        APPlication("Front")=rs("Front")		        '路径前缀
        APPlication("Keywords")=rs("Keywords")		        '关键字
        APPlication("count")=rs("count")		        '统计代码
        APPlication("beian")=rs("beian")		        '备案信息
        APPlication("bottominfo")=rs("bottominfo")		'统计代码

end if
rs.close
set rs=nothing
	WebName=Application("WebName")			        '网站名称
	WebUrl=Application("WebUrl")			        '网站地址
	Copyright=Application("Copyright")		        '版权信息
	Ver=Application("Ver")				        '版本信息
	AdminEmail=Application("AdminEmail")		        '站长信箱
        WebPost1=Application("WebPost1")			'首页公告
        WebPost2=Application("WebPost2")			'
        WebPost3=Application("WebPost3")			'
        WebPost4=Application("WebPost4")			'
        Front=Application("Front")			'
        Keywords=Application("Keywords")			'
        count=Application("count")			'
        beian=Application("beian")			'
        bottominfo=Application("bottominfo")			'
%>
<%
if Application("MaxShangpinlist")="" then
 Application.Lock
	Application("MaxSpecialList")="15"
 Application.UnLock
end if
	MaxSpecialList=Application("MaxSpecialList")
%>