📄 order_add.asp
字号:
<!--#include file="../inc/CheckAdmin.asp"-->
<!--#include file="../inc/Config.asp"-->
<!--#include file="../inc/Conn.asp"-->
<%
server.ScriptTimeout=3600
Sub ScriptErrorMsg(SMsg)
response.write "<script language='javascript'>" & chr(13)
response.write "alert('"&SMsg&"');" & Chr(13)
response.write "window.document.location.href='order_add.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
End Sub
if request.form("add")=1 then
dim connXLS , rsXLS
dim xlsFileName
dim objFSO
dim lRet,sValue,lNum
flag=0
xlsFileName=request("textimg")
if xlsFileName="" then ScriptErrorMsg "无效的参数或未经授权"
'判断文件是否存在
set objFSO=CreateObject("Scripting.FileSystemObject")
xlsFileName=server.MapPath("../../UploadFile/Download/"&xlsFileName)
'response.Write(xlsFileName)
'response.End()
if not objFSO.FileExists(xlsFileName) then set objFSO=nothing:ScriptErrorMsg "文件未找到!"
err.clear
'on error resume next
set connXLS = server.CreateObject("ADODB.Connection")
set rsXLS= server.CreateObject("ADODB.Recordset")
connXLS.mode=3
connXLS.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & xlsFileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
connXLS.open
rsXLS.Open "select * from [sheet1$]", connXLS, 1, 3
lRet=err.number
if rsXLS.bof or rsXLS.eof or lRet<>0 then
objFSO.DeleteFile xlsFileName
set objFSO=nothing
set rsXLS=nothing
connXLS.close
set connXLS=nothing
if lRet=0 then
ScriptErrorMsg "无任何记录!"
else
ScriptErrorMsg "错误:" & err.Description
end if
end if
'rsXLS.movenext
'格式必须是:
'托运日期,托运单号,目的网点,发货人,收货人,货物名称,件数,收货网点,提货日期,提货人身份证,提货联系电话,到货日期
'连接数据库
dim sMemoCompany
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
lRet=0
sMemoCompany=""
do while not rsXLS.eof
RealPart1=rsXLS(0).Value '托运日期
if isnull(RealPart1) then RealPart1=""
RealPart2=rsXLS(1).Value '托运单号
if isnull(RealPart2) then RealPart2=""
RealPart3= rsXLS(2).Value
if isnull(RealPart3) then RealPart3="" '目的网点
RealPart4= rsXLS(3).Value
if isnull(RealPart4) then RealPart4="" '发货人
RealPart5= rsXLS(4).Value
if isnull(RealPart5) then RealPart5="" '收货人
RealPart6= rsXLS(5).Value
if isnull(RealPart6) then RealPart6="" '货物名称
RealPart7= rsXLS(6).Value
if isnull(RealPart7) then RealPart7="" '件数
RealPart8= rsXLS(7).Value
if isnull(RealPart8) then RealPart8="" '收货网点
RealPart9= rsXLS(8).Value
if isnull(RealPart9) then RealPart9="" '提货日期
RealPart10= rsXLS(9).Value
if isnull(RealPart10) then RealPart10="" '提货人身份证
RealPart11= rsXLS(10).Value
if isnull(RealPart11) then RealPart11="" '提货联系电话
RealPart12= rsXLS(11).Value
if isnull(RealPart12) then RealPart12="" '到货日期
RealPart13= rsXLS(12).Value
if isnull(RealPart13) then RealPart13="" '送货方式
'response.Write(RealPart1&","&RealPart2&","&RealPart3&","&RealPart4&","&RealPart5&","&RealPart6&","&RealPart7&","&RealPart8&","&RealPart9&","&RealPart10&","&RealPart11&","&RealPart12)
'response.End()
sql="select * from yundata"
set rss= server.CreateObject("ADODB.Recordset")
rss.open sql,conn,1,3
if RealPart2<>"" then
rss.addnew
rss(1)=formatStr(RealPart1)
rss(2)=formatStr(RealPart2)
rss(3)=formatStr(RealPart3)
rss(4)=formatStr(RealPart4)
rss(5)=formatStr(RealPart5)
rss(6)=formatStr(RealPart6)
rss(7)=formatStr(RealPart7)
rss(8)=formatStr(RealPart8)
rss(9)=formatStr(RealPart9)
rss(10)=formatStr(RealPart10)
rss(11)=formatStr(RealPart11)
rss(12)=formatStr(RealPart12)
rss(13)=formatStr(RealPart13)
rss.update
lRet=lRet+1
rss.close
else
if rsXLS.recordcount <> rsXLS.AbsolutePosition then
response.Write("第 " & rsXLS.AbsolutePosition & "条记录 托运单号 为空,跳过!<br>")
end if
end if
rsXLS.movenext
loop
if Err.description <> "" then
err_Msg = "未知错误 = " & Err.description
Else
err_Msg = "成功添加 " & lRet & "条记录"
end if
Conn.close
set Conn=nothing
set rsXLS=nothing
connXLS.close
set connXLS=nothing
objFSO.DeleteFile xlsFileName
set objFSO=nothing
ScriptErrorMsg err_Msg
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站管理系统</title>
<link href="../Css_Main.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {color: #FF0000}
.style1 {color: #CCCCCC}
-->
</style>
</head>
<script language="JavaScript">
function Check()
{
/*if (form.language.value == "")
{alert("请选择语言版本");
form.language.focus();
return false;
}*/
if (form.textimg.value == "")
{alert("请先上传Excel文件");
//form.textimg.focus();
return false;
}
/*/if (form.N_Name.value == "")
{alert("新闻标题不能为空");
form.N_Name.focus();
return false;
}/*/
document.form.submit();
}
</script>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td class="title_dh"><div align="center">运单管理——导入数据</div></td>
</tr>
</table>
<form name="form" action="" method="post" onSubmit="return Check()">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title_top">
<td colspan="2"><div align="center">导入数据</div></td>
</tr>
<tr class="tdbg" style="display:">
<td width="20%"><div align="right"><strong>上传Excel：</strong></div></td>
<td><iframe src='../inc/uppic.asp?up=../../uploadfile/Download/&tup=textimg' frameborder=0 height=25 width="80%" scrolling="no"></iframe><input name="textimg" type="hidden" id="textimg"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40">
<div align="center"><span class="style1">
<input name="Submit" type="button" id="Submit" value="导入数据" onClick="Check()">
</span> <span class="style1">
<input name="reset2" type="button" id="reset2" value="返回" onClick="history.back()">
<input name="add" type="hidden" id="add" value=1>
</span></div></td>
</tr>
</table></form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -