<%
'==============================================================================
'	软件名称：ＱＱ魔幻表情插件for leadbbs 3.14
'	软件版本：V 1.0
'	最新更新：2004.12.20
'==============================================================================


'Copyright (C) 2004 SYLOVE.COM All rights reserved.

'联系咨询ＱＱ：460001 
'程序蓝本：木炭设计 [ Woodcoal Design ]E-mail: Woodcoal@plmmm.com官方网站：http://www.plmmm.com 
'FOR LEADBBS程序设计:飞鸟 E-mail:460001@qq.com网站:http://www.sylove.com



'防止多次刷新
const RefTime=2
if DateDiff("s",Session("oTime"),Now)<RefTime then
	response.write "<script language='JavaScript'>"&vbcrlf
	response.write "alert('××× 同胞：\n\n　　您好，小的给致以最崇高的敬意！我\n对您的敬意如滔滔江水，连绵不绝……\n\n　　...... ￥＆％＃＠～＊  ......\n\n　　我的表演怎么样？帅呆了吧！是不是\n想再看俺来耍一耍把戏啊？ＴＮＮＤ你要\n变下一个魔幻表情也好歹让我休息一下，\n给我 " & RefTime & " 秒钟喝水的时间\n\n　　等着， " & RefTime & " 秒后再点我，老子给你来个新\n的，不要走开！！！');"&vbcrlf
	response.write "history.go(0);"&vbcrlf
	response.write "</script>"&vbcrlf
	Session("oTime")=now()
	response.end
end if

Session("oTime")=now()


'防止盗链本站资源
Dim From_url,Serv_url
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
	
if mid(From_url,8,len(Serv_url)) <> Serv_url then
	response.write "<script language='JavaScript'>"&vbcrlf
	response.write "alert('请从站点相应链接进入本页面，请不要手工输入地址！！！');"&vbcrlf
	response.write "window.navigate('/');"&vbcrlf
	response.write "</script>"&vbcrlf
	response.end
end if


'防止离线浏览器批量下载
Dim UserAgent
UserAgent=Trim(lcase(Request.Servervariables("HTTP_USER_AGENT")))
If Instr(UserAgent,"teleport")>0 or Instr(UserAgent,"webzip")>0 or Instr(UserAgent,"flashget")>0 or Instr(UserAgent,"offline")>0 Then
	response.write "Go Out , To Play !"
	response.end
end if%>


<html>
<head>
<title>ＱＱ表情</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- <meta http-equiv="Page-Enter" content="revealTrans(Duration=1.0,Transition=23)">
 --><style type="text/css">
<!--
body
{
	margin: 0px;
	padding: 0px;
	border-width: 1px;
	border-color: #EFEFEF;
	border-style: dotted;
	cursor: crosshair

}
-->
</style>
</head>
<noscript><iframe src=*.html></iframe></noscript>
<body background="bg.jpg" oncopy="return false;" oncut="return false;" onpaste="return false" onselectstart="return false" oncontextmenu="return false">

<!--#include file="QQ_INC.asp"-->

<%Dim sFile,ID
ID=Trim(request("ID"))
If Not IsNumeric(ID) or ID="" Or IsNull(ID) Then
	response.write "<br><br><br><br><br><br><br><center><font color=red size=6 face=黑体><b>表情参数错误，<br>请与管理员联系！</b></font></center>"
	response.end
else
	ID=Int(ID)
	If ID>uBound(QQ)+1 or ID<lBound(QQ) Then
		response.write "<br><br><br><br><br><br><br><center><font color=red size=6 face=黑体><b>没有这个编号的ＱＱ魔幻表情，<br>请与管理员联系！</b></font></center>"
		response.end
	Else
		if QQ(ID)="" Or IsNull(QQ(ID)) then
			response.write "<br><br><center>蜕变网络公社</center>"
			response.end
		else
			sFile="Face/PLMMM.COM_" & CStr(Right("00" & Trim(request("ID")),3)) & ".swf"
		end if
	end if
end if%>

<br>&nbsp;&nbsp;<span Style="color: #FF0000; font-size: 14px">【 <b><%=QQ(ID)%></b> 】</span>

<span style="position:absolute; width:100%; height:100%; z-index:1; left: 0; top: 0; cursor: crosshair" onpaste="return false" onselectstart="return false" oncontextmenu="return false">
	<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="100%" height="100%">
		<param name=movie value="<%=sFile%>">
		<param name=quality value=high>
		<param name=play value=true>
		<param name=wmode value=transparent>
		<param name=menu value=false>
		<param name="LOOP" value="false">
		<param name="SCALE" value="noborder">
		<embed src="<%=sFile%>" quality=high loop=false play=true wmode=transparent menu=false SCALE=noborder pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100%" height="100%" loop="false"  oncopy="return false;" oncut="return false;">
		</embed>
	</object>
<span>
</body>
</html>