<!--#include file="QQ_INC.asp"-->
<%
'==============================================================================
'	软件名称：ＱＱ魔幻表情插件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 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 name="Author" content="M.N.C">
<meta name="Copyright" content="Copyright 2003-2005" >
<meta name="keywords" content="蜕变,bbs,论坛,社区,公社,美女,自拍,原创,灌水,另类,交友,设计,龙子,leadbbs,免费留言本,mnc,">
<meta name="Description" content="M.N.C">

<title>ＱＱ表情</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>
<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>&nbsp;&nbsp;<a href='?page=1'>首页</a>&nbsp;<a href='?page=" & (page-1) &"'>上页</a>&nbsp;<a href='?page=" & (page+1) &"'>下页</a>&nbsp;<a href='?page=" & tpage &"'>末页</a>&nbsp;&nbsp;[ " & page &" / " & tpage &" ]&nbsp;&nbsp;<font color=red onclick=""window.close();"" title=""关闭窗口""><b>×</b></font></td></tr>"
response.write "</table>"
%>

</body>
</html>