Dim fl As String = "d:\图片\" & e.path
If filesys.FileExists(fl)
e.WriteFile(fl)
Return
End If
Select Case e.Path
Case "kfc"
Dim sb As New StringBuilder
sb.AppendLine("<!DOCTYPE html>")
sb.AppendLine("<html>")
sb.AppendLine("<head>")
sb.AppendLine("<meta c />")
sb.AppendLine("<title>555</title>")
sb.AppendLine("<script type='text/javascript'>")
sb.AppendLine(" function bbo() {")
sb.AppendLine(" document.all.adc.style = 'width:320px;height:23px;display:none'")
sb.AppendLine(" }")
sb.AppendLine("</script>")
sb.AppendLine(" <style type='text/css'>")
sb.AppendLine(" #adc")
sb.AppendLine(" {")
sb.AppendLine(" width: 85px;")
sb.AppendLine(" }")
sb.AppendLine(" </style>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
sb.AppendLine("<form action='kkk'>")
sb.AppendLine("<table >")
sb.AppendLine("<tr>")
sb.AppendLine("<td>")
sb.AppendLine("<input type='button' style='width: 100px' value='消失' onclick='bbo()'/>")
sb.AppendLine("<select id='adc' name='adc' ></select>")
sb.AppendLine("</td>")
sb.AppendLine("</tr>")
sb.AppendLine("</table>")
sb.AppendLine("</form>")
sb.AppendLine("</body>")
sb.AppendLine("</html>")
e.WriteString(sb.ToString)
End Select
访问路径要这样：http://127.0.0.1/kfc
加好友 
发短信
Post By：2018/3/19 21:26:00 [显示全部帖子]
