📄 guestselect.asp
字号:
<%
dim action,PageTitle,strHtml
action=request("action")
if action="face" then
PageTitle="请选择头像"
elseif action="emot" then
PageTitle="请选择表情"
end if
strHtml="<html><head><title>" & PageTitle & "</title></head>" & vbcrlf
strHTML=strHTML & "<script>" & vbcrlf
strHTML=strHTML & "window.focus();" & vbcrlf
strHTML=strHTML & "function changeimage(imagename){" & vbcrlf
strHTML=strHTML & " window.opener.document.myform.GuestImages.value=imagename;" & vbcrlf
strHTML=strHTML & " window.opener.document.myform.showimages.src='../guestbook/images/face/'+imagename+'.gif';" & vbcrlf
strHTML=strHTML & "}" & vbcrlf
strHTML=strHTML & "</script>" & vbcrlf
strHTML=strHTML & "<body>" & vbcrlf
if action="face" then
strHTML=strHTML & "<table align=center width=95% cellpadding=5><tr><td>"
for i=1 to 22
strHTML=strHTML & "<img src='images/face/"
if i<10 then
i= "0" & i
end if
strHTML=strHTML & i & ".gif' border=0 onclick=""changeimage('" & i & "') "" style=cursor:hand>"
if i mod 5 =0 then
strHTML=strHTML & "<br>"
end if
next
strHTML=strHTML & "</td></tr></table>"
elseif action="emot" then
strHTML=strHTML & "<table align=center width=95% cellpadding=5><tr><td>"
for i=1 to 23
strHTML=strHTML & "<img src='images/emot/emot" & i & ".gif' border=0 onclick=""window.opener.document.myform.GuestContent.value+='[emot" & i & "]' "" style=cursor:hand> "
if i mod 6 =0 then
strHTML=strHTML & "<br>"
end if
next
strHTML=strHTML & "</td></tr></table>"
end if
strHTML=strHTML & "<div align='center'><font size='2'>【<a href='javascript:window.close();'>关闭窗口</a>】</font></div>"
strHTML=strHTML & "</body>"
strHTML=strHTML & "</html>"
response.write strHTML
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -