ie上浏览wap,功能类似 http://www.baowap.com/ie/
功能和他的一样,就是要在ie上不装任何插件就能浏览wap网站,看过uucun的,也做的很好,但不知道他们这些是如何实现的。?
我现在做的这个 http://www.sscoms.com/index1.asp 有点问题。我只能读取
http://www.baowap.com/ie/ 这个页面的内容,但点转到后,还是跑到 http://www.baowap.com这里去了,而且页面也撑宽了
以下是,右边包含文件:test.asp的代码:
<!--#include file="function.asp"-->
<%
'http://www.baowap.com/ie/?u=http://wap.ss.net.cn
urlstr="http://www.baowap.com/ie/?u="
url=trim(request.Form("u"))
url2=request.QueryString("u")
if url="" then url="http://wap.ss.net.cn"
url_to=urlstr
a = GetURL(url_to)
formstart=""
'a=replace(a,"http://www.baowap.com/ie?u=","")
a=replace(a,"宝蛙WAP在线浏览器、宝蛙在线Wap模拟器,无需安装插件,直接在线轻松浏览精彩Wap网站!","盛世通讯")
'a=replace(a,"baowap.com","sscoms.com")
'a=replace(a,"<form action=""http://www.baowap.com/ie"" method=""get"" name=""form"" target=""_self"" id=""form"">","<form action=""test.asp"" method=""get"" name=""form"" target=""_self"" id=""form"">")
a=replace(a,"http://www.baowap.com/ie?u=","http://www.sscoms.com/ie?u=")
a=replace(a,"<a href=""http://www.baowap.com"" target=""_blank"">","<a href=""http://www.sscoms.com"" target=""_blank"">")
a=replace(a,"WAP浏览器","盛世通讯")
a=replace(a,"maiwapie/button.gif","pic/goto.gif")
a=replace(a,"maiwapie/baoie02.gif","pic/baoie02.gif")
a=replace(a,"maiwapie/baoie01.gif","pic/baoie01.gif")
a=replace(a,"width=""222""","width=""200""")
a=replace(a,"WIDTH: 222px","WIDTH: 200px")
a=replace(a,"<input name=""u"" type=""text"" id=""u"" tabindex=""1"" value=""http://"" size=""25"" />","<input name=""u"" type=""text"" id=""u"" tabindex=""1"" value=""http://wap.ss.net.cn"" size=""20"" />")
if len(a)=0 then
response.Write("sdf")
else
response.Write(a)
end if
%>
请高人指点。。。。。