📄 bbrreadqqstatus.asp

📁 .　缓存处理技术

💻 ASP

字号:

<!--#include file="Inc/Function.asp"-->
<%

Const DisplayQQ=2

Dim Userqq,BBR_UserQQSkins,BBR_UserQQMsg,SYS_WEBName
Userqq=CheckStr(trim(Request.QueryString("Userqq")))
BBR_UserqqSkins=CheckStr(trim(Request.QueryString("BBR_UserqqSkins")))
BBR_UserqqMsg=CheckStr(trim(Request.QueryString("BBR_UserqqMsg")))
SYS_WEBName=CheckStr(trim(Request.QueryString("SYS_WEBName")))
if isNum(Userqq) and Len(Userqq)>=5 and isNum(BBR_UserQQSKins) then
   Response.Write"<Body TopMargin=0 LeftMargin=0 RightMargin=0>"& Vbcrlf
   if DisplayQQ=1 then
	Response.write"<a target=""blank"" href=""http://wpa.qq.com/msgrd?V=1&Uin="& UserQQ &"&Site="& Server.URLEncode(SYS_WEBNAME) &"&Menu=yes""><img border=""0"" SRC=""http://wpa.qq.com/pa?p=1:"& UserQQ &":"& BBR_UserQQSKins &""" alt="""& BBR_UserQQMsg &"""></a>" & vbcrlf
   else
	Response.write"<a target=""blank"" href=""http://wpa.qq.com/msgrd?V=1&Uin="& UserQQ &"&Site="& Server.URLEncode(SYS_WEBNAME) &"&Menu=yes""><img border=""0"" SRC=""Images/qq.bmp"" alt="""& BBR_UserQQMsg &"""></a>" & vbcrlf
   end if
   Response.Write"</Body>"& Vbcrlf
End if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -