📄 check_customer.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.asp"-->
<%
Dim userdd
userdd = Manage_Level(adl)
%>
<HTML>
<HEAD>
<TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
<BODY text="#000000">
<SCRIPT language=javascript>
function Chk(theForm)
{
if (theForm.selpayer.value == ""){
                alert("请输入客户编号!");
                theForm.selpayer.focus();
                return (false);
    }else{
	        updated.style.display = '';
	}
}

function CheckNum(){
   if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false; 
   }
</SCRIPT>
<DIV id=overDiv style="Z-INDEX: 1; POSITION: absolute"></DIV>
<TABLE cellSpacing=1 cellPadding=0 width="98%" align=center border=0 class="tableBorder">
  <TBODY>
    <TR> 
      <FORM name="Form2" action="?action=go" method="post" onSubmit="return Chk(this);">
        <th align=middle colSpan=6 height=25> 
          <select name="selpayer" id="selpayer">
            <option value="" selected>请选择客户编号</option>
<%
Dim dd
Set dd=Conn.Execute("Select Customer_ID From [Customer] Where isOK=0")
Do While Not dd.Eof
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
dd.MoveNext
Loop
dd.Close
Set dd=Nothing
%>
          </select><input type="submit" name="Submit" value=" 点 击 查 找 ">
          客户审核</th>
      </FORM>
    </TR>
    <TR class=forumRow> 
      <td align=middle bgcolor="#f1f3f5"> 
        <DIV id="updated" style="DISPLAY: none" align="center"> 
          <table width="100%" border="0" align="center" cellpadding="4" cellspacing="4">
            <tr> 
              <td height="50"> <div align="center"><b>正在统计，请稍后...<b> <img height="15" alt="Laoding..." src="Image/loading.gif" width="150"></b></b></div></td>
            </tr>
          </table>
        </DIV>
       
        <%
If Request.QueryString("action") = "go" Then
Call HuiAdd
End if
Sub HuiAdd

Dim cai_id
Dim cc
cai_id = Request.Form("selpayer")
Set cc = Conn.Execute("Select * From [Customer] Where Customer_ID='"&cai_id&"'")
If cc.Eof Then
Response.Write "没有任何记录!"
Else

If cc("isOK")=0 Then
   If userdd<>"销售经理" Then
   Response.Write "<script language=javascript>alert('销售部经理还没有审核，请让该部门主管审核!');"
   Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
   End if
End if
%>
        <form name="form1" method="post" action="Check_Customer2.asp?id=<%=cc("ID")%>">
          <table width="100%" border="0" cellpadding="6" cellspacing="1" bgcolor="#FFFFFF">
            <tr> 
              <td height="25" class=forumrow><div align="right">经手人： </div></td>
              <td height="25" class=forumrow><%=cc("Manage")%></td>
            </tr>
            <tr> 
              <td width="34%" height="12" class=forumrow> <div align="right">销售经理：</div></td>
              <td width="66%" class=forumrow> 
                <%If cc("isOK")=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(cc("isOK"))
End if
%>
              </td>
            </tr>
            <tr> 
              <td height="12" class=forumrow><div align="right">客户编号：</div></td>
              <td width="66%" class=forumrow><%=cc("Customer_ID")%></td>
            </tr>
            <tr> 
              <td height="25" class=forumrow> <div align="right">客户名称： </div></td>
              <td class=forumrow><%=cc("Customer")%></td>
            </tr>
            <tr> 
              <td height="12" class=forumrow> <div align="right">客户级别：</div></td>
              <td class=forumrow><%=cc("Levels")%></td>
            </tr>
            <tr> 
              <td height="12" class=forumrow><div align="right">联系人：</div></td>
              <td class=forumrow><%=cc("LianXi")%></td>
            </tr>
            <tr> 
              <td height="30" class=forumrow> <div align="right">客户地址：</div></td>
              <td height="30" class=forumrow><%=cc("Address")%></td>
            </tr>
            <tr> 
              <td height="30" class=forumrow><div align="right">客户电话：</div></td>
              <td height="30" class=forumrow><%=cc("Telphone")%></td>
            </tr>
            <tr> 
              <td height="30" class=forumrow><div align="right">备注：</div></td>
              <td height="30" class=forumrow><%=cc("Mone")%></td>
            </tr>
            <tr> 
              <td height="30" colspan="2" class=forumrow><div align="center"> 
                  <input type="submit" name="Submit2" value="审 核">
                </div></td>
            </tr>
          </table>
        </form>
        <%
		End if
cc.Close
Set cc=Nothing
		End Sub%>
      </td>
    </TR>
  </TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

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