?? outsign_record_info.asp
字號:
if attemper <> "" then
%>
<tr>
<td width="15%"> 發(fā)運(yùn)時間：</td>
<td colspan="3" width="85%">
<%response.write outw_outstock_date & " "%></td>
</tr>
<%
if transport_type <> 4 then
sql = "select * from dc where dc_companyid = "&newcompanyid&" and dc_id = "&attemper_dc_id&""
set rs_dc2 = conn.execute(sql)
if not rs_dc2.eof then
dc_code2 = rs_dc2("dc_code")
dc_name2 = rs_dc2("dc_name")
end if
rs_dc2.close
set rs_dc2 = nothing
Response.Write "<td width=""15%""> 中轉(zhuǎn)城市：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write dc_code2 &" "& dc_name2 & " </td>"
Response.Write "</tr>"
end if
'1為汽運(yùn),2為空運(yùn),3為鐵路,4為EMS
if transport_type = 1 then
sql = "select * from car where car_elink_id = "&elink_id&""
set rs_car = conn.execute(sql)
if not rs_car.eof then
car_etd = rs_car("car_etd")
car_eta = rs_car("car_eta")
car_no = trim(rs_car("car_no"))
car_paisong = trim(rs_car("car_paisong"))
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運(yùn)輸方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "汽運(yùn)</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 預(yù)計出發(fā)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write car_etd & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 預(yù)計到達(dá)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write car_eta & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 車號：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write car_no & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 派送員：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write car_paisong & " </td>"
Response.Write "</tr>"
else
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運(yùn)輸方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "汽運(yùn)</td>"
Response.Write "</tr>"
end if
rs_car.close
set rs_car = nothing
elseif transport_type = 2 then
sql = "select * from air where air_elink_id = "&elink_id&""
set rs_air = conn.execute(sql)
if not rs_air.eof then
air_take_no = rs_air("air_take_no")
air_line_no = rs_air("air_line_no")
air_etd = rs_air("air_etd")
air_eta = rs_air("air_eta")
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運(yùn)輸方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "空運(yùn)</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 航空單號：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write air_take_no & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 航班號：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write air_line_no & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 預(yù)計出發(fā)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write air_etd & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 預(yù)計到達(dá)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write air_eta & " </td>"
Response.Write "</tr>"
else
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運(yùn)輸方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "空運(yùn)</td>"
Response.Write "</tr>"
end if
rs_air.close
set rs_air = nothing
elseif transport_type = 3 then
sql = "select * from railway where railway_elink_id = "&elink_id&""
set rs_railway = conn.execute(sql)
if not rs_railway.eof then
line_no = rs_railway("railway_line_no")
etd = rs_railway("railway_etd")
eta = rs_railway("railway_eta")
take_no = rs_railway("railway_take_no")
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運(yùn)輸方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "鐵路</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 車次：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write line_no & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 預(yù)計出發(fā)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write etd & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 預(yù)計到達(dá)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write eta & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 鐵路提單號：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write take_no & " </td>"
Response.Write "</tr>"
else
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運(yùn)輸方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "鐵路</td>"
Response.Write "</tr>"
end if
rs_railway.close
set rs_railway = nothing
elseif transport_type = 4 then
sql = "select * from ems where ems_elink_id = "&elink_id&""
set rs_ems = conn.execute(sql)
if not rs_ems.eof then
ems_no = rs_ems("ems_no")
ems_etd = rs_ems("ems_etd")
ems_eta = rs_ems("ems_eta")
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運(yùn)輸方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "E M S</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 單號：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write ems_no & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 預(yù)計出發(fā)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write ems_etd & " </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 預(yù)計到達(dá)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write ems_eta & " </td>"
Response.Write "</tr>"
else
Response.Write "<tr>"
Response.Write "<td width=""15%""> 運(yùn)輸方式：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write "E M S</td>"
Response.Write "</tr>"
end if
rs_ems.close
set rs_ems = nothing
end if
Response.Write "<tr>"
Response.Write "<td width=""15%""> 調(diào)度填寫人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write attemper &" </td>"
Response.Write "</tr>"
else
Response.Write "<tr><td colspan=""4"">調(diào)度信息尚未填寫！！！</td></tr>"
end if
sql = "select * from outward_status where status_elink_id = "&elink_id&" order by status_id asc "
'Response.Write sql
'Response.End
set rs_sta = server.CreateObject("adodb.recordset")
rs_sta.Open sql,conn,3,3
if not rs_sta.EOF then
Response.Write "<tr>"
Response.Write "<td colspan=4 align=left bgcolor=green height=20><b><font color=white>延 誤 信 息</font></b></td>"
Response.Write "</tr>"
do while not rs_sta.eof
status_beizu = rs_sta("status_beizu")
status_rec_man = rs_sta("status_rec_man")
status_man = rs_sta("status_man")
status_datetime = rs_sta("status_datetime")
status_add_datetime = rs_sta("status_add_datetime")
status_now_address = rs_sta("status_now_address")
status_flag = rs_sta("status_flag")
if status_flag = 1 then
status = "航班延誤"
elseif status_flag = 2 then
status = "到目的港"
elseif status_flag = 3 then
status = "已派車派送"
elseif status_flag = 4 then
status = "車輛/公路事故"
elseif status_flag = 5 then
status = "客人已下班"
elseif status_flag = 6 then
status = "客人要求該日派送"
else
status = "其它"
end if
outw_air_no = rs_sta("outw_air_no")
outw_air_takeid = rs_sta("outw_air_takeid")
outw_etd = rs_sta("outw_etd")
outw_eta = rs_sta("outw_eta")
record=record+1
if record/2=int(record/2) then
bgclr="#F1F1C9"
else
bgclr="#C2D8F8"
end if
if status_flag = 1 then
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 航班號：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write outw_air_no &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 航空提單號：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write outw_air_takeid &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 預(yù)計出發(fā)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write outw_etd &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 預(yù)計到達(dá)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write outw_eta &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 填寫人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write status_rec_man &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 備注：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write status_beizu &" <font color=red>("& status &")</font></td>"
Response.Write "</tr>"
else
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 到達(dá)日期：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write status_datetime &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 目前地點(diǎn)：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write status_now_address &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 預(yù)計到達(dá)時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write outw_eta &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 填寫人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write status_rec_man &" </td>"
Response.Write "</tr>"
Response.Write "<tr bgcolor="&bgclr&">"
Response.Write "<td width=""15%""> 備注：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write status_beizu &" <font color=red>("& status &")</font></td>"
Response.Write "</tr>"
end if
rs_sta.movenext
loop
end if
rs_sta.close
set rs_sta = nothing
%>
<tr>
<td colspan=4 align=left bgcolor=green height=20><b><font color=white>簽 收 信 息</font></b></td>
</tr>
<%
if elink_flag = 1 then
Response.Write "<tr>"
Response.Write "<td width=""15%""> 簽收時間：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write rec_date &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 簽收人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write rec_man&" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 簽收人身份證：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write rec_idcard &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 簽收備注：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write rec_beizu &" </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""15%""> 簽收填寫人：</td>"
Response.Write "<td colspan=""3"" width=""85%"">"
Response.Write sign_man&" </td>"
Response.Write "</tr>"
else
Response.Write "<tr><td colspan=""4"">簽收信息尚未填寫！！！ 進(jìn)入<a href=fenpei_convert.asp?id="&elink_id&"&companyid="&newcompanyid&">[填寫該客戶出庫簽收信息]</a></td></tr>"
end if
%>
</table>
<br><br>
<%
else
Response.Write "可能該數(shù)據(jù)已經(jīng)被他人刪除,請刷新主頁面!"
end if
rs.Close
set rs = nothing
call closedatabase
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -