useraccountmanage.asp

在线经销商回单管理系统在线经销商回单管理系统

<%@language=vbscript codepage=936 %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="Inc/Function.asp"-->

<script language=javascript>
function ConfirmDel()
{
   if(confirm("确定要删除此用户吗？"))
     return true;
   else
     return false;
}
</script>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="862" align="center" valign="top"><br>
      <br>
      <table width="760" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9E2F1">
        <tr>
          <td height="20" colspan="9" align="center" bgcolor="#D9E2F1">台帐管理</td>
        </tr>
        <tr>
          <td height="22" align="left" bgcolor="#FFFFFF">&nbsp;序号</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;发件日期</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;品名及规格</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;领用单据号</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;领用数量</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;备注状态</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;经销商名称</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;经销商编号</td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;操作</td>
        </tr>
		        <tr >
          <td height="22" colspan="9" align="left" bgcolor="#FFFFFF" ><span style="color: #FF8000">&nbsp;&nbsp;*注意：已回执信息标记为黄色</span></td>
        </tr>
        <% 
On Error Resume Next
iPage = trim(Request.QueryString("page"))
if iPage="" then
iPage=1
end if
jxsid=request("UserId")

  dim Rs
  SET RS=SERVER.CreateObject("ADODB.RECORDSET")
  SQL="SELECT * FROM ACCOUNT WHERE JXSID='"&JXSID&"' ORDER BY ID DESC"
  'RESPONSE.Write SQL
  RS.OPEN SQL,CONN,1,1
  'Set Rs=conn.execute ("select * from INFO_CARD order by id desc")
  if Rs.eof then
  response.Write "还没有添加卡片信息"
  response.end
  else
Rs.PageSize = 10
iPageCount = Rs.PageCount
Rs.AbsolutePage = iPage
Dim i
For i = 1 To Rs.PageSize
	If Rs.Eof Then Exit For
   %>

        <tr <% if Rs("receiptStatus")=1 then response.Write "class=receiptStatus" end if%>>
          <td height="22" align="left" bgcolor="#FFFFFF" >&nbsp;<%= Rs("ID") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("FAJIANRIQI") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<a href="AccountDetail.asp?id=<%= Rs("ID") %>"><%= Rs("PINMING") %></a></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("LINGDANHAO") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("LINGYONGSHULIANG") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;&nbsp;
		    <%
		  IF Rs("chakanbeizhu")=0 THEN RESPONSE.Write "无备注" end if
		  if Rs("chakanbeizhu")=1 then response.Write "已查看" end if
		  if Rs("chakanbeizhu")=2 then response.Write "有备注" end if
		  %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("jxs") %></td>
          <td align="left" bgcolor="#FFFFFF">&nbsp;<%= Rs("jxsid") %></td>
          <td align="left" bgcolor="#FFFFFF"><a href="receipt.asp?Id=<%=Rs("Id")%>">回执</a>  <a href="AccountDel.asp?ID=<%= RS("ID") %>&PAGE=<%= IPAGE %>">删除</a>&nbsp;<a href="AccountDetail.asp?id=<%= Rs("ID") %>">查看详细</a></td>
        </tr>
      <%      
	Rs.MoveNext
Next
End If
%>
  <tr>
    <td id="bottom" height="25" align="center" bgcolor="#FFFFFF" colspan="9">共<font color=red> <%=iPage%>/<%=Rs.RecordCount%></font>条记录 分<font color=red><%=iPageCount%></font>页 每页<font color=red><%=Rs.PageSize%></font>条
        <%
			If iPage = 1 Then
				Response.Write("[第一页]&nbsp;")
				Response.Write("[上一页]&nbsp;")
			Else
				Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page=1><font color=red>[第一页]</font></a>&nbsp;")
				Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& (iPage - 1) &"><font color=red>[上一页]</font></a>&nbsp;")
			End If
			If iPageCount = iPage Then
				Response.Write("[下一页]&nbsp;")
				Response.Write("[最后一页]")
			Else
				Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& (iPage + 1) &"><font color=red>[下一页]</font></a>&nbsp;")
				Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& iPageCount &"><font color=red>[最后一页]</font></a>")
			End If
			%>    </td>
  </tr>
      </table></td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.Close
set rs=Nothing
call CloseConn()  
%>