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

📄 viewusererror.asp

📁 订单管理系统 一、管理员可以设置和修改物品的图片资料 二、修改了级别与积分关系的部分 三、修改了增加用户审核后新用户注册时的错误 四、管理员可以设置用户所有的支付方式和页面的反馈信
💻 ASP
字号:
<!--#include file="adminconn.inc" -->
<% 
'如果删除
if request("del")<>"" then 
   conn.Execute("delete * from usererror where id="&request("del"))
   end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../inc/guhongying.css" type="text/css">
<title>腾科B2C在线购物-用户申诉单管理</title>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
   if (isNaN(go2to.page.value))
		alert("请正确填写转到页数!");
   else if (go2to.page.value=="") 
	     {
		alert("请输入转到页数!");
		 }
   else
		go2to.submit();
}
//-->
</SCRIPT>
<body bgcolor="6699CC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
 
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000" vspace="0" hspace="0">
  <tr>
    <td bgcolor="#316395" height="27"><font color="#FFFFFF">.:: 您可以在这里查看用户的申诉单</font></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="50">&nbsp;</td>
  </tr>
</table>
<% 
set rs=server.createobject("adodb.recordset") 
     if not isempty(request("page")) then   
     pagecount=cint(request("page"))   
     else   
     pagecount=1   
     end if

     sql="select * from usererror order by id desc"

	 rs.open sql,conn,1,1   
     if rs.eof and rs.bof then   
     response.write"<BR>" 
	 response.write"=== 暂无符合条件之订单 ==="
     response.write"<BR><BR>"
	 response.end  
	 end if

     rs.pagesize=10
     if pagecount>rs.pagecount or pagecount<=0 then              
     pagecount=1              
     end if              
     rs.AbsolutePage=pagecount %>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="75%" align="center">
    <tr bgcolor="#336699"> <% if rs.pagecount=1 then %> 
      <td height="30" colspan="4"  > <%if key<>"" then response.write "<font color=ffffff>您正在编辑 <b>" & key & " </b>的订单</font> "%> 
        <font class="ver" color="#FFFFFF">共有[<%=rs.recordcount%>]张申诉单 以下是[1~<%=rs.recordcount%>]张 
        </font>
</td>             
        </tr>
<%else%>
    <tr bgcolor="#336699"> 
      <td height="30" colspan="4" ><font class=ver> <font color="#FFFFFF"><%if key<>"" then response.write "您正在编辑" & key & " 的订单 "%> 
        <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
		    page_end=rs.pagesize*pagecount
		    if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%> 
        共有[<%=rs.recordcount%>]张申诉单 以下是[<%=page_start%>~<%=page_end%>]张 </font></font></td>  

        </tr>
        
    <tr bgcolor="#7C96B8"> 
      <td height="35" colspan="4" > <% response.write"<form name=go2to form method=Post action='viewusererror.asp?key="+key+"'>"
		     response.write "<font class=ver>◆&nbsp;</font>"                                              
		     if pagecount=1 then                                                        
			 response.write "<font class=ver>首页 上一页</font>&nbsp;"
			 else                                                        
             response.write "<a href=viewusererror.asp?page=1&key="+key+"><font class=ver>首页</font></a>&nbsp;" 
	         response.write "<a href=viewusererror.asp?page="+cstr(pagecount-1)+"&key="+key+"><font color='0000BE'>上一页</font></a>&nbsp;"
			 end if                                             
             if rs.PageCount-pagecount<1 then                                                        
             response.write "<font class=ver>下一页 尾页</font>"                                                    
			 else                                                        
             response.write "<a href=viewusererror.asp?page="+cstr(pagecount+1)+"&key="+key+"><font class=ver>下一页</font></a>&nbsp;"
			 response.write "<a href=viewusererror.asp?page="+cstr(rs.PageCount)+"&key="+key+"><font class=ver>尾页</font></a>"           
             end if 
			 response.write "<font class=ver>&nbsp;页次:<font class=ver>"&pagecount&"</font>/"&rs.pagecount&"页</font>" 
			response.write "<font class=ver> 转到第<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">页</font>&nbsp;&nbsp;&nbsp;&nbsp;"                               
			response.write "<input class=button1 type='button' value='确 定' onclick=check() style='font-family: 宋体; font-size: 9pt; color: #000073; position: relative; height: 19'>" %> 
      </td>

        </tr>
	  <%end if%>
	</table>        
        
  <table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="75%" align="center">
    <tr> 
      <td width="8%" height="28" class=ver bgcolor="336699"> 
        <p align="center"><font color="#FFFFFF">ID</font></p>
      </td>
      <td width="17%" bgcolor="#7C96B8" > 
        <div align="center"><font color="#FFFFFF">用户帐号</font></div>
      </td>
      <td width="17%" bgcolor="#336699" > 
        <div align="center"><font color="#FFFFFF">订单号</font></div>
      </td>
      <td width="17%" bgcolor="#7C96B8" > 
        <div align="center"><font color="#FFFFFF">申诉日期</font></div>
      </td>


      <td width="8%" bgcolor="#336699"> 
        <p align="center"><font color="#FFFFFF">删除 </font> 
      </td>

    </tr>
    <% do while not rs.eof %> 
    <tr> 
      <td  height="35" bgcolor="336699" > 
        <p align="center"><%=rs("id")%> </p>
      </td>
      <td bgcolor="#7C96B8"  > 
        <p align="center"><font color=ffffff><%=rs("username")%></font></p>
      </td>
      <td bgcolor="#336699"  > 
        <p align="center"><%=rs("inBillNo")%></p>
      </td>

      <td bgcolor="#7C96B8"  > 
        <p align="center"><font color=ffffff><%=rs("sdate")%></font></p>
      </td>

      <td bgcolor="#336699" > 
        <p align="center"><font color="#eeeeee">[</font><a href="viewusererror.asp?del=<%=rs("id")%>&username=<%=request("username")%>&comp=<%=request("comp")%>"><font color=ffffff>删</font></a><font color="#eeeeee">]</font> 
      </td>

    </tr>
<%
i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
      </div>
</body>
</html>

⌨️ 快捷键说明

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