📄 salesendcheck_apply.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>送检申请页面</TITLE>
</HEAD>
<BODY>
<%
Dim DBConn,Rs,LStr_Sql,TStr_StfID,TStr_StfName,TStr_StfType
Dim TStr_AgnID,TStr_AgnName,LStr_ChkSelected,LStr_SelSelected
TStr_StfID=Session("Gs_StaffID")
TStr_StfName=Session("Gs_StafferName")
TStr_StfType=Session("Gs_StafferType")
If TStr_StfID="" Or TStr_StfName="" Or TStr_StfType="" Then
Response.Write "网页已经过期，请重新登录系统！"
Response.End
End If
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout=Application("Connection2_ConnectionTimeout")
DBconn.cursorlocation=Application("Connection2_Cursorlocation")
DBconn.OPEN Application("Connection2_ConnectionString")
Set Rs=Server.CreateObject("ADODB.Recordset")
If TStr_StfType="区域职工" Then
LStr_Sql="SELECT Basic_Agency.Agn_ID,Basic_Agency.Agn_Name "
LStr_Sql=LStr_Sql+"FROM Basic_Agency,Basic_StafferAgn "
LStr_Sql=LStr_Sql+"WHERE Basic_Agency.Agn_ID=Basic_StafferAgn.Agn_ID AND "
LStr_Sql=LStr_Sql+"Basic_StafferAgn.Stf_ID='"& TStr_StfID &"'"
Rs.Open LStr_Sql,DBConn
If Not(Rs.EOF And Rs.BOF) Then
TStr_AgnID=Trim(Rs("Agn_ID"))
TStr_AgnName=Trim(Rs("Agn_Name"))
End If
Rs.Close
End If
%>
<P><FONT size=5><STRONG>送检申请录入</STRONG></FONT></P>
<P><STRONG><FONT size=5>
<HR>
</FONT></STRONG>
<P></P>
<FORM action="SaleSendCheck_Apply.asp" method=POST id=form1 name=form1>
<table width="75%" border="0" style="HEIGHT: 309px; WIDTH: 554px">
<tr>
<td>
<%
If Trim(Request.Form("checkbox1"))="" Then
LStr_ChkSelected=""
%>
<INPUT id=checkbox1 name=checkbox1 type=checkbox>
<%
Else
LStr_ChkSelected="on"
%>
<INPUT id=checkbox1 name=checkbox1 type=checkbox checked>
<%
End If
%>
送区域：
<%
If LStr_ChkSelected="on" Then
%>
<SELECT id=select1 name=select1
style="HEIGHT: 22px; WIDTH: 200px">
<%
Else
%>
<SELECT id=select1 name=select1
style="HEIGHT: 22px; WIDTH: 200px" disabled>
<%
End If
If TStr_StfType="总部职工" Then
LStr_Sql="SELECT Agn_ID,Agn_Name "
LStr_Sql=LStr_Sql+"FROM Basic_Agency "
Rs.Open LStr_Sql,DBConn
If Not(Rs.EOF AND Rs.BOF) Then
If Trim(Request.Form("Select1"))="" Then
LStr_SelSelected=Rs("Agn_ID")
Else
LStr_SelSelected=Trim(Request.Form("Select1"))
End If
Else
LStr_SelSelected=""
End If
Do While not Rs.EOF
If LStr_SelSelected=Rs("Agn_ID") Then
Response.Write("<OPTION value="& Rs("Agn_ID") &" selected>"& Rs("Agn_Name") &"</OPTION>")
Else
Response.Write("<OPTION value="& Rs("Agn_ID") &">"& Rs("Agn_Name") &"</OPTION>")
End If
Rs.MoveNext
Loop
Rs.Close
Else
LStr_SelSelected=TStr_AgnID
Response.Write("<OPTION value="& TStr_AgnID &">"& TStr_AgnName &"</OPTION>")
End If
%>
</SELECT>
</td>
</tr>
<%
If LStr_ChkSelected="on" Then
LStr_Sql="SELECT Agn_Manager,Agn_Address,Agn_ZipCode,Agn_Tel "
LStr_Sql=LStr_Sql+"FROM Basic_Agency "
LStr_Sql=LStr_Sql+"WHERE Agn_ID='"& LStr_SelSelected &"'"
Rs.Open LStr_Sql,DBConn
End If
%>
</FORM>
<FORM action="SaleSendCheck_Apply_Operate.asp" method=POST id=form2 name=form2>
<tr>
<td> 收货人：
<%If LStr_ChkSelected="on" Then %>
<INPUT id=text1 name=text1
style="HEIGHT: 22px; WIDTH: 200px" MaxLength=10 value=<%=Rs("Agn_Manager")%>>
<%Else%>
<INPUT id=text1 name=text1
style="HEIGHT: 22px; WIDTH: 200px" MaxLength=10>
<%End If%>
<FONT color=red>***</FONT></td>
</tr>
<tr>
<td> 收货地址：
<%If LStr_ChkSelected="on" Then %>
<INPUT id=text2 name=text2
style="HEIGHT: 22px; WIDTH: 366px" MaxLength=60 value=<%=Rs("Agn_Address")%>>
<%Else%>
<INPUT id=text2 name=text2
style="HEIGHT: 22px; WIDTH: 366px" MaxLength=60>
<%End If%>
<FONT color=red>***</FONT></td>
</tr>
<tr>
<td> 邮政编码：
<%If LStr_ChkSelected="on" Then %>
<INPUT id=text3 name=text3
style="HEIGHT: 22px; WIDTH: 200px" MaxLength=6 value=<%=Rs("Agn_ZipCode")%>>
<%Else%>
<INPUT id=text3 name=text3
style="HEIGHT: 22px; WIDTH: 200px" MaxLength=6>
<%End If%>
<FONT color=red>***</FONT></td>
</tr>
<tr>
<td> 联系电话：
<%If LStr_ChkSelected="on" Then %>
<INPUT id=text4 name=text4
style="HEIGHT: 22px; WIDTH: 200px" MaxLength=20 value=<%=Rs("Agn_Tel")%>>
<%Else%>
<INPUT id=text4 name=text4
style="HEIGHT: 22px; WIDTH: 200px" MaxLength=20>
<%End If%>
<FONT color=red>***</FONT></td>
</tr>
<tr>
<%
If LStr_ChkSelected="on" Then
Rs.Close
End If
LStr_Sql="SELECT Ctg_ID,Ctg_Name "
LStr_Sql=LStr_Sql+"FROM Basic_Category "
Rs.Open LStr_Sql,DBConn
%>
<td> 送检品种：
<SELECT
id=select2 name=select2 style="HEIGHT: 22px; WIDTH: 200px">
<%
Do While not Rs.EOF
Response.Write("<OPTION value="& Rs("Ctg_ID") &">"& Rs("Ctg_Name") &"</OPTION>")
Rs.MoveNext
Loop
%>
</SELECT>
<FONT color=red>***</FONT></td>
</tr>
<tr>
<td> 送检数量：
<INPUT id=text5 name=text5
MaxLength=10 style="HEIGHT: 22px; WIDTH: 200px">
<FONT color=red>***</FONT></td>
</tr>
<tr>
<td> 经手人：
<INPUT id=text6 name=text6 MaxLength=20
style="HEIGHT: 22px; WIDTH: 200px">
<FONT color=red>***</FONT></td>
</tr>
<tr>
<td>
申请人： <INPUT id=text7 name=text7 readOnly value=<%=TStr_StfName%>
style="HEIGHT: 22px; WIDTH: 200px"></td>
</tr>
<tr>
<td> 申请日期： <INPUT
id=text8 name=text8 readOnly value=<%=Date()%>
style="HEIGHT: 22px; WIDTH: 200px"></td>
</tr>
</table>
<%
If LStr_SelSelected="" Then
LStr_SelSelected=TStr_AgnID
End If
%>
<INPUT type=hidden id=TStr_AgnID name=TStr_AgnID value=<%=LStr_SelSelected%>>
</FORM>
<P align=center>
<INPUT id=button1 name=button1 type=button value=" 提交 " onclick="SubmitForm()">
<INPUT id=button2 name=button2 type=button value=" 重置 " onclick="vbscript:FormReset()">
<INPUT id=button3 name=button3 type=button value=" 关闭 " onclick=window.location="../User_RightList.asp">
</P>
</BODY>
</HTML>
<%'******************************************************************%>
<SCRIPT LANGUAGE=vbscript>
<!--
'---------------------------------------------------------------------
'功能：提交当前选择操作FORM
'参数：
'返回值：
'--------------------------------------------------------------------
Sub Checkbox1_OnClick()
form1.submit
End Sub
Sub Select1_OnChange()
form1.submit
End Sub
Function FormReset()
form2.reset()
End Function
-->
</SCRIPT>
<SCRIPT LANGUAGE="vbscript">
<!--
function button3_OnClick()
window.close
end function
-->
</SCRIPT>
<script LANGUAGE="vbscript">
<!--
'---------------------------------------------------------------------
'功能：提交当前新客户申请添加操作FORM
'参数：'返回值：
'--------------------------------------------------------------------
Function Validate()
Validate=True
If trim(form2.text1.value) ="" Then
msgbox "请输入收货人！",,"CMS系统提示"
Validate=False
Exit Function
End If
If trim(form2.text2.value) ="" Then
msgbox "请输入收货地址！",,"CMS系统提示"
Validate=False
Exit Function
End If
If trim(form2.text3.value) ="" Then
msgbox "请输入邮政编码！",,"CMS系统提示"
Validate=False
Exit Function
End If
If trim(form2.text4.value) ="" Then
msgbox "请输入联系电话！",,"CMS系统提示"
Validate=False
Exit Function
End If
If trim(form2.text5.value) ="" Then
msgbox "请输入送检数量！",,"CMS系统提示"
Validate=False
Exit Function
End If
If Not(IsNumeric(trim(form2.text5.value))) Then
msgbox "请确认送检数量的格式！",,"CMS系统提示"
Validate=False
Exit Function
End If
If trim(form2.text6.value) ="" Then
msgbox "请输入经手人！",,"CMS系统提示"
Validate=False
Exit Function
End If
End Function
Function Submit()
form2.submit
End Function
Function SubmitForm()
If Validate = false Then
Exit Function
End If
Submit()
End Function
-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -