Foxtable(狐表) → 用户栏目 → 专家坐堂 → cookie 不起作用的？


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

主题：cookie 不起作用的？
帅哥哟，离线，有人找我吗？
xietan417
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		cookie 不起作用的？  发帖心情 Post By：2017/6/22 17:38: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
Dim wb As New weui
Dim xm As String
If e.Cookies.ContainsKey("xm") '如果存在名为count的Cookie
 xm  = e.Cookies("xm") '从cookie中获取用户名
End If
Select Case e.Path
    Case "upload.htm"      
        wb.AddForm("","form1","receive.htm")
        With wb.AddRadioGroup("form1","wz","上传选择")
            .Add("保税仓","保税仓",True) 
            .Add("普通仓","普通仓") '默认勾选
         End With
     
        With wb.AddInputGroup("form1","ipg1","永得利照片上传")
            With .AddInput("xm","上传人","text")
                .Value = xm
            End With 
                   With .AddUploader("up128","注意:只能传照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
                .ScaleWidth = 800 '自动压缩图片宽度为800个像素,高度等比例压缩
            End With
            End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
        End With
        wb.AddToast("","tst1", "正在上传",1)
        wb.AddToast("","tst2", "上传成功",0)
        wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页 
     

    Case "receive.htm"
        For Each key As String In e.Files.Keys
            For Each fln As String In e.Files(key)
                e.SaveFile(key,fln,"d:\web\uploadfiles\" & e.PostValues("wz") &"\"& fln) '保存接收到的文件
            Next
        Next
        e.WriteString("OK")
If e.PostValues("xm") <> "" Then
           wb.AppendCookie("xm",e.PostValues("xm")) '将用户名和密码写入cookie
           e.WriteString(wb.Build) '生成网页
           Return '必须的
       Else  e.WriteString(wb.build)     
       End If

End Select
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/6/23 1:16:00 [显示全部帖子]

确定以后上传人那里还是空的！是我的代码出了问题吗？

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/6/23 10:01:00 [显示全部帖子]

怎么去调取JS呢？这方面不是太懂！

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/6/23 10:39:00 [显示全部帖子]

还有就是如何去判断没有选择上传图片时，不能点确定上传？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/6/23 11:17:00 [显示全部帖子]

function submitWithProgress(){
    var result = submitAjaxForm('form1','afterSubmit',true,'tst1');
}


function afterSubmit(result){
    hide("tst1");
    if (result=='OK') {
        show("tst2");
        location="upload.htm?v="+Math.random();
    }
    else{
        show("tst3",2000);
    }
}
不给上传JS文件哦
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/6/23 14:10: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
Dim wb As New weui
Dim xm As String
If e.Cookies.ContainsKey("xm") '如果存在名为count的Cookie
 xm  = e.Cookies("xm") '从cookie中获取用户名
End If

Select Case e.Path
    Case "upload.htm"      
        wb.AddForm("","form1","receive.htm")
        With wb.AddRadioGroup("form1","wz","上传选择")
            .Add("保税仓","保税仓",True) 
            .Add("普通仓","普通仓") '默认勾选
         End With
     
        With wb.AddInputGroup("form1","ipg1","永得利照片上传")
            With .AddInput("xm","上传人","text")
                .Value = xm
            End With 
          With  .AddUploader("up128","注意:只能传照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
                .ScaleWidth = 800 '自动压缩图片宽度为800个像素,高度等比例压缩
            End With
            End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
        End With
        wb.AddToast("","tst1", "正在上传",1)
        wb.AddToast("","tst2", "上传成功",0)
        wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页 
     
    Case "receive.htm"
        For Each key As String In e.Files.Keys
            For Each fln As String In e.Files(key)
                e.SaveFile(key,fln,"d:\web\uploadfiles\" & e.PostValues("wz") &"\"& fln) '保存接收到的文件
            Next
        Next
         e.WriteString("OK|xm|" & e.PostValues("xm"))
End Select

ajaxform.js:
function afterSubmit(result){
    hide("tst1");
if(result){
        var vals=result.split("|");
        if(vals.length==3 && vals[0] == 'OK'){
show("tst2");
            document.cookie = vals[1] + '=' + vals[2] + ';expires=600000'
           location="upload.htm?v="+Math.random();
        }
    else{
        show("tst3",2000);
    }
}

换成这个JS都不能上传图片了！
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/6/23 15:16:00 [显示全部帖子]

还是不行啊！

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/6/23 18:30:00 [显示全部帖子]

function submitWithProgress(){
    var result = submitAjaxForm('form1','afterSubmit',true,'tst1');
}

function afterSubmit(result){
    hide("tst1");

if(result){
        var vals=result.split("|");
        if(vals.length == 3 && vals[0] == 'OK'){

  show("tst2");
           document.cookie = vals[1] + '=' + vals[2] + ';expires=600000';
           location="upload.htm?v="+ Math.random();
        }
    }
    else{
        show("tst3",2000);
    }
}

我加上前面那部分就可以传了！但是上传人那里如果是中文的话会乱码！
[此贴子已经被作者于2017/6/23 19:25:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/6/26 11:35:00 [显示全部帖子]

谢谢蓝版，辛苦啦！图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 6 次数据查询