const.asp

青岛dj站程序,带后台管理 名字和密码都是:admin

<%
if Application("MaxMusiclist")="" or Application("TdFColor")="" then
 Application.Lock
set rs=server.createobject("adodb.recordset")
sql="select * from const" 
rs.open sql,conn,1,1
if not rs.eof then
	Application("MaxMusicList")=rs("MaxMusicList")				'单页歌曲显示最大数
	Application("MaxSpecialList")=rs("MaxSpecialList")			'单页专辑显示最大数
	Application("WebName")=rs("WebName")				    	'网站名称
	Application("WebTitle")=rs("WebTitle")				    	'网站标题
	Application("WebUrl")=rs("WebUrl")				        	'网站地址
	Application("Logo")=rs("Logo")					        	'网站LOGO
	Application("ShowLink")=rs("ShowLink")				    	'友情链接说明
	Application("BLogo")=rs("BLogo")				        	'网站左上角LOGO
	Application("Banner")=rs("Banner")				        	'网站banner
	Application("BannerUrl")=rs("BannerUrl")				    '网站banner转向链接的地址
	Application("AdminOicq")=rs("AdminOicq")				    '网站banner转向链接的地址
	Application("Copyright")=rs("Copyright")				    '版权信息
	Application("Ver")=rs("Ver")					        	'版本信息
	Application("AdminName")=rs("AdminName")					'站长姓名
	Application("AdminEmail")=rs("AdminEmail")				    '站长信箱
	Application("StartDate")=rs("StartDate")				    '开站日期(年/月/日)
	Application("newreg")=rs("newreg")		                 	'是否允许新会员注册	
	Application("OpenConListen")=rs("OpenConListen")			'是否打开连续播放功能
	Application("LM1title")=rs("LM1title")						'未定栏目一的标题
	Application("LM1Code")=rs("LM1Code")						'未定栏目一的内容
	Application("LM2title")=rs("LM2title")						'未定栏目二的标题
	Application("LM2Code")=rs("LM2Code")						'未定栏目二的内容
	Application("NoPic")=rs("NoPic")							'默认的专辑图片


	
end if
rs.close
set rs=nothing
 Application.UnLock
end if
    MaxMusicList=Application("MaxMusicList")	    	'单页歌曲显示最大数
	MaxSpecialList=Application("MaxSpecialList")		'单页专辑显示最大数
	WebName=Application("WebName")						'网站名称
	WebTitle=Application("WebTitle")					'网站标题
	WebUrl=Application("WebUrl")						'网站地址
	Logo=Application("Logo")							'网站LOGO
	ShowLink=Application("ShowLink")					'友情链接说明
	BLogo=Application("Blogo")							'网站左上角LOGO
	Banner=Application("Banner")						'网站banner
    BannerUrl=Application("BannerUrl")					'网站banner转向的链接地址
    AdminOicq=Application("AdminOicq")					'站长OICQ号码
	Copyright=Application("Copyright")					'版权信息
	Ver=Application("Ver")								'版本信息
	AdminEmail=Application("AdminEmail")				'站长信箱
	StartDate=Application("StartDate")					'开站日期(年/月/日)
	newreg=Application("newreg")		             	'是否允许新会员注册
	OpenConListen=Application("OpenConListen")			'是否打开连续播放功能
	LM1title=Application("LM1title")					'未定栏目一的标题
	LM1Code=Application("LM1Code")						'未定栏目一的内容
	LM2title=Application("LM2title")					'未定栏目二的标题
	LM2Code=Application("LM2Code")						'未定栏目二的内容
	NoPic=Application("NoPic")							'默认的专辑图片
	AdminName=Application("AdminName")					'站长姓名
%>