Html5 手机浏览器后台定位超时

html-css027

Html5 手机浏览器后台定位超时,第1张

您好,可能是您的手机里有恶意软件,您先杀毒试试,浏览器的话,我觉得还是手机qq浏览器好用。你可以去用用手机QQ浏览器,它的兼容性和稳定性都是挺好的,像你这个系统是能很好的支持的。它的安装包虽然小但内容齐全,还有很多的人性化功能,像无痕浏览、智能预读都是挺不错的,看视频和看小说都是挺好的。自己喜欢的还是它的省流加速的功能,能对WAP页面进行数据高压缩,为大家节省30%以上的流量呢,可以到月底不愁了,自己要是有需要的话,可以去看看

第一:把有 On Error Resume Next 的部分去掉看看提示什么错误.

第二:newssort2 字段有可能不是数字类型,而是文本类型,要处理一下

第三:检查select语句,可能数据太多了,应该加以限制,比如: select top 100 *

Dim Url, Url1, Sort2

Sort2 = MyInt(rs("newssort2"))

i2 = MyInt(i2)

If i2 <1 Then i2 = 1

If Sort2 >0 Then

Url = WebPath &"html/news/newspage_" &Sort2 &"_" &Sort2 &"_" &i2 &".html"

Url1 = WebPath &"news.asp?id=" &Sort2 &"&n=" &Sort2 &"&page=" &i2 &"&time=" &Now

Call MakeIndex(Url, Url1) 'Sub

End If

Function MyInt(ByVal str)

If IsNumeric(Trim(str)) Then MyInt = Fix(CDbl(Trim(str))) Else MyInt = 0

End Function

Adodb.Stream 方式生成:

iCon 为生成的页面内容,fn为文件名

Dim obj

Set obj = Server.CreateObject("Adodb.Stream")

obj.Open

obj.Charset = "utf-8"

obj.Position = obj.Size

obj.WriteText = iCon

obj.SaveToFile Server.MapPath(fn), 2

obj.Close

Set obj = Nothing