最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
实例讲解asp抓取网上房产的信息
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
作者:淘特网
出处:淘特网
注:转载请注明出处
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
on error resume next
'
Server.ScriptTimeout = 999999
'========================================================
'字符编码函数
'====================================================
Function BytesToBstr(body,code)
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 =code
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'取行字符串在另一字符串中的出现位置
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
'替换字符串函数
function ReplaceStr(ori,str1,str2)
ReplaceStr=replace(ori,str1,str2)
end function
'====================================================
function ReadXml(url,code,start,ends)
-
上一个: WEB表格导出为EXCEL文档的方法
-
下一个: 如何固定表格的标题行和标题列
相关文章
- asp For Next语句实例 10-14
- asp For Each语句实例 10-14
- asp do while与while语句实例 10-14
- asp 上一篇,下一篇文章实例代码 04-16
- asp For Next 循环语句语法与实例 03-03
- asp do while 循环语法与do while实例教程 03-03