鱼刺网页求助

sunfly

网址 https://www.eeagd.edu.cn/xkcx2024/GetYxxxServlet
鱼刺post学科门类如哲学提示500错误，但是网页点击可以出现数据。
求写个例子可以返回哲学的官网json数据
前天还是可以提取网页源码，昨天服务器改了json数据
请问是代码中中文处理问题吗还是官方服务器问题，点击某个学校查看选科要求网页复制也能出结果，但是鱼刺get也是提示500错误
而其他无中文处理的数据都可返回json数据。总感觉是中文处理的问题
各位大佬看看

szweb01

szweb01

  

子程序名	返回值类型	公开	备 注
功能_网页访问	文本型		本命令由【精易网页调试助手】生成，请配合 [精易模块] 与 [鱼刺类_Httpv5.0] 使用。

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	文本型
http	WinHttpR
局_提交数据	文本型
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型

' https://www.eeagd.edu.cn/xkcx2024/GetYxxxServlet
局_网址 = "https://www.eeagd.edu.cn/xkcx2024/GetYxxxServlet"
局_方式 = "POST"
' ssdm=&kskms=&xkml=%E5%93%B2%E5%AD%A6&qttj=&cxtj=
局_提交数据 = "ssdm=&kskms=&xkml=%E5%93%B2%E5%AD%A6&qttj=&cxtj="
http.Auto (真)
http.Open (局_方式, 局_网址)
http.SetRequestHeader ("Accept"," application/json, text/javascript, */*; q=0.01"）
http.SetRequestHeader ("Accept-Encoding"," gzip, deflate, br"）
http.SetRequestHeader ("Accept-Language"," zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6"）
http.SetRequestHeader ("Cache-Control"," no-cache"）
http.SetRequestHeader ("Connection"," keep-alive"）
http.SetRequestHeader ("Content-Length"," 48"）
http.SetRequestHeader ("Content-Type"," application/x-www-form-urlencoded; charset=UTF-8"）
http.SetRequestHeader ("DNT"," 1"）
http.SetRequestHeader ("Host"," www.eeagd.edu.cn"）
http.SetRequestHeader ("Origin"," https://www.eeagd.edu.cn"）
http.SetRequestHeader ("Pragma"," no-cache"）
http.SetRequestHeader ("Referer"," https://www.eeagd.edu.cn/xkcx2024/"）
http.SetRequestHeader ("Sec-Fetch-Dest"," empty"）
http.SetRequestHeader ("Sec-Fetch-Mode"," cors"）
http.SetRequestHeader ("Sec-Fetch-Site"," same-origin"）
http.SetRequestHeader ("User-Agent"," Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0"）
http.SetRequestHeader ("X-Requested-With"," XMLHttpRequest"）
http.SetRequestHeader ("sec-ch-ua"," "Not_A Brand";v="8", "Chromium";v="120", "Microsoft Edge";v="120""）
http.SetRequestHeader ("sec-ch-ua-mobile"," ?0"）
http.SetRequestHeader ("sec-ch-ua-platform"," "Windows""）
http.Send (局_提交数据)
局_结果 ＝ http.GetResponseBody ()
局_返回 = 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)

.版本 2<br /> <br /> .子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合 [精易模块] 与 [鱼刺类_Httpv5.0] 使用。<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 文本型<br /> .局部变量  http, WinHttpR<br /> .局部变量  局_提交数据, 文本型<br /> .局部变量  局_提交协议头, 文本型<br /> .局部变量  局_结果, 字节集<br /> .局部变量  局_返回, 文本型<br /> ' https://www.eeagd.edu.cn/xkcx2024/GetYxxxServlet<br /> 局_网址 = "https://www.eeagd.edu.cn/xkcx2024/GetYxxxServlet"<br /> 局_方式 = "POST"<br /> ' ssdm=&kskms=&xkml=%E5%93%B2%E5%AD%A6&qttj=&cxtj=<br /> 局_提交数据 = "ssdm=&kskms=&xkml=%E5%93%B2%E5%AD%A6&qttj=&cxtj="<br /> http.Auto (真)<br /> http.Open (局_方式, 局_网址)<br /> http.SetRequestHeader ("Accept"," application/json, text/javascript, */*; q=0.01"）<br /> http.SetRequestHeader ("Accept-Encoding"," gzip, deflate, br"）<br /> http.SetRequestHeader ("Accept-Language"," zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6"）<br /> http.SetRequestHeader ("Cache-Control"," no-cache"）<br /> http.SetRequestHeader ("Connection"," keep-alive"）<br /> http.SetRequestHeader ("Content-Length"," 48"）<br /> http.SetRequestHeader ("Content-Type"," application/x-www-form-urlencoded; charset=UTF-8"）<br /> http.SetRequestHeader ("DNT"," 1"）<br /> http.SetRequestHeader ("Host"," www.eeagd.edu.cn"）<br /> http.SetRequestHeader ("Origin"," https://www.eeagd.edu.cn"）<br /> http.SetRequestHeader ("Pragma"," no-cache"）<br /> http.SetRequestHeader ("Referer"," https://www.eeagd.edu.cn/xkcx2024/"）<br /> http.SetRequestHeader ("Sec-Fetch-Dest"," empty"）<br /> http.SetRequestHeader ("Sec-Fetch-Mode"," cors"）<br /> http.SetRequestHeader ("Sec-Fetch-Site"," same-origin"）<br /> http.SetRequestHeader ("User-Agent"," Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0"）<br /> http.SetRequestHeader ("X-Requested-With"," XMLHttpRequest"）<br /> http.SetRequestHeader ("sec-ch-ua"," "Not_A Brand";v="8", "Chromium";v="120", "Microsoft Edge";v="120""）<br /> http.SetRequestHeader ("sec-ch-ua-mobile"," ?0"）<br /> http.SetRequestHeader ("sec-ch-ua-platform"," "Windows""）<br /> <br /> http.Send (局_提交数据)<br /> 局_结果 ＝ http.GetResponseBody ()<br /> <br /> 局_返回 = 到文本(编码_编码转换对象(局_结果))<br /> 返回(局_返回)

sunfly

啊原来是协议头的问题漏了数据不齐全 刚学鱼刺命令还没时间仔细学多谢