📄 d_xymainfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="../include/Pubconn.asp"-->
<%if Request.ServerVariables("REQUEST_METHOD")="POST" and request("tag")=1 then     '''''''保存信用额度
     m_clientnum=trim(Request("m_clientnum"))
     m_credit=trim(Request("m_credit"))
     if m_credit<>"" then
        m_credit=m_credit*10000
     else
        m_credit=0
     end if
     m_begintime=trim(Request("m_begintime"))
     if m_begintime<>"" then
        m_begintime=m_begintime&"-"&trim(Request("m_beginmonth"))&"-"&trim(Request("m_beginday"))
     else
        m_begintime=""   
     end if
     m_endtime=trim(Request("m_endtime"))
     if  m_endtime<>"" then
        m_endtime=m_endtime&"-"&trim(Request("m_endmonth"))&"-"&trim(Request("m_endday"))
     else
        m_endtime=""   
     end if
     set rs1=server.CreateObject("adodb.recordset")
     rs1.Open "select * from D_clientinfo where clientnum='"& m_clientnum &"'",pubconn,1,3
     if rs1.RecordCount>0 then
        rs1.MoveFirst 
        oldcredit=rs1.Fields("credit")
      	rs1.Fields("credit")=m_credit
        rs1.Fields("begintime")=m_begintime
        rs1.Fields("endtime")=m_endtime
        rs1.fields("xycz")=m_credit-oldcredit
        rs1.Update 
        rs1.Close 
        
     else
        rs1.AddNew 
        rs1.Fields("clientnum")=m_clientnum
        rs1.Fields("credit")=m_credit
        rs1.Fields("begintime")=m_begintime
        rs1.Fields("endtime")=m_endtime
        rs1.Update 
        rs1.Close 
     end if%>
     <form name=form4>
        <input type="hidden" name="index" value=<%=request("index")%>>
        <input type="hidden" name="page1" value=<%=request("page1")%>>
        <input type="hidden" name="par_name" value=<%=request("par_name")%>>
        <input type="hidden" name="par_type" value=<%=request("par_type")%>>
        <input type="hidden" name="par_level" value=<%=request("par_level")%>>
        <input type="hidden" name="par_clientnum" value=<%=request("m_clientnum")%>>
     </form>
     <script language="vbscript">      
       a="D_xymainFrm.asp?tag=3&index="&document.form4.index.value&"&page1="&document.form4.page1.value&"&par_name="&document.form4.par_name.value&"&par_type="&document.form4.par_type.value&"&par_level="&document.form4.par_level.value&"&par_clientnum="&document.form4.par_clientnum.value&""
      ' msgbox a
       window.location=a
     </script>     
     <%'Response.Redirect "D_xymainFrm.asp?tag=3&index="&request("index")&"&page1="&Request("page1")&"&par_name="&trim(Request("par_name"))&"&par_type="&trim(Request("par_type"))&"&par_level="&trim(Request("par_level"))&"&par_clientnum="&trim(Request("m_clientnum"))&""%>
     <%Response.End()%>
<%end if%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF">
<script language="vbscript">
  function datacheck()
     
         if len(document.form1.m_begintime.value)<>4 then
            msgbox "信用开始年输入非法！",,"提示"
            exit function
         end if
       
     if trim(document.form1.m_endtime.value)<>"" then
         if len(document.form1.m_endtime.value)<>4 then
            msgbox "信用截止年输入非法！",,"提示"
            exit function
         end if
     end if    

     if document.form1.m_credit.value<>"" then
        if not isnumeric(document.form1.m_credit.value) then
           msgbox "信用额度输入非法!"
           exit function
        end if
      end if
      if not isnumeric(document.form1.m_begintime.value) or len(document.form1.m_begintime.value)<>4 then
         msgbox "信用开始时间输入非法！",,"提示"
         exit function
      end if
      if not isnumeric(document.form1.m_endtime.value) or len(document.form1.m_endtime.value)<>4 then
         msgbox "信用截止时间输入非法！"
         exit function
      end if     
      document.form1.submit()
  end function
</script>

<script language="vbscript">
  function edit1()
   document.form1.submit()
end function 
</script>

<%if Request("tag")=5 then%><%'''''''''''编辑窗体'''''''%>

     <%m_clientnum=Request("m_clientnum")%>
     <%set rs=server.CreateObject("adodb.recordset")%>
     <%if rs.State=1 then rs.Close%>
     <%rs.Open "select * from  D_clientinfo where clientnum='"& m_clientnum &"'",pubconn,1,3%>
     <%if rs.RecordCount<=0 then %>
               <br><br><center><font size="2">提示:没有该客户</font></center>
     <%else%>                                                                                                                  
        <form name="form1" method="post" action="D_xymainFrm.asp?tag=1">          
     <input type="hidden" name="par_name" value=<%=request("par_name")%>><input type="hidden" name="m_clientnum" value=<%=m_clientnum%>><input type="hidden" name="index" value=<%=request("index")%>>          
        <table border="0" width="100%">        
                <tr>        
                 <td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15">  <b><font size="2">客户信用授权</font></b><hr width="40%" align="left" size="1"></td>         
                </tr>
12 3 下一页
⌨️ 快捷键说明

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