bzmtvconst.asp

一个不错的音乐网站

<%
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
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
%>
<%
if Application("MaxShangpinlist")="" then
 Application.Lock
	Application("MaxSpecialList")="15"
 Application.UnLock
end if
	MaxSpecialList=Application("MaxSpecialList")
%>