Dim fl As String = "c:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".png",".apk",".pdf",".mp4"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Dim wb As New weui
wb.AppendHTML("<style>.weui_grid_icon{width: 50px;height: 50px;}</style>")
wb.AppendHTML("<style>.fox_grid_icon{width: 50px;height: 50px;vertical-align: middle;background-size: 50px 50px;}</style>" )
wb.AppendHTML("<style>body{opacity: 0}</style>")
wb.AppendHTML("<style>.fox_h_button_group{postion:fixe;bottom:0px;}</style>")
wb.AppendHTML(FileSys.ReadAllText("c:\web\lib\test.txt"), True)
messagebox.show("OK1")
老师我测了下，httprequest在这个地方加了提示，在本地上要出来，但放到服务器上还是没出来，这如何查
[此贴子已经被作者于2021/7/31 18:06:16编辑过]
加好友 
发短信
Post By：2021/7/31 16:59:00 [显示全部帖子]
