-- 作者:有点甜
-- 发布时间:2019/3/29 9:40:00
--
绑定click事件,如
Dim sb As New StringBuilder sb.Appendline("我想显示一个图片<br/><br/>") Select Case e.path Case "a.htm" sb.AppendLine("<img src=\'/images/abc.jpg\' onclick=""location=\'/sub1/a.htm\'"">") Case "sub1\\a.htm" sb.AppendLine("<img src=\'/images/abc.jpg\'>") Case "sub1\\sub2\\a.htm" sb.AppendLine("<img src=\'/images/abc.jpg\'>") End Select e.WriteString(sb.ToString())
|