主题：[求助]

httprequest事件

Functions.Execute("函数名",e)

http://www.foxtable.com/mobilehelp/scr/0025.htm

1、你函数【ybtpa】怎么写？

2、msgbox(e.path) 弹出什么？

httprequest事件

msgbox(e.path)  

Functions.Execute("ybtpa",e)

代码改成这样

Dim e As RequestEventArgs = args(0)
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

Dim sb As New StringBuilder
sb.Appendline("产品展示<br/><br/>")
Select Case e.path
    Case "a.htm"
        sb.AppendLine("<img src='/images/004.jpg'>")
    Case "b\a.htm"
        sb.AppendLine("<img src='/images/013.jpg'><br/><br/>")
        sb.AppendLine("<img src='/images/010.jpg'><br/><br/>")
        sb.AppendLine("<img src='/images/011.jpg'><br/><br/>")
        sb.AppendLine("<img src='/images/012.jpg'><br/><br/>")
    Case "a\a.htm"
        sb.AppendLine("<img src='/images/008.mp4'>")
End Select
e.WriteString(sb.ToString())