Select Case e.Path Case "test.htm", "" Dim sb As New StringBuilder sb.Appendline("我想显示一个图片<br/><br/>") sb.AppendLine("<img src='./images/001.jpg' id='test'>") sb.AppendLine("<input type='button' onclick=""test.src='./images/002.jpg'"" value='test'>") e.WriteString(sb.ToString()) End Select