Foxtable(狐表)用户栏目专家坐堂 → web端小问题


  共有3370人关注过本帖树形打印复制链接

主题:web端小问题

帅哥哟,离线,有人找我吗?
aaa1234
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
web端小问题  发帖心情 Post By:2021/11/1 9:17:00 [显示全部帖子]

老师您好,我想问一下类似于这种的,他在foxtable中生成了网页,怎么对他的页面进行美化,以为我是打算做web,weui的框架也用不上,有没有foxtable支持的框架,或者怎么美化他的页面Select Case e.Path
    Case "AddNew.htm"
        If e.PostValues.Count = 0 AndAlso e.Files.Count = 0 Then
            Dim sb As New StringBuilder
            sb.AppendLine("<form enctype='multipart/form-data' action='AddNew.htm' method='post'
 id='form1' name='form1'>")
            sb.AppendLine(
"
姓名: <input name='xm' id='xm'><br/><br/>")
            sb.AppendLine(
"
部门: <input name='bm' id='bm'><br/><br/>")
            sb.AppendLine(
"
职务: <input name='zw' id='zw'><br/><br/>")
            sb.AppendLine(
"
学历: <input name='xl' id='xl'><br/><br/>")
            sb.AppendLine(
"
照片: <input type='file' name='zp' id='zp' multiple><br/><br/>")
            sb.AppendLine(
"<input Type='submit' name='Sumbit' id='Sumbit' value='
确定'>")
            sb.AppendLine("</form>")
            e.WriteString(sb.ToString)
        Else
            Dim dr As DataRow = DataTables(
"
员工").AddNew()
            Dim inms() As String = {"xm","bm","zw","xl"'
输入框名称数组
            Dim cnms() As String = 
{"
姓名","部门","职务","学历"'列名数组,注意列名和输入框必须一一对应,位置不能错乱
            For i As Integer = 0 To inms.Length -1
                dr(cnms(i)) = e.PostValues(Inms(i)) 
            Next
            If  e.Files.ContainsKey("zp"Then
                dr(
"
照片") = e.Files("zp")(0)
                e.SaveFile("zp", e.Files("zp")(0), ProjectPath & "Attachments\" & e.Files("zp")(0))
            End If
            
dr.Save()
            Dim sb As New StringBuilder
            sb.AppendLine(
"
增加记录成功! <br/><br/>")
            sb.AppendLine(
"<a href='AddNew.htm'>
继续增加</a>")
            e.WriteString(sb.ToString)
        
End If
End
 Select

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 10:03:00 [显示全部帖子]

蓝老师,我有一点不是很懂,就是你刚刚发给我的案例里面examples文件夹里面是放着html代码的,为什么他不引入进去呢,不是很懂

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 10:53:00 [显示全部帖子]

但是我想问一下就Dim fl As String = "d:\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",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return 
'
这里必须返回
    End 
Select

End
 If
这些都是生成静态页面的,怎么样把静态的页面跟动态的页面结合

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 11:25:00 [显示全部帖子]

这两个方法的具体操作的文档可以发给我吗老师

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 15:08:00 [显示全部帖子]

第二种方法老师这个除了应用在href链接里能不能应用在id或者class里面

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 15:51:00 [显示全部帖子]

但是如果要添加更改的内容较多,建议直接拼接网页字符串吧,不要使用静态网页了,类似一楼的用法,比如 
我搞页面布局不可能全部都这样写吧老师

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 15:53:00 [显示全部帖子]

我不可能把全部html的代码都搞成这样把,有没有方便一点的老师,就不知道怎么把一个静态的页面可以在foxtable里面做成动态的
[此贴子已经被作者于2021/11/1 15:54:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 16:15:00 [显示全部帖子]

那后端分离类似于登录应该怎么写,比较好呢

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 16:43:00 [显示全部帖子]

老师我还是用占位符吧,前后端真的看不懂是怎么引入的

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/1 16:55:00 [显示全部帖子]


 回到顶部
总数 13 1 2 下一页