1、js文件拷贝到 C:\web\lib
2、代码
Select Case e.Port
Case 80
e.WriteString("Hello World")
Case 32177
Dim rs As String = "<p>Foxtable首先是一个优秀的应用软件,你不需要编写任何代码,即可高效完成日常数据管理工作.</p>"
rs = rs & "<p>同时Foxtable又是一个高效的.net平台开发工具,专门针对数据管理软件的开发作了大量的优化</p>"
e.WriteString(rs)
Case 32178
Dim rs As String = "<a href='http://www.foxtable.com/'>单击此处</a>访问Foxtable主页"
e.WriteString(rs)
Case 32188
If e.path = "fox" Then
e.WriteString("FOX\你好,狐表用户")
ElseIf e.path = "fox\china.htm" Then '注意这里的路径分隔符是"\"
e.WriteString("你好,中国狐表用户")
Else
e.WriteString("你好,未找到网页")
End If
Case 32189
Dim fl As String = "c:\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" '这里加上了js扩展名
e.WriteFile(fl)
End Select
Else
Dim sb As New StringBuilder
sb.appendLine("<!doctype html>")
sb.appendLine("<html>")
sb.appendLine("<head>")
sb.appendLine("<meta charset='utf-8'>")
sb.appendLine("<title>表单</title>")
sb.appendLine("</head>")
sb.appendLine("<body>")
sb.appendLine("<form enctype='multipart/form-data' method='post' id='form1' name='form1'>")
sb.appendLine("产品: <input name='cp' id='cp'><br/><br/>")
sb.appendLine("客户: <input name='kh' id='kh'><br/><br/>")
sb.appendLine("雇员: <input name='gy' id='gy'><br/><br/>")
sb.appendLine("单价: <input Type='number' name='dj' id='dj' ><br/><br/>") '加上事件触发
sb.appendLine("折扣: <input Type='number' name='zk' id='zk' step='0.01' ><br/><br/>")
sb.appendLine("数量: <input Type='number' name='sl' id='sl' ><br/><br/>")
sb.appendLine("金额: <input Type='number' name='je' id='je' readonly><br/><br/>")
sb.appendLine("日期: <input Type='date' name='rq' id='rq'><br/><br/>")
sb.appendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
sb.appendLine("</form>")
sb.appendline("<script src='./lib/calc.js'></script>") '引入脚本文件
sb.appendLine("</body>")
sb.appendLine("</html>")
e.WriteString(sb.ToString)
End If
Case Else
e.WriteString("你好,端口错误")
End Select
加好友 
发短信
Post By：2018/9/14 8:50:00 [只看该作者]
此主题相关图片如下：err.jpg