📄 emoticon.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<!--#include file="includes/emoticons.asp" -->
<%
Response.Buffer = True
Dim intIndexPosition
Dim intNumberOfOuterLoops
Dim intLoop
Dim intInnerLoop
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>表情符号</title>
<script language="JavaScript">
function AddSmileyIcon(iconCode) {
window.opener.document.frmAddMessage.message.value += iconCode + " ";
}
// -->
</script>
<!--#include file="includes/skin.asp" -->
</head>
<body bgcolor="<% = strBgColour %>" text="<% = strTextColour %>" background="<% = strBgImage %>" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" OnLoad="self.focus();">
<br /><table width="350" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<% = strTableBorderColour %>" height="138">
<tr><td height="174">
<table border="0" align="center" cellpadding="4" cellspacing="1" width="350">
<tr align="left" bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
<td colspan="2" class="text" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr> <td align="center" class="text">点击你希望加到你文章中的表情图标</td>
</tr></table>
<table width="340" border="0" cellspacing="0" cellpadding="4"><%
intIndexPosition = 1
intNumberOfOuterLoops = UBound(saryEmoticons) / 2
If UBound(saryEmoticons) MOD 2 > 0 Then intNumberOfOuterLoops = intNumberOfOuterLoops + 1
For intLoop = 1 to intNumberOfOuterLoops
%>
<tr><%
For intInnerLoop = 1 to 2
If intIndexPosition > UBound(saryEmoticons) Then %>
<td width="17" class="text"> </td>
<td width="62" class="text"> </td>
<td width="64" class="tex""> </td>
<% Else %>
<td width="17" class="text"><a href="JavaScript:AddSmileyIcon('<%= saryEmoticons(intIndexPosition,2) %>')"><img src="<%= saryEmoticons(intIndexPosition,3) %>" border="0" alt="<%= saryEmoticons(intIndexPosition,2) %>"></a></td>
<td width="62" class="text"><%= saryEmoticons(intIndexPosition,1) %></td>
<td width="64" class="text"><%= saryEmoticons(intIndexPosition,2) %></td>
<%
End If
intIndexPosition = intIndexPosition + 1
Next
%></tr><% Next %>
</table>
</td></tr></table>
</td></tr></table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr><td align="center" height="34"><a href="JavaScript:onClick=window.close()">关闭窗口</a></td>
</tr></table>
<br/><br/><br/>
<!-- #include file="includes/footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -