📄 e_serversubfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:

	'表示需要返回的字段数值
	lcReturnField="ClientNum"
	lcurl="lcReturnField="+lcReturnField
	
	'表示需要保存的字段数值
	lcSaveField="formID,ID,Mode,BillId,prodcode,linkman,telephone,lcYear,lcMonth,lcday,Reason,Department,PersonID,SparePart,eyear,emonth,eday,maintainproject"
	lcurl=lcurl+"&"+"lcSaveField="+lcSaveField
	lcSaveField=Split(lcSaveField,",")
	
	for i=0 to Ubound(lcSaveField)
		lcurl=lcurl+"&"+lcSaveField(i)+"="+document.forms(0)(lcSaveField(i)).value
	next
	window.open "E_ChoiceCustomer.asp?"+lcURL,"选择用户","menubar=no,status=no,width=600,height=380,scrollbars=no"
end Sub  

Sub choiceproduct() '选择产品
	dim lcSaveField
	dim lcReturnField
	dim lcurl
	
	document.forms(0).ProdName.value=""
	document.forms(0).ProdModel.value=""

	'表示需要返回的字段数值
	lcReturnField="ProdCode"
	lcurl="lcReturnField="+lcReturnField
	
	'表示需要保存的字段数值
	lcSaveField="formID,ID,Mode,BillID,ClientNum,linkman,telephone,lcYear,lcMonth,lcday,Reason,Department,PersonID,SparePart,eyear,emonth,eday,maintainproject"
	lcurl=lcurl+"&"+"lcSaveField="+lcSaveField
	lcSaveField=Split(lcSaveField,",")
	
	for i=0 to Ubound(lcSaveField)
		lcurl=lcurl+"&"+lcSaveField(i)+"="+document.forms(0)(lcSaveField(i)).value
	next
	window.open "E_ChoiceProd.asp?"+lcURL,"选择用户","menubar=no,status=no,width=600,height=380,scrollbars=no"
end sub

'提交客户编号
Sub SubClientNum()
	document.forms(0).LinkMan.value=""
	document.forms(0).TelePhone.value=""
	document.forms(0).Submit
End Sub

'提交联系人
Sub SubLinkMan()
	document.forms(0).SourcePage.value="SubLink" '联系人提交标志
	document.forms(0).TelePhone.value=""
	document.forms(0).Submit
End Sub

'提交服务部门
Sub SubDepartment()
	document.forms(0).SourcePage.value="SubDepart" '部门提交标志
	document.forms(0).PersonID.value=""
	document.forms(0).Submit
End Sub

Sub Error1()
	Alert("抱歉，安装调试报告单还没有建立！")
End Sub

Sub Error2()
	Alert("抱歉，客户验收报告单还没有建立！")
End Sub

</Script>
<!--#include file="../BaseInfo/PageData.Client"-->        

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>客户服务通知单</title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</head>

<body onload="formini()" bgcolor="<%=bgcolor%>">
    
<form method="GET" action="E_ServerSubFrm.asp"  name="fn">      
  <table border="0" cellpadding="0" cellspacing="0" width="100%">
   <tr>
    <td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15"> 
      </font><font size="2">客户服务通知单</font></b><hr width="40%" size="1" align="left">                                
    </td>             
   </tr>             
  </table>      
  <table border="1" cellspacing="0" width="100%" cellpadding="0" height="44">      
    <tr>      
      <td width="20%" align="left" height="36" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle">      
        <p style="line-height: 200%; margin-left: 20" align="left"><font size="2">单据编号</font></p>       
      </td>       
      <td width="28%" height="36" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle">       
        <p style="line-height: 200%; margin-left: 5"><font size="2">      
        <input type="text" name="billID" size="25" Readonly ></font></p>       
      </td>       
      <td width="9%" align="center" height="36" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle">       
        <p style="line-height: 200%"><font size="2">客户编号</font>       
      </td>       
      <td width="47%" height="36" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle">       
        <p style="line-height: 200%; margin-left: 5"><font size="2">      
        <input name="ClientNum" size="23" onchange="SubClientNum()">
        <% if mode<>"ScanMode" and mode<>"OnlyScanMode" then %>
        	<input type="button" value="..." name="ChoiceKH" onclick="choicecustomer()" class=hand style="<%=budStyle%>"></font></p>        
        <% end if %>
      </td>       
    </tr>       
    <tr>      
      <td width="17%" align="left" height="8" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle">       
        <p style="line-height: 200%; margin-left: 20" align="left"><font size="2">客户名称</font>       
      </td>       
      <td width="28%" height="8" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle">       
        <p style="line-height: 200%; margin-left: 5"><font size="2"><input type="text" name="ClientName" size="25" Readonly ></font></p>                                                                                                                                                                                                                                                                                                                                      
      </td>                                                                                                                                                                                                                                                                                                                                      
      <td width="17%" align="center" height="8" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle">                                                                                                                                                                                                                                                                                                                                      
        产品编号   
      </td>                                                                                                                                                                                                                                                                                                                                      
      <td width="47%" height="8" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" valign="middle">                                                                                                                                                                                                                                                                                                                                      
        <p style="margin-left: 5">   
        <font size="2">      
        <input name="prodcode" size="23" onchange="document.forms(0).submit()">
        <% if mode<>"ScanMode" and mode<>"OnlyScanMode" then %>
        	<input type="button" value="..." name="ChoiceCP" onclick="choiceproduct()" class=hand style="<%=budStyle%>"></font>    
        <% end if %>
      </td>
⌨️ 快捷键说明

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