www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/set.asp
<!--#include file="../user/Conn.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("SMS")=rs("SMS") '彩秀ID 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") '站长信箱 SMS=Application("SMS") '彩秀ID 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") %>