httprequest事件中，屏蔽代码可以弹开网页，if怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

httprequest中必须有处理 CCintroduction.htm 的代码呀，我的意思，我分两次测试，一次是点击弹出 CCintroduction.htm 网页(如果屏蔽红框处的代码可以正常弹出网页，不屏蔽，手机访问网页时，网页就直接回复一个success)

第二次测试发送消息"lis" ，如果屏蔽就没有自动回复消息，如果不屏蔽就可以自动回复对应的消息。

httprequest的代码如下：

try

Select Case e.host

Case "192.168.1.153","127.0.0.1","ycyysf.viphk.ngrok.org"

Dim dr As DataRow

Dim url As String

Dim wechatserv As WeChat.WeChatPublicNo

If e.Path > "" Then

url = "http://" & e.host & "/" & e.Path.replace("\","/").replace("'","''").replace("""","""""") & "/"

wechatserv = Functions.Execute("WeChat_GetServerByUrl",url) '查询是否有此地址的微信公众号

End If

Dim xo As XObject = XObject.Parse(e.PlainText)

' msgbox(xo("MsgType"))

msgbox(e.PlainText)

msgbox(xo("MsgType"))

If (wechatserv IsNot Nothing And xo("MsgType")<>"event" ) Then

wechatserv.ProcessMessage(e,"WeChat_ProcessRequestMsg") '处理消息并获取返回值

'Functions.Execute("LogText","回复=" & weRet)

Else

'通用事件头

'如果网页路径定义了中间目录,如"ordertest/logon.htm" ,则下面的fl实际就是"d:\web\ordertest\weui\weui.me.js"

'因此你需要把WeUI框架三个文件复制到"d:\web\ordertest\weui"目录下

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"

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

Select Case e.Path

Case "ApplyService.htm"

Dim wb As New WeUI

wb.AddPageTitle("","pageheader","服务申请","请选择下面的对应的服务按钮")

With wb.AddGrid("","g1")

.Add("c1","软件需求登记", "./images/button.png","DemandRegist.htm") '没有问题

.Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")

.Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")

.Add("c4","Dialog", "./images/dialog.png", "http://www.foxtable.com")

.Add("c5","Progress", "./images/progress.png", "http://www.foxtable.com")

.Add("c6","Msg", "./images/msg.png", "http://www.foxtable.com")

.Add("c7","Article", "./images/article.png", "http://www.foxtable.com")

.Add("c8","ActionSheet", "./images/actionSheet.png", "http://www.foxtable.com")

.Add("c9","Icons", "./images/icons.png", "http://www.foxtable.com")

.Add("c10","Panel", "./images/panel.png", "http://www.foxtable.com")

.Add("c11","Tab", "./images/tab.png", "http://www.foxtable.com")

.Add("c12","SearchBar", "./images/search.png", "http://www.foxtable.com")

End With

e.WriteString(wb.Build)

Case "list.htm"

Functions.Execute("List",e)

Case "addnew.htm"

Functions.Execute("AddNew",e)

Case "edit.htm"

Functions.Execute("Edit",e)

Case "delete.htm"

Functions.Execute("Delete",e)

Case "SatisSurvey.htm"

Functions.Execute("SatisSurvey",e)

Case "CCintroduction.htm"

Functions.Execute("CCintroduction",e)

Case "order1.htm"

Functions.Execute("JTweb",e)

.AddInput("sl","数量","number")

Case "gettoken" '做为AccessToken中控服务

Dim atoken As WeChat.AccessToken = WeChat.WeChatAccessTokenController.GetServiceAccessToken(e.PlainText)

e.WriteString(atoken.ToJson()) '返回access_token的JSON数据

Case "scanlogon" '做为AccessToken中控服务

Functions.Execute("Http_ScanLogon" ,e)

Case Else

If e.Path.StartsWith("ordertest\") Then '公众号订单测试地址前缀都统一使用这个

Functions.Execute("Order_HttpRequest",e)

ElseIf e.Path.StartsWith("review\") Then '企业号订单审核地址前缀都统一使用这个

Functions.Execute("Order_HttpReview",e)

End If

End Select 'e.path 的配对

End If

End Select 'e.host的配对

'记录接收的消息,方便分析

Dim str As new StringBuilder

'str.AppendLine("host=" & e.host)

str.AppendLine("path=" & e.Path)

str.AppendLine("HttpMethod=" & e.Request.HttpMethod)

'str.AppendLine("poststring=" & e.PlainText)

'str.AppendLine("ip=" & e.Request.RemoteEndPoint().Address.ToString())

For Each key As String In e.Values.Keys

str.AppendLine(key & "=" & e.Values(key))

Functions.Execute("logText",str.ToString)

catch ex As Exception

Functions.Execute("LogText",ex)

e.WriteString("")

End Try

主题：httprequest事件中，屏蔽代码可以弹开网页，if怎么写？