<%=oth_html%>
<%
sohtml=soinfo("https://big5.lmjx.net/zj/?_p=spage&c1="&cate_1&"&c2="&cate_2&"&lc="&list_id&"&company_id="&company_id&othw)
Response.Write(sohtml)
function soinfo(url)
dim Https
set Https=server.createobject("MSXML2.XMLHTTP")
Https.open "get",url&"&r="&now(),false
Https.send()
if Https.readystate=4 then
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write Https.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "UTF-8"
html = objstream.ReadText
objstream.Close
set objstream = nothing
set https=nothing
end if
soinfo = html
end Function
%>
