📄 magicqq.asp
字号:
<%
'==============================================================================
' 软件名称：ＱＱ魔幻表情插件for bbsgood 3.0
' 软件版本：V 1.0
' 最新更新：2004.12.20
'==============================================================================
'防止多次刷新
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>BBSGood.com－魔幻ＱＱ表情</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><font color=red size=6 face=黑体><b>最新完整数据包请到官方网站获取！</b><br><br><a href=""http://www.bbsgood.com"" target=""_Blank"">bbsgood官方 ( bbsgood.com )</a></font></center>"
response.end
else
sFile="Face/PLMMM.COM_" & CStr(Right("00" & Trim(request("ID")),3)) & ".swf"
end if
end if
end if%>
<br> <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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -