<% 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 %>
<%end sub%>
[关闭窗口]