📄 gbook_select.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

💻 ASP

字号:

<%
dim emotnum,emotpath
emotpath="../images/gbook/emot/"
emotnum=23
PageTitle="请选择表情"
action=request("action")

select case action
	case "emot"		
	call emot()	
	
	case "admin_emot"		
	call admin_emot()		
		
end select
%>
<html>
<head>
<title><%=PageTitle%></title>

<style>
BODY
{
FONT-FAMILY: ??ì?;
FONT-SIZE: 9pt;
text-decoration: none;
line-height: 150%;
background-color: #FBFDFF;
}
TD
{
FONT-FAMILY:??ì?;
FONT-SIZE: 9pt;
}
A
{
TEXT-DECORATION: none;
}
A:hover
{
COLOR: #0099FF;
}
A:link {
color: #205064;
}
A:visited {
color: #006699;
}
</style>
</head>
<body>
<% sub emot()%>
<table align=center width=95% cellpadding=5><td>
<%
for ii=1 to emotnum
	response.write "<img src='"&emotpath&"emot"&ii&".gif' border=0 onclick=""window.opener.document.book.Comments.value+='[emot"&ii&"]' "" style=cursor:hand> "
	if ii mod 6 =0 then
		response.write "<br>"
	end if
next%>
</td></tr></table>
<%end sub%>

<% sub admin_emot()%>
<table align=center width=95% cellpadding=5><td>
<%
for i=1 to emotnum
	response.write "<img src='"&emotpath&"emot"&i&".gif' border=0 onclick=""window.opener.document.repl.comments.value+='[emot"&i&"]' "" style=cursor:hand> "
	if i mod 6 =0 then
		response.write "<br>"
	end if
next
%>
</td></tr></table>
<%end sub%>

<div align="center"><font size="2">[<a href="javascript:window.close();" style="font-size:9pt ">关闭窗口</a>]</font></div>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -