现在的问题是 在电脑上 可以显示 但在手机上（安卓） 上显示不一样 代码如下
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",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
'三层机构
'Select Case e.Path
'Case "DataServer.htm"
'Dim Verified2 As Boolean
'If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
''实际开发的时候,请改为根据用户表验证身份
'Dim username As String = e.PostValues("username")
'Dim password As String = e.PostValues("password")
'If username = "zhangrongling" AndAlso password = "888" Then
'Verified2 = True
'End If
'End If
'If Verified2 = False Then
'e.AppendCookie("Error","用户身份验证失败!") '通过Cookie返回错误信息.
'Else
'e.AsDataServer("数据库") '将一个本地数据源公开为Web数据源
'End If
'End Select
'---------------------------------------------------------------------------------------
'MessageBox.Show(e.path)
Select Case e.path
Case "Remuneration" '工资信息
' Dim e As RequestEventArgs = args(0)
Dim UserId As String
Dim UserName As String
Dim sb As New StringBuilder
sb.AppendLine("<meta name='viewport' c>")
If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的UserId
MessageBox.Show("通过授权链接进入")
Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"
ul = CExp(ul,Functions.Execute("GetQYAccessToken"),e.GetValues("code"))
Dim hc As new HttpClient(ul)
Dim jo As JObject = JObject.Parse(hc.GetData)
If jo("UserId") IsNot Nothing Then
UserId = jo("UserId")
MessageBox.Show("通过授权链接包含信息:" & userid)
End If
Else
UserId = e.Cookies("userid") '否则从cookie中提取userid
MessageBox.Show("通过cookies获取:" & userid)
End If
Dim Verified As Boolean
MessageBox.Show(userid)
Dim drc As DataRow = DataTables("员工花名册").Find("企业微信号ID ='" & UserId & "'") '根据openid找出对应的行
MessageBox.Show(drc("姓名"))
If UserId <> "" AndAlso drc IsNot Nothing AndAlso drc("微信权限") = 1 '授权成功
Verified = True
UserName = drc("姓名")
e.AppendCookie("userid",UserId) '将userid和username存储在Cookie中
ElseIf e.GetValues.ContainsKey("code") = False Then '如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接
'MessageBox.Show("跳转授权链接" & userid)
Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&agentid={2}&state=STATE#wechat_redirect"
Dim ul2 As String = UrlEncode(Vars("yyzy"))
ul = CExp(ul,Vars("qyid"),ul2,Vars("yyid"))
'Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=ww8bbc1c6c7bd8a2e7&redirect_uri=http%3a%2f%2fgz.crucg.top%3a8090%2fRemuneration&response_type=code&scope=snsapi_base&agentid=1000002&state=STATE#wechat_redirect"
sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接%3a8090
e.WriteString(sb.ToString)
Return
End If
If Verified = False Then
'MessageBox.Show("授权不通过:" & userid)
sb.AppendLine("你无权访问本系统")
Else
'MessageBox.Show("通过,进入主页")
'MessageBox.Show("授权成功")
e.WriteString("<meta http-equiv='Refresh' c>")
' sb.AppendLine("欢迎" & UserName & "同志使用本系统,授权成功!请" & " , <a href='http://www.crucg.top/Remuneration2'>刷新页面后进去</a>")
End If
e.WriteString(sb.ToString)
Case "Remuneration2"
If e.Cookies.ContainsKey("userid") =False Then
e.WriteString("非法访问")
Return
End If
e.AsyncExecute = True
Functions.AsyncExecute("Remuneration2",e)
Case "mx"
If e.Cookies.ContainsKey("userid") =False Then
e.WriteString("非法访问")
Return
End If
e.AsyncExecute = True
Functions.AsyncExecute("mx",e)
Case "order.xls"
If e.Cookies.ContainsKey("userid") =False Then
e.WriteString("非法访问")
Return
End If
e.AsyncExecute = True
Functions.AsyncExecute("CreateXLS",e)
Case "tongji"
If e.Cookies.ContainsKey("userid") =False Then
e.WriteString("非法访问")
Return
End If
e.AsyncExecute = True
Functions.AsyncExecute("tongji",e)
Case "tongjit"
If e.Cookies.ContainsKey("userid") =False Then
e.WriteString("非法访问")
Return
End If
e.AsyncExecute = True
Functions.AsyncExecute("tongjit",e)
End Select
电脑上访问 的结果
此主题相关图片如下：qq图片20201215093126.png
此主题相关图片如下：qq图片20201215093135.png
此主题相关图片如下：qq图片20201215093140.png
点击上图的链接 提示 非法访问
下面是手机端访问的结果
此主题相关图片如下：qq图片20201215093204.png
此主题相关图片如下：qq图片20201215093208.png
此主题相关图片如下：qq图片20201215093213.png
[此贴子已经被作者于2020/12/15 9:36:18编辑过]
加好友 
发短信
Post By：2020/12/14 17:23:00 [只看该作者]
