如题................

环境: 中文名登录.(后台该做的配置已经配置的情况下)

经长时间测试. 360(极速模式),真实存在无法上传图片.跟踪相关的UserName,均登录有效.一直跟踪到swfupload.那里.直到.swfupload.asp文件中.获取swf带过来的用户名,如果是中文.100%的会错.跟踪无数次.有时候存在:

"科讯"<>"科讯"的情况.更多的时候都为空.跟踪次数多了.删除了很多次.所以只是大略记得. 也不能获取cookies.

作者最后使用UserID解决.

思路:

找到:user文件夹下: user_upfile.asp和swfupload.asp

修改:

1.User_upfile.asp:

swf类中:增加UserID参数.

var post_params={"UserID":<%=Trim(KS.C("UserID"))%>,"UserName" : "<%=KS.C("UserName") %>","RndPassWord":"<%=KS.C("RndPassWord")%>",UpType:"<%=UPType%>",BasicType:<%=BasicType%>,ChannelID:<%=ChannelID%>,"BoardID":"<%=KS.S("BoardID")%>","FieldID":"<%=KS.G("FieldID")%>","AutoRename":4<%if channelid<>"9999" and channelid<>"9994" and channelid<>"9993" and channelid<>"8000" then '上传头像不生成小图%>,"AddWaterFlag":1,"DefaultUrl":1<%End If%>};

2.swfupload.asp中:

修改查询:

Function CheckIsLogin(UserName,Pass)
       If UserName="" Or Pass="" Then Check=false: Exit Function
    '==========尝试修复360上传登录.不解swf过来后:"测试"<>"测试".跟踪出来看起来一样.却不想等.所以用UID代替,至少不改变数字.
    Dim U_ID:U_ID=Trim(UpFileObj.Form("UserID"))
    dim Login_sql
    'Login_sql="Select top 1 * From KS_User Where UserName='" & KS.R(UserName) & "'"
    Login_sql="Select top 1 * From KS_User Where UserID="&U_ID
    'response.Write(Login_sql)
    '----------------------------
       Dim ChkRS:Set ChkRS =Conn.Execute(Login_sql)

后台如是:

文件:ks.upfileform.asp和include中:swfupload.asp

同理修改.

问题到时解决了.

只是还没有发现为何:  swf获取过来.没有数据.cookies也没有. 有几次甚至: "中文"<>"中文"

问题出在SWFUPload上. 能够获取.但到最后变为空.要不就不相等. 因为中文的原因.跟踪出来 看起来样子都一样.结果是不想等的.false.vartype是一样.但是就是不想等.

唯独英文和数字不会改变.所以用 UID解决是最好的办法.

如果有相同问题的.不知道修改. 请留言.

为了不改变官方文件.再次修改下.文件:swfupload.asp:

'==========尝试修复360上传登录.不解swf过来后:"测试"<>"测试".跟踪出来看起来一样.却不想等.所以用UID代替,至少不改变数字.

    Dim U_ID:U_ID=Trim(UpFileObj.Form("UserID"))

    dim Login_sql

   

    if KS.IsNul(U_ID) then

    Login_sql="Select top 1 * From KS_User Where UserName='" & KS.R(UserName) & "'"

    else

    Login_sql="Select top 1 * From KS_User Where UserID="&U_ID

    end if

   

    'response.Write(Login_sql)

    '----------------------------

       Dim ChkRS:Set ChkRS =Conn.Execute(Login_sql)

你好。我按照你的方法更改了。但现在变成了上传错误为500。不是麻烦你更改，而是想问问你那个跟踪是怎么实现的啊？