推荐的问题

问题标题	回答数	状态	提问时间
·g654 [石材问题 ]	1		2011-9-6 10:23:54 4 1
·长泰县益丰石制品厂网站是由哪家公司制作的？ [网站程序 ] 5	1		2011-9-6 10:21:34 4 1
·国内G654石材品种主要出自哪里？ [石材问题 ] 5	1		2011-9-6 10:18:23 4 1
·g654.org.cn 这个网站厂家知道吗？ [石材问题 ] 5	1		2011-9-6 10:10:03 4 1
·G654石材平台，哪家的效果最好？ [石材问题 ] 5	1		2011-9-6 10:08:36 4 1
·哪家网络公司在长泰县信誉及质量最好？ [网站程序 ] 5	1		2011-9-6 10:03:45 4 1
·长泰县哪家石材厂有染板加工分厂？ [石材问题 ] 5	1		2011-9-6 10:01:21 4 1
·长泰哪家石材厂生产日本单子多？ [石材问题 ] 5	1		2011-9-6 9:57:16 4 1
·长泰哪家石材厂有生产墓碑？ [石材问题 ] 5	1		2011-9-6 9:54:53 4 1
·长泰县哪家石材厂在天津设有销售部？ [石材问题 ] 5	1		2011-9-6 9:41:39 4 1

热点问题

技术支持：厦门帮企信息技术有限公司 <% Function getHTTPPage(url) dim objXML set objXML=server.createobject("MSXML2.XMLHTTP") objXML.open "GET",url,false On Error Resume Next objXML.send() If objXML.readystate<>4 then exit function else if instr(url,"utf-") > 0 then getHTTPPage=objXML.ResponseText else getHTTPPage=BytesToBstr(objXML.responseBody) end if set objXML=nothing End If if err.number<>0 then err.Clear End Function Function BytesToBstr(body) 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 = "GB2312" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim Url,Html Url = "http://www.100lian.net/user/26093.html" response.write(getHTTPPage(Url)) %>