专家坐堂-[求助]以http://方式远程升级，多数电脑出现如下问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Functions.Execute("微信头",e)

Dim cmd As New SQLCommand

cmd.ConnectionName = vars("_conn")

\'*****************************************************************************************

Dim fl As String = "d:\\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",".txt"

\'e.Resp

e.WriteFile(fl)

Return \'这里必须返回

End Select

End If

Select Case e.Path

Case "logon.htm",""

Functions.Execute("logon",e)

Case Else

Dim usernam As String=""

Dim Password As String=""

Dim userdeptnam As String=""

If e.Cookies.ContainsKey("usernam") Then

usernam= e.Cookies("usernam") \'从cookie中获取用户名

Password= e.Cookies("password") \'从cookie中获取用户密码

userdeptnam= e.Cookies("userdeptnam")

End If

usernam=usernam.trim()

Password=Password.trim()

userdeptnam=userdeptnam.trim()

\'essageBox.Show(usernam & "|0|" & Password)

If Password>"" AndAlso Password.Length>5 AndAlso usernam>"" AndAlso usernam.Length>1 AndAlso userdeptnam>"" AndAlso userdeptnam.Length>1 Then

Select Case e.Path

Case "xs_xzml.htm"

Functions.Execute("xs_xzml",e)

Case "xs_list.htm"

Functions.Execute("xs_List",e) \'分页显示

Case "xs_edit.htm"

Functions.Execute("xs_Edit",e) \'生成订单编辑页面

Case "xs_xzcph.htm"

Functions.Execute("xs_xzcph",e) \'分页显示

Case "xs_fl.htm"

Functions.Execute("xs_fl",e)

Case "xs_sgwyy.htm"

Functions.Execute("xs_sgwyy",e) \'分页显示

Case "xs_sgwyyd.htm"

Functions.Execute("xs_sgwyyd",e) \'分页显示

Case "xs_sgckyy.htm"

Functions.Execute("xs_sgckyy",e) \'分页显示

Case "xs_sgckky.htm"

Functions.Execute("xs_sgckky",e)

Case "xs_sgckyyq.htm"

Functions.Execute("xs_sgckyyq",e) \'分页显示

Case "xs_sgckkyq.htm"

Functions.Execute("xs_sgckkyq",e)

Case "xs_sgckwb.htm"

Functions.Execute("xs_sgckwb",e)

Case "xs_sgckbsg.htm"

Functions.Execute("xs_sgckbsg",e) \'分页显示

Case "xs_xgch.htm"

Functions.Execute("xs_xgch",e)

Case "xs_ckxs.htm"

Functions.Execute("xs_ckxs",e)

Case "sg_xzml.htm"

Functions.Execute("sg_xzml",e)

Case "sg_ckyy.htm"

Functions.Execute("sg_ckyy",e) \'分页显示

Case "sg_ckky.htm"

Functions.Execute("sg_ckky",e)

Case "sg_ckwb.htm"

Functions.Execute("sg_ckwb",e)

Case "qt_xzml.htm"

Functions.Execute("qt_xzml",e)

Case "qt_cwbx.htm"

Functions.Execute("qt_cwbx",e)

Case "qt_cwedit.htm"

Functions.Execute("qt_cwedit",e)

Case "qt_xcjl.htm"

Functions.Execute("qt_xcjl",e)

Case "qt_cwpz.htm"

Functions.Execute("qt_cwpz",e)

Case "qt_cwpz1.htm"

Functions.Execute("qt_cwpz1",e)

Case "qt_cwfl.htm"

Functions.Execute("qt_cwfl",e)

Case "qt_yc.htm"

Functions.Execute("qt_yc",e)

Case "qt_ycedit.htm"

Functions.Execute("qt_ycedit",e)

Case "qt_ycfl.htm"

Functions.Execute("qt_ycfl",e)

Case "qt_wz.htm"

Functions.Execute("qt_wz",e)

Case "qt_wzt.htm"

Functions.Execute("qt_wzt",e)

Case "kxb_sgjl.htm"

Functions.Execute("kxb_sgjl",e)

Case "k_l.htm"

Functions.Execute("k_l",e)

Case "upload.htm"

Functions.Execute("upload",e)

Case "receive.htm"

Functions.Execute("receive",e)

End Select

Else

Functions.Execute("logon",e)

End If

End Select