📄 selqq.asp
字号:
<!--#include file="QQ_INC.asp"-->
<%
'==============================================================================
' 软件名称：ＱＱ魔幻表情插件for bbsgood 3.2
' 软件版本：V 1.0
'==============================================================================
const Cols=8
const Rows=6
Dim QQCount,qFaceCount
qFaceCount=0
For QQCount= 1 to ubound(QQ)
if Not IsNull(QQ(QQCount)) and QQ(QQCount)<>"" Then
qFaceCount=qFaceCount +1
qFace(qFaceCount)=QQCount
end if
Next
Dim tPage,Page,tCount,Col,Row,nCount
tCount=Rows*Cols
if qFaceCount mod tCount = 0 then
tPage= qFaceCount/tCount
else
tPage= Int(qFaceCount/tCount)+1
end if
Page=trim(Request("Page"))
if Page="" or not isnumeric(Page) Then Page=1
page=clng(page)
If Page>tPage Then Page=tPage
if Page<1 Then Page=1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="keywords" content="bbsgood.com">
<meta name="description" content="bbsgood.com">
<title>bbsgood.com－魔幻ＱＱ表情</title>
<style type="text/css">
<!--
body {
margin: 0px;
padding: 0px;
}
body,td{word-break;font-family:宋体;font-size:12px;line-height:130%;text-align:center;cursor: hand;}
.bg1{background-color: #FFFFFF;}
.bg2{background-color: #DEDEDE;}
//-->
</style>
</head>
<script>
window.name = 'view';
</script>
<base target="view">
<noscript><iframe src=*.html></iframe></noscript>
<body onselectstart="return false" oncopy="return false;" oncut="return false;"
onpaste="return false" oncontextmenu="return false">
<script language="JavaScript" Src="QQ_Act.Js"></script>
<%response.write "<table cellpadding=3 cellspacing=1 bgcolor=""#666666"" align='center' width='100%' height='100%'>"
for Row=0 To Rows-1
response.write "<tr>"
for Col=1 to Cols
nCount=qFaceCount-(Row*Cols + Col + (page-1) * tCount)+1
if nCount<1 then exit for
response.write "<td class='bg1' onmouseover=""this.className='bg2';"" onmouseout=""this.className='bg1';"" align='center' onclick=""InsQQ('" & cStr(Right("00" & qFace(nCount),3)) & "')""><img src=""Img/" & cStr(Right("00" & qFace(nCount),3)) & ".gif"" border=0 alt=""" & QQ(Clng(qFace(nCount))) & """></td>"
next
response.write "</tr>"
next
response.write "<tr height=30><td bgcolor=""#CCCCCC"" colspan=" & COls & "><font color=red>请选择你需要的表情！</font> <a href='?page=1'>首页</a> <a href='?page=" & (page-1) &"'>上页</a> <a href='?page=" & (page+1) &"'>下页</a> <a href='?page=" & tpage &"'>末页</a> [ " & page &" / " & tpage &" ] <font color=red onclick=""window.close();"" title=""关闭窗口""><b>×</b></font></td></tr>"
response.write "</table>"
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -