[求助]为何依04.移动开发指南范例 IE可以,chrome无法显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：[求助]为何依04.移动开发指南范例 IE可以,chrome无法显示