d_xymainfrm.asp

一个很好的在线购物系统

       </table>                                                                         
                                                                                                
        <center><table border=1 cellspacing=0 width="50%">                                                                                             
           <tr>                                                                                             
              <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="center">客&nbsp户&nbsp名&nbsp称</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" ><input type="text" name="m_clientnum1" size=23 readonly  style="background-color: #edefef" value="<%=rs.Fields("clientname")%>" ></td>                                                                                             
           </tr>                                                                                               
           <tr>                                                                                              
              <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="center">信用额度(万元)</td>                   
              <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                   
              <%if rs.Fields("credit")<>"" then%>                    
                      <%aa=eval(rs.Fields("credit"))/10000%>                    
              <%else%>                    
                      <%aa=0%>                    
              <%end if%>                    
              <input type="text" name="m_credit" size=23  value=<%=aa%>></td>                                                                                             
           </tr>                                                                                             
           <tr>                                                                                             
              <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="center">信用开始时间</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                                            
                      <%if left(rs.Fields("begintime"),4)<>"" then%>                                            
                           <input type="text" name="m_begintime" size=5 value=<%=left(rs.Fields("begintime"),4)%>>年                                                                                                              
                      <%else%>                                            
                           <input type="text" name="m_begintime" size=5 value=<%=year(now())%>>年                                                                                                              
                      <%end if%>                                            
                                  <select name="m_beginmonth">                                                                                                              
                                        <%if right(left(rs.fields("begintime"),7),2)<>"" then%>                                                                                              
                                             <option value=<%=right(left(rs.fields("begintime"),7),2)%>><%=right(left(rs.fields("begintime"),7),2)%> <%end if%> <%for i=1 to 9%>                                                                                                                             
                                            <option value="0<%=i%>">0<%=i%> <%next%>                                                                                                                             
                                        <option value="10">10                                                                                                                                  
                                        <option value="11">11                                                                                                                                  
                                        <option value="12">12                                                                                                                                  
                                      </select>月                                                                                                              
                                      <select name="m_beginDay">                                                                                             
                                        <%if right(rs.fields("begintime"),2)<>"" then%>                                                                                                                                  
                                             <option value=<%=right(rs.fields("begintime"),2)%>><%=right(rs.fields("begintime"),2)%>                                                                                             
                                        <%end if%>                                                                                             
                                        <%for i=1 to 9%>                                                                                                                                    
                                           <option value="0<%=i%>">0<%=i%>                                                                                                                                  
                                        <%next%>                                                                                                                                                                       
                                        <%for i=10 to 31 %>                                                                                                                                   
                                           <option value=<%=i%>><%=i%>                                                                                                                                   
                                         <%next%>                                                                                             
                                       </select>日                                                                                             
                                                                                                       
                              </td>                                                                                             
        </tr>                                                                                             
        <tr>                                                                                             
          <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="center">信用截止时间</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                                            
                        <%if left(rs.Fields("endtime"),4)<>"" then%>                                            
                              <input type="text" name="m_endtime" size=5 value=<%=left(rs.Fields("endtime"),4)%>>年                                                                                                              
                        <%else%>                                                  
                              <input type="text" name="m_endtime" size=5 value=<%=year(now())%>>年                                                                                                              
                        <%end if%>                                            
                                     <select name="m_endmonth">                                                                                                              
                                        <%if right(left(rs.fields("endtime"),7),2)<>"" then%>                                                                                             
                                             <option value=<%=right(left(rs.fields("endtime"),7),2)%>><%=right(left(rs.fields("endtime"),7),2)%> <%end if%> <%for i=1 to 9%>                                                                                                                             
                                            <option value="0<%=i%>">0<%=i%> <%next%>                                                                                                                             
                                        <option value="10">10                                                                                                                                  
                                        <option value="11">11                                                                                                                                  
                                        <option value="12">12                                                                                                                                  
                                      </select>月                                                                                                              
                                      <select name="m_endDay">                                                                                             
                                        <%if right(rs.fields("endtime"),2)<>"" then%>                                                                                                                                  
                                             <option value=<%=right(rs.fields("endtime"),2)%>><%=right(rs.fields("endtime"),2)%>                                                                                             
                                        <%end if%>                                                                                             
                                        <%for i=1 to 9%>                                                                                                                                    
                                           <option value="0<%=i%>">0<%=i%>                                                                                                                                  
                                        <%next%>                                                                                                                                                                       
                                        <%for i=10 to 31 %>                                                                                                                                   
                                           <option value=<%=i%>><%=i%>                                                                                                                                   
                                         <%next%>                                                                                             
                                       </select>日                                                                                             
                                  </td>                                                                                             
        </tr>                                                                                             
     </table></center>     
        <p align="center">                                                                                            
     <input type="hidden" name="page1" value=<%=Request("page1")%>>                                                                                            
        <font size="2">                                                                                                            
     <input type="hidden" name="par_type" value=<%=Request("par_type")%>>                                                                                              
     <input type="hidden" name="par_level" value=<%=Request("par_level")%>><a href="javascript:datacheck()">保存</a>&nbsp;         
     <%tem="Lookup"%>                                           
     <%if request("index")="true" then%>                                                                                                           
     <a href="D_khindexsubFrm.asp?lookup=<%=tem%>&amp;page1=<%=Request("page1")%>&amp;par_name=<%=Request("par_name")%>&amp;par_type=<%=Request("par_type")%>&amp;par_level=<%=Request("par_level")%>&amp;par_id=<%=m_clientnum%>" target="_parent">返回</a>                                                                                                              
     <%else%>                                                        
     <a href="D_khsubFrm.asp?lookup=<%=tem%>&amp;page1=<%=Request("page1")%>&amp;par_name=<%=Request("par_name")%>&amp;par_type=<%=Request("par_type")%>&amp;par_level=<%=Request("par_level")%>&amp;par_id=<%=m_clientnum%>" target="_self">返回</a>                                                                                                              
     <%end if%>                                                        
        </font>                                         
     </form>                                                                                             
     <%Response.End %>                                                                                             
<%end if%>       <%''''记录%>                                                                                      
                                                                                      
                                                                                      
                                                                                      
<%end if%><%''编辑窗体完'''''''''%>                                                                                      
                                                                                      
                                                                                      
                                                                                      
                                                                                      
<%if request("tag")=2 then%><%'''''''''''''''第一次装载%>                                                                                      
<%m_clientnum=Request("par_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=5">            
                                                                                         
    <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>         
       </table>         
                                                                                           
                                                                                                 
     <center><table border=1 cellspacing=0 width="50%">                                                                                             
        <tr>                                                                                             
          <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="left">                              
          <p align="center">                             
          客&nbsp户&nbsp名&nbsp称</p>                             
          </td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" ><input type="text" name="m_clientnum1" size=20 readonly style="background-color: #edefef" value="<%=rs.Fields("clientname")%>" ></td>