内部函数 - uppackage
'加载快递单
Dim e As RequestEventArgs = args(0)
Dim sb As New StringBuilder
sb.appendLine("<form enctype='multipart/form-data' action='uppackageaccept.htm' method='post' id='uppack' name='uppack'>")
sb.appendLine("UP Files: <input type='file' accept='.xls,.xlsx' name='up1' id='up1'><br/><br/>")
sb.appendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='Update'>") '确定按钮
sb.appendLine("</form>")
e.WriteString(sb.ToString)
内部函数 - uppackageaccept
Dim e As RequestEventArgs = args(0)
网络监视器中 HttpRrquest
Select Case e.Path
Case "uppackage.htm"
Functions.Execute("uppackage",e)
Case "uppackageaccept.htm"
Functions.Execute("uppackageaccept")
End Select
此主题相关图片如下：qq截图20190421205512.png
这是什么原因呢？
加好友 
发短信
Post By：2019/4/21 13:00:00 [只看该作者]
