<FORM action="vote.asp" target="newwindow" method=post name=research>
<table border="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%" background=images/xian.jpg cellspacing="1">
<tr>
<td><p align="left"> </td>
</tr>
<%
if err.number<>0 then
response.write "数据库操作失败:" & err.description
err.clear
else
if not (rs.eof and rs.bof) then
totalrec = RS.RecordCount
if rs.recordcount mod msg_per_page = 0 then
n = rs.recordcount\msg_per_page
else
n = rs.recordcount\msg_per_page+1
end if
currentpage = request("page")
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage
rowcount = rs.pagesize
%>
<%
dim r
dim j
dim k
r=0
while not rs.eof and rowcount > 0
if r mod 5=0 then
row="<tr>"
else
row=" "
end if
r=r+1
response.write(row)
response.write("<td width=100 class=ziti2 align=center>" & "<a target=_blank href=photoview.asp?id=" & rs("id") & "><img width=100 height=120 border=0 src=uploadimg/" & rs("url") & "></a><p>")
response.write(rs("name") &"<br>")
response.write(rs("time") &"票"&"<br>")
%>
<INPUT name=id&"r" style="border: 0" unchecked type=checkbox value='<%=rs("id")%>'>
<%
rowcount=rowcount-1
rs.MoveNext
wend
end if
end if
rs.close
set rs=nothing
%>
</table></td>
</tr>
<tr>
<td height="20" class="ziti1">
<table border="0" align="center">
<TR>
<TD width="97%" height=30 align=center> <INPUT style="cursor:hand" type=submit value="投 票" id=submit1 name=submit1>
<INPUT onclick="javascript:vote()" type="button" value="结 果" id=button1 name=button1 style="cursor:hand">
</TD>
</TR>
</FORM>