<%
dim guestimagesnum,imagespath,emotnum,emotpath
imagespath="images/guestbook/"
emotpath="images/emot/"
guestimagesnum=23
emotnum=23
action=request("action")
select case action
case "guestimages"
PageTitle="请选择头像"
call guestimages()
case "emot"
PageTitle="请选择表情"
call emot()
end select
%>
<%=PageTitle%>
<% sub guestimages()%>
<%
for i=1 to 9
response.write " "
next
for i=10 to guestimagesnum
response.write " "
next
%>
<%end sub%>
<% sub emot()%>
<%
for i=1 to emotnum
response.write " "
if i mod 6 =0 then
response.write " "
end if
next
%>
![]("&imagespath&"0"&i&".gif)
"
next
for i=10 to guestimagesnum
response.write "![]("&imagespath&""&i&".gif)
"
next
%>
![]("&emotpath&"emot"&i&".gif)
"
if i mod 6 =0 then
response.write "