📄 shopstar.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="shopstar2.asp"-->
<html>
<head>
<title>评定星级店铺</title>
<LINK href="../style.css" type=text/css rel=stylesheet>
</head>
<body><!--#include file="top.asp"-->
<table width="100%" border="0">
  <tr> 
    
    <td align="center" bgcolor="#FFFFFF">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user_info where  font in ('0','1') Order By font desc,user_id Desc"
rs.open sql,conn,1,3
star=rs("star")
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>
      <table width="100%" border="0" bordercolor="#59BE48" cellspacing="1" bgcolor="#0099FF">
        <tr align="center"> 
          <td width="15%" bgcolor="#FFFFFF"><font color="#0099FF">ID</font></td>
          <td width="29%" bgcolor="#FFFFFF"><font color="#0099FF">店铺名</font></td>
    <td width="20%" bgcolor="#FFFFFF"><font color="#0099FF">状态</font></td>
          <td colspan="2" bgcolor="#FFFFFF"><font color="#0099FF">评定星级</font></td>
           </tr>
<%
	  IF not rs.eof and not rs.bof then
	  dim page_size
	  dim page_no
	  dim page_total
	  page_size=10
	  if request.QueryString("page_no")="" then
	  page_no=1
	  else
	  page_no=cint(request.QueryString("page_no"))
	  end if
	  rs.pagesize=page_size
	  page_total=rs.pagecount
	  rs.absolutepage=page_no
	  dim I,J
	  I=0
	  J=page_size
	  do while not rs.eof and J>0
	  J=J-1
	  I=I+1
      %>
        <tr align="center"> 
          <td bgcolor="#FFFFFF"><%=rs("user_id")%></td><% star=rs("star") %>
               <td bgcolor="#FFFFFF"><%=rs("shop_name")%></td>
 <td bgcolor="#FFFFFF"><% 
		  Select Case rs("font")
                Case "0"
                response.write "<font color=""#008000"">[未审核店铺]</font>"
                Case "1"
                response.write "<font color=""#FF00FF"">[已审核店铺]</font>"
                End Select
		   %></td>
               <td width="15%" bgcolor="#FFFFFF"><a href="shopstaredit.asp?user_id=<%=rs("user_id")%>">修改</a></td>
               <td width="21%" bgcolor="#FFFFFF"><%=top1(star)%></td>
        </tr>
<%
	      Rs.MoveNext
		Loop      
	  End IF
	  %>
      </table>
     
<table  width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page" >
              <tr>
                <td bgcolor="#D9F2FF"><div align="center">[本页是<%=int(page_no)%>/<%=int(page_total)%>] [<a href="?page_no=1">第一页</a>]
              <%if int(page_no)>1 then%>
              [<a href="?page_no=<%=cstr(int(page_no-1))%>">前一页</a>]
              <%elseif int(page_no)<=1 then%>
              [<a href="?page_no=1">前一页</a>]
              <%end if%>
              <%if int(page_no)<int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_no+1))%>">后一页</a>]
              <%elseif int(page_no)>=int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_total))%>">后一页</a>]
              <%end if%>
              [<a href="?page_no=<%=page_total%>">最后一页</a>] 转到
              <input name="page" type="text" value="<%=page_no%>" size="5">页
			<input type="button" class=input name="Submit" value="转到" onClick="GoPage()"></div></td>
              </tr>
</table>
    </td>
  </tr>
</table><!--#include file="copy.asp"-->
</body>
</html>
⌨️ 快捷键说明

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