⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 votelist.asp

📁 本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.
💻 ASP
字号:
🔍 
<!--#include file="const.asp"-->
<!--#include file="conn.asp"-->
<%response.expires=-1
addr00=request.servervariables("server_name")
addr10=request.servervariables("url")
addr10=replace(addr10,"votelist.asp","")
addr000="http://"&addr00&addr10
'response.write addr000
set rs=server.createobject("adodb.recordset")
sql="select * from class order by id desc"
rs.open sql,conn,3,1
count=int(request("id"))
if count<=0 then
count=30
end if
if not rs.eof then
rs.pagesize=count
pagecount=rs.pagecount
if request("id")="" then
page=1
else
page=int(request("id"))
end if
if page>=rs.pagecount then
page=rs.pagecount
elseif page<=1 then
page=1
end if
rs.absolutepage=page
else
pagecount=1
page=1
end if
i=1

addr0=request.servervariables("server_name")
addr1=request.servervariables("url")
addr="http://"&addr0&addr1%>

<head>
<link rel="stylesheet" type="text/css" href="css.CSS">
<title></title>
</head>

<body bgcolor="#D5D5D5">
<table border="0" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" height="122" background="images/admin_bg_1.gif">
  <tr>
        <td width="100%" height="25" background="images/admin_bg_1.gif">&nbsp; </td>
    </tr>
    <tr>
      
    <td width="100%" height="93" bgcolor="#D6DFF7"> 
      <table border="0" width="100%" bordercolorlight="#000000" cellspacing="1" cellpadding="0" bordercolordark="#FFFFFF" height="22" bgcolor="#FFFFFF">
        <tr bgcolor="#D6DFF7"> 
                  
          <td width="11%" height="20" bgcolor="#CBD7F5"> 
            <p align="center">ID 
          </td>
                  
          <td width="62%" height="20" bgcolor="#D6DFF7"> 
            <p align="center">标题 
          </td>
                  
          <td width="27%" height="20" bgcolor="#CBD7F5"> 
            <p align="center">管理 
          </td>
            </tr>
          </table>
      <%do while not rs.eof and i<=count%>
      <table border="0" width="100%" cellspacing="1" cellpadding="0" height="22" bgcolor="#FFFFFF">
        <tr>
          <td width="11%" height="20" bgcolor="#CBD7F5"> 
            <p align="center"><%=rs("id")%>
          </td>
          <td width="62%" height="20" bgcolor="#D6DFF7"> 
            <p align="center"><a href="showvote.asp?classid=<%=rs("id")%>" target="_blank"><%=rs("title")%></a>
          </td>
          <td width="27%" height="20" bgcolor="#CBD7F5"> 
            <p align="center"><a href="xg.asp?id=<%=rs("id")%>&style=<%=rs("style")%>">修改</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              <a href="savevote.asp?id=del&classid=<%=rs("id")%>">删除</a> 
          </td>   
    </tr>
  </table>
      <%if k=count then 
exit do
end if
rs.movenext
loop%>
      <form method='GET' action='<%=addr%>'><p align='center'>
              <% if page>1 then %>
              <a href='<%=addr%>?<%=(page-1)%>'>&lt;&lt;上一页</a>&nbsp;&nbsp;  
              <%end if%>
              <% if int(page) < int(totalpage) then %>  
              <a href='<%=addr%>?<%=(page+1)%>'>下一页&gt;&gt;</a>  
              <% end if %>  
              【共<font color=red><%=totalpage%></font>页】【第<font color=red><%=page%></font>页】跳转到<input style='border-style: solid; border-width: 1' type='text' name='id' size='3'>页<input type='submit' value='GO' style='border-style: solid; border-width: 1' name='B1'></form>  
      </td>
    </tr><br>
	<tr>
        
    <td bgcolor="#D6DFF7"> 
      <p align="center"><br>
        调用代码说明：<br>
            &lt;script language="javascript" src=&quot;<%=addr000%>votedy.asp?<font color="#FF0000">id=5</font>&quot;&gt;&lt;/script&gt;</p>
          
      <div align="center">修改相应投票的ID就可以了<br>
        <br>
        <br>
      </div>
    </td>
  </tr><br>
	<tr><td height="18" background="l2.gif"></td></tr>
</table>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -