www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > user/const.asp
<% 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("uptovip")=rs("uptovip") '升级vip 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("playstart")=rs("playstart") '播放舞曲前问候语 Application("LM1Code")=rs("LM1Code") '未定栏目一的内容 Application("LM2Code")=rs("LM2Code") '未定栏目二的内容 Application("NoPic")=rs("NoPic") '默认的专辑图片 Application("ShowStatistic")=rs("ShowStatistic") '是否显示统计数据 Application("ShowResearch")=rs("ShowResearch") '是否显示网站调查 end if rs.close set rs=nothing Application.UnLock end if MaxMusicList=Application("MaxMusicList") '单页歌曲显示最大数 MaxSpecialList=Application("MaxSpecialList") '单页专辑显示最大数 uptovip=Application("uptovip") '升级vip 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") '是否打开连续播放功能 playstart=Application("playstart") '播放舞曲前问候语 LM1title=Application("LM1title") '未定栏目一的标题 LM1Code=Application("LM1Code") '未定栏目一的内容 LM2title=Application("LM2title") '未定栏目二的标题 LM2Code=Application("LM2Code") '未定栏目二的内容 NoPic=Application("NoPic") '默认的专辑图片 AdminName=Application("AdminName") '站长姓名 ShowStatistic=Application("ShowStatistic") '是否显示统计数据 ShowResearch=Application("ShowResearch") '是否显示网站调查 %>