以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  网络监视器和开启移动代码与服务器的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98723)
--  作者：douglas738888
--  发布时间：2017/4/5 22:50:00
--  网络监视器和开启移动代码与服务器的问题
 

请教老师，参照帮助做了几个学习移动的功能，使用本机网址和局域网网址没有问题，但是配置远程服务器过程中遇到如下几个疑问，特请教老师

 

租用了阿里云的服务器后，以下代码怎样进行匹配（自己试写的代码都未能实现）

 

1. HTTPServer.Prefixes.Add 的//:*/ 与FTP有冲突不能用，阿里云的公网怎样匹配进来（本机电脑测得公网网址120.**.***.193:ms-***-server）

 

2.网络监视器或自定义函数

Dim fl As String = "f:\\web\\" & e.path \'这里的f:\\web\\是本机电脑内的路径，如果发布后要把项目复制到阿里云服务器上，是否要改成阿里云服务器上的存放web的盘符，比如e:\\web\\      
 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",".css" ,".html",".htm",".zip",".rar",".ico"
            e.WriteFile(fl)
             Return  \'这里必须返回
    End  Select
 End  If

 

3.登录页面

If UserName = "张三" AndAlso Password = "888" Then  \'实际使用的时候,请改为从数据库读取用户名和密码进行比较，这里怎样改为从数据库读取用户名和密码

[此贴子已经被作者于2017/4/5 23:09:20编辑过]
--  作者：有点色
--  发布时间：2017/4/6 0:40:00
--  

1、你用iis搭建的ftp？iis默认使用的是80端口，你可以禁用一下 https://www.baidu.com/baidu?wd=iis+80+%D5%BC%D3%C3&tn=monline_4_dg

 

2、你可以把web文件夹放在项目文件夹下，然后把代码改成 Dim fl As String = ProjectPath & "web\\" & e.path

 

3、改成

Dim dr As DataRow = DataTables("表A").Find("用户名 = \'" & username & "\'")

If dr IsNot Nothing AndAlso dr("密码") = password Then