dgbf.asp

宁波娱乐在线城市,丰富的内容版块

<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
        Response.write "对不起，您未注册！"
        Response.End
	else
		call main()
end if

sub main()

dim lurl
lurl=Request.QueryString("url")
if right(lurl,4)=".swf" then
%> <p align=center><OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" CODEBASE="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" WIDTH="500" HEIGHT="350"> 
<PARAM NAME=movie VALUE="<%=lurl%>"> <PARAM NAME=quality VALUE=high> <EMBED SRC="<%=lurl%>" QUALITY=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" WIDTH="500" HEIGHT="350"></EMBED> 
</OBJECT><%else%> <p align=center><embed name=player src=<%=lurl%> type=audio/x-pn-realaudio-plugin width=500 height=150 border=0 autostart=1></embed> 
<%end if%> 
<%
end sub
%>