主题：[求助]

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())

OK了，谢谢！