<%=title%> - manbetx浣撹偛
<%
vurl = ""
if cate_1 <> "" and cate_2 = "" then vurl = vurl & "c" & cate_1
if cate_2 <> "" and cate_2 <> "0" then vurl = vurl & "e" & cate_2
if company_id <> "" and company_id <> "0" then vurl = vurl & "/p" & company_id
if othw <> "" then
if InStr(othw,"&") then
vurl = vurl & "?"
vurl = vurl & right(othw,Len(othw)-1)
end if
end if
%>
<%
if vurl <> "" then
%>
<%
end if
%>
<%
if cate_2 = "23" and company_id = "" then
%>
<%
end if
%>
<%
if cate_2 = "14" and company_id = "" then
%>
<%
end if
%>
"" then response.write " style=""font-size:"&h_font_size&"px;"""%>><%=catename%>
<%=oth_html%>
<%
sohtml=soinfo("https://zj.lmjx.net/?_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
%>