- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 已中止i/o操作 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119004)
-- 发布时间：2018/5/15 22:43:00
-- 已中止i/o操作
手机版通过ajax 上传大量字符串时 服务端 出现这个
此主题相关图片如下：微信截图_20180515224116.png
api.ajax({
url: \'http://www.yisoft.net:80093/pandian3.htm\',
method: \'post\',
dataType: \'text\',
// report: \'true\',
data: {
values: {
"username": username.value, //店铺编号
"dy": dy.value, //店铺编号
"txm": document.getElementById("txm").value, 大量的条码数据，可能有几千个条码数据
}
},
},
[此贴子已经被作者于2018/5/15 22:45:44编辑过]
-- 发布时间：2018/5/15 23:02:00
--
1、ajax设置为异步模式试试
2、使用weui的ajex函数试试
3、数据分批上传
-- 发布时间：2018/5/16 9:16:00
--
1、如果发送的是少量数据，是否有问题？
2、不应该是发送的数据的问题吧？应该是你服务器响应的代码有问题导致的，加入output.log调试出错位置 http://www.foxtable.com/webhelp/scr/0435.htm
-- 发布时间：2018/5/16 11:05:00
--
甜老师，我服务器的代码是这样的：
Dim fl1 As String = "e:\\wwwroot\\mobo\\"
Dim wb As New weui
Dim e As RequestEventArgs = args(0)
Dim cmd As new SQLCommand
cmd.C
cmd.CommandTimeOut = 600
Dim wjm As String = Date.Today.year & Date.Today.Month & Date.Today.Day & Date.now.Hour & Date.now.Minute & Date.now.Second
Dim wjlj As String = fl1 & "盘点\\" & wjm & ".txt"
FileSys.CopyFile(fl1 & "wj\\pd.txt", wjlj ,True)
FileSys.WriteAllText(wjlj , e.PostValues("txm"), True)
Dim strs As String = FileSys.ReadAllText(wjlj,Encoding.Default)
Dim h As String
Dim m As String
Dim kw As String
Dim djbh As String
strs = strs.Trim()
Dim rs() As String = strs.Split("#")
For i As Integer = 0 To rs.Length - 1
Dim cs() As String = rs(i).Split(",")
If cs.Length = 6 Then
Dim dr2 As DataRow = DataTables("盘点明细表导入").Addnew()
dr2("首列") = cs(0)
dr2("门店名称") = e.PostValues("username")
dr2("姓名") = e.PostValues("dy")
dr2("库位") = cs(1)
dr2("条码") = cs(3)
dr2("数量") = cs(4)
dr2("扫码时间") = cs(5)
dr2("盘点日期") = Date.Today
dr2("上传时间") = Date.now
End If
Next
If Date.now.Hour < 10 Then
h = "0" & Date.now.Hour
Else
h = Date.now.Hour
End If
If Date.now.Minute < 10 Then
m = "0" & Date.now.Minute
Else
m = Date.now.Minute
End If
For Each dr3 As DataRow In DataTables("盘点明细表导入").DataRows
dr3("单据编号") = dr3("库位") & h & m
dr3("扫码时间条码") = dr3("库位") & h & m & dr3("扫码时间") & dr3("条码")
cmd.CommandText =" insert into 盘点明细表(首列,门店名称,姓名,条码,扫码时间,数量,盘点日期,库位,上传时间,单据编号,扫码时间条码) values (\'" & dr3("首列") & "\' , \'" & dr3("门店名称") & "\' , \'" & dr3("姓名") & "\' , \'" & dr3("条码") & "\', \'" & dr3("扫码时间") & "\' , \'" & dr3("数量") & "\',\'" & dr3("盘点日期") & "\',\'" & dr3("库位") & "\',\'" & dr3("上传时间") & "\' ,\'" & dr3("单据编号") & "\' ,\'" & dr3("扫码时间条码") & "\' )"
cmd.ExecuteNonQuery()
dr3.Delete
Next
e.WriteString("服务器接收数据成功")
-- 发布时间：2018/5/16 11:05:00
--
大部分没问题，偶尔会出现那个问题
-- 发布时间：2018/5/16 11:26:00
--
1、报错的时候，执行的操作是否正确？能否把数据存放插入等？
2、应该是这段代码导致的错误，试试修改红色代码
Dim wjm As String = format(date.Now, "yyyyMMddHHmmssfff")
Dim wjlj As String = fl1 & "盘点\\" & wjm & ".txt"
FileSys.CopyFile(fl1 & "wj\\pd.txt", wjlj ,True)
FileSys.WriteAllText(wjlj , e.PostValues("txm"), True)