📄 smily.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="includes/emoticons.asp" -->
<%
Response.Buffer = True 

Dim intIndexPosition
Dim intNumberOfOuterLoops
Dim intLoop			
Dim intInnerLoop
%>
<html>
<head>
<title>表情符号</title>

<script  language="JavaScript">
function AddSmileyIcon(imagePath){	
	window.opener.frames.message.focus();								
	window.opener.frames.message.document.execCommand('InsertImage', false, imagePath);
	window.close();
}
</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 bgcolor="<% = strTableBorderColour %>" border="0" cellspacing="1" cellpadding="0" align="center"><tr><td>
<table width="350" border="0" cellspacing="0" cellpadding="0" align="center" >
 <tr> <td bgcolor="#FFFFFF"  colspan="4" height="50" align="center" class="text">点击你希望加到你文章中的表情图标</td> </tr>

<%
intIndexPosition = 1
intNumberOfOuterLoops = UBound(saryEmoticons) / 2
If UBound(saryEmoticons) MOD 2 > 0 Then intNumberOfOuterLoops = intNumberOfOuterLoops + 1
For intLoop = 1 to intNumberOfOuterLoops %>
<tr bgcolor="#FFFFFF"><%
	For intInnerLoop = 1 to 2  
		If intIndexPosition > UBound(saryEmoticons) Then  %>
		<td width="20" class="text">&nbsp;</td>
		<td width="100" class="text">&nbsp;</td>
		<%	Else  %>
		<td width="60" class="text" nowrap>&nbsp;&nbsp;<img src="<%= saryEmoticons(intIndexPosition,3) %>" border="0" alt="<%= saryEmoticons(intIndexPosition,2) %>" OnClick="AddSmileyIcon('<%= saryEmoticons(intIndexPosition,3) %>')" style="cursor: hand;"></td>
		<td width="150" class="text"><%= saryEmoticons(intIndexPosition,1) %></td>
		<%  	End If
              intIndexPosition = intIndexPosition + 1 
				Next  %></tr>
	<% Next  %>
            </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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -