📄 freightbill_select.asp
字号:
<%@ Language=VBScript %>
<%'******************************************************
'功能：选择货运单
'入口参数：
' 1,人员编号
'出口参数：
' 1,货运单号
'作者：钟宇 日期：2001年6月19日
'******************************************************
%>
<HTML>
<HEAD>
<TITLE>选择货运单</TITLE>
</HEAD>
<BODY>
<%
Dim DBConn,Rs,LStr_Sql,TStr_StfID
TStr_StfID=Trim(Session("Gs_StaffID"))
If TStr_StfID="" Then
Response.Write "网页已经过期，请重新登录系统！"
Response.End
End If
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
LStr_Sql="SELECT DISTINCT Warehouse_Deliver.Whs_DlvFreightBillNo "
LStr_Sql=LStr_Sql+"FROM Warehouse_Deliver,Sale_Sale,"
LStr_Sql=LStr_Sql+"Warehouse_Out,Warehouse_OutNotice,"
LStr_Sql=LStr_Sql+"Basic_StafferAgn "
LStr_Sql=LStr_Sql+"WHERE (Warehouse_Deliver.Whs_OutID=Warehouse_Out.Whs_OutID) AND "
LStr_Sql=LStr_Sql+"(Warehouse_Out.Whs_OutNID = Warehouse_OutNotice.Whs_OutNID) AND "
LStr_Sql=LStr_Sql+"(Warehouse_OutNotice.Sal_SalID = Sale_Sale.Sal_SalID ) AND "
LStr_Sql=LStr_Sql+"(Basic_StafferAgn.Agn_ID = Sale_Sale.Agn_ID) AND "
LStr_Sql=LStr_Sql+"((Warehouse_Deliver.Whs_DlvFlag = '已发货' ) AND "
LStr_Sql=LStr_Sql+"(Basic_StafferAgn.Stf_ID = '"& TStr_StfID & "'))"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open LStr_Sql,DBConn
%>
<FORM action="ArriveFreight_Confirm.asp" name=form1 id=form1 method=post>
<P><STRONG><FONT size=5>到货确认>>选择货运单号</FONT></STRONG></P>
<HR>
<P align=center>
<FONT size=3>货运单号：</FONT>
<SELECT id=select1 name=select1>
<OPTION selected></OPTION>
<%
Do While Not Rs.EOF
Response.Write "<OPTION value='"& Trim(Rs("Whs_DlvFreightBillNo")) &"'>"& Trim(Rs("Whs_DlvFreightBillNo")) &"</OPTION>"
Rs.MoveNext
Loop
%>
</SELECT>
<INPUT id=button1 name=button1 type=button value=" 确认 " onclick="SubmitForm()">
</FORM>
</P>
<%
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
</BODY>
</HTML>
<%'********************************************************************%>
<script LANGUAGE="vbscript">
<!--
'---------------------------------------------------------------------
'功能：转到到货确认页
'参数：'返回值：
'--------------------------------------------------------------------
Function SubmitForm()
If form1.select1.value ="" Then
Msgbox "请选择货运单！",,"CMS系统提示"
Else
form1.submit
End If
End Function
-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -