comment_qq.asp

来自「一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊」· ASP 代码 · 共 42 行

<%
response.Charset="GB2312"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<%
page = int(Request("page"))
IF page=0 or page="" Then page=1
%>
<TABLE cellSpacing=0 cellPadding=3 align=center border=0>
        <TR align=middle height=26>
		<%
		For i=(page-1)*20+1 To page*20
		 IF len(i)=1 Then
		    ii="0"&i
		 Else
		    ii=i
		 End IF
		%>
		<TD vAlign=center><IMG id="em<%=ii%>" onmouseover=smileyMenu(this.id) onmouseout=smileyMenu(this.id) title=<%=ii%> onclick="insertSmiley('<%=ii%>');" height=20 alt=<%=ii%> src="htmledit/qq/em<%=ii%>.gif" width=20 border=0></TD>
		<%
		IF (i mod 5)=0 Then Response.Write "</TR><TR align=middle height=26>"
		%>
		<%
        Next
		%>
        <TR>
          <TD colSpan=5>
<DIV class=p_bar>
<%For j=1 to 4
IF page=j Then
%>
<A class=p_curpage><%=j%></A>
<%Else%>
<A class=p_num href="javascript:smileyPage(<%=j%>)"><%=j%></A>
<%
End IF
Next
%>
</DIV></TD></TR></TABLE>