vote_index.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<!--#include File="../DataEnvi.asp"-->
<!--#include File="../String.asp"-->
<div align="center">

  <table border="0" cellpadding="0" cellspacing="0" width="100%" background="images/bg2.gif">
    <tr> 
      <td height="1" bgcolor="#E32D3F"></td>
    </tr>
    <tr> 
      <td height="30" align="center"> 
        <table width="100%" border="0" cellspacing="3" cellpadding="0">
          <tr> 
            <td><font color=red class=titletext><%=NickName%>发布的投票调查</font></td>
            <td width="80" align="right"> 
              <a href="create.asp">发布新投票</a>
            </td>
            <td width="80" align="right">
              <a href="ClearVote.asp">全部删除</a></td>   
            </td>
          </tr>
        </table>
      </td>
    </tr>
    <tr> 
      <td height="1" background="images/hline.gif"></td>
    </tr>
    <tr> 
      <td align=center valign="top"> <BR>
<!-------------主体开始--------------------->

<%
	Set rs		=	Server.CreateObject("ADODB.RecordSet")
	If Not IsEmpty(Request("PageNO")) Then
	   PageNO=cint(Request("PageNO"))
	Else
	   PageNO=1
	End If

	SQLStr	=	"Select * From t_Vote Where ParentID=0 And AccountID=" & session("u_id") & " Order By ID DESC"
	PageSize	=5
	rs.PageSize =PageSize
	rs.Open SQLStr,objDB,1,3
	AllCount	= rs.RecordCount
	MaxPage		= rs.PageCount 
	If rs.RecordCount > 0 Then
	rs.MoveFirst 
	rs.AbsolutePage = PageNO
	End If
	i=0
	DO While Not rs.EOF and i<PageSize
%>
	<table border="0" cellpadding="2" cellspacing="2" width="100%">
	<tr><td>
	<script Src="Vote.asp?ID=<%=rs("ID")%>">
	</script>
	</td></tr>
	<tr><td align=right><a href="DelVote.asp?vote_id=<%=rs("ID")%>">删除</a></td></tr>
	</table><br>
	
<%		i=i+1 
		rs.MoveNext  
	Loop 
	rs.Close  
%>  
   <table border="0" cellpadding="2" width="100%"> 
    <tr> 
    <td>共 <font color=red><b><%=AllCount%></b></font> 个投票&nbsp; 页次: <font color=red><b><%=PageNO%></b> / <b><%=MaxPage%></b> 页
    </td>
    <td align=right> 

<%if PageNO-1>0 then %> 
  <A href=VoteList.asp?pageNO=1&ID=<%=Request.QueryString ("ID")%>>首页</a> <A href=VoteList.asp?pageNO=<%=pageNO-1%>&ID=<%=Request.QueryString ("ID")%>>上一页</a>
  <% 
else    
%>首页 上一页<% 
end if %> 
<% 
	if PageNo+1<=MaxPage then  
%> 
  <A href=VoteList.asp?pageNO=<%=pageNO+1%>&ID=<%=Request.QueryString ("ID")%>>下一页</a> <A href=VoteList.asp?pageNO=<%=MaxPage%>&ID=<%=Request.QueryString ("ID")%>>末页</a>
<% 
	else    
%> 
 下一页 末页 
<% 
	end if
	objDB.Close
	Set RS = Nothing
	Set objDB = Nothing
%> 
	</td>   
    </tr>   
  </table>  
<!------------------主体结束---------------------->

      </td>
    </tr>
    <tr> 
      <td height="1" background="images/hline.gif"></td>
    </tr>
  </table>
<table border=0 width=100%>   
    <tr> 
      <td align=right height=30>&gt; <a href="VoteList.asp">更多其他投票</a>&nbsp;</td>
    </tr>
  </table>
</div>