📄 xianhua.asp

📁 进入后台
💻 ASP
字号:
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="head.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename%>-赠送列表</title>
<LINK href="css.css" type=text/css rel=stylesheet>
</head>
<body>
<%sitehead
id=clng(request("id"))
if id="" or id<1 then ShowError("访问选手不存在")
gs=obj.getname(id,1,SiteDatabase)%>
<table width="760"  border="0" align="center" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td height="291" valign="top">
            <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0" class="border">
        <tr>
          <td height="25"> 　<img src="skins/1/xb3.gif">&nbsp;当前位置:<a href="index.asp">首页</a> &gt;&gt; <a href="hcview.asp?id=<%=id%>"><%=gs%>展示页</a> &gt;&gt; 赠送<%=gs%>列表</td>
          </tr>
      </table>
            <br>
      <table width="97%"  border="0" align="center" cellspacing="0" cellpadding="0" class="border">
	 <tr bgcolor=#F7F7F7>
       <%rs.open "select * from [hc] where userid="&id&" and votes=0 order by id desc",conn,1,1
	If Rs.eof and Rs.bof Then
	Response.Write("<td height=25>暂无会员</td>")
	else
	dim strFileName,i,j,totalPut,CurrentPage,TotalPages
					totalPut=rs.recordcount
					const MaxPerPage=30
					strFileName="?"
					if request("page")<>"" then
						currentPage=cint(request("page"))
					else
						currentPage=1
					end if
					if currentPage<>1 and (currentPage-1)*MaxPerPage<totalPut then
					rs.move (currentPage-1)*MaxPerPage
					else
					currentPage=1
					end if
					i=0
					do while not rs.eof
					i=i+1
			Response.Write "<td height=25><div align=center>"&i&".<A href='datum.asp?userid="&rs("formuserid")&"' title='"&rs("adddate")&"'>"&obj.getname(rs("formuserid"),1,SiteDatabase)&"</a></div></td>"
			if i mod 8=0 then Response.Write "</tr><tr bgcolor=#F7F7F7>"
			rs.movenext
			loop
			end if%>
		</tr>
      </table><br>
<table width="95%" align="center" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC" class="border">
  <tr>
    <td height="25" bgcolor="#f9f8f2"><div align="center"><%=obj.showpage(strFileName,totalput,MaxPerPage,true,true,"条",currentPage)%></div></td>
  </tr>
</table>
<%rs.close:set rs=nothing%>
</td>
  </tr>
</table>
<%sitebottom%>
</body>
</html>
⌨️ 快捷键说明

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