asp采集程序
	
    
    
	<% 
Function getHTTPPage(url)  
On Error Resume Next  
dim http  
set http=Server.createobject("Microsoft.XMLHTTP")  
Http.open "GET",url,false  
Http.send()  
if Http.readystate<>4 then  
exit function  
end if  
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")  
set http=nothing  
If Err.number<>0 then  
Response.Write "<p align=’center’><font color=’red’><b>服务器获取文件内容出错</b></font></p>"  
Err.Clear  
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  
'截取字符串,1.包括起始和终止字符,2.不包括  
Function strCut(strContent,StartStr,EndStr,CutType)  
Dim strHtml,S1,S2  
strHtml = strContent  
On Error Resume Next  
Select Case CutType  
Case 1  
S1 = InStr(strHtml,StartStr)  
S2 = InStr(S1,strHtml,EndStr)+Len(EndStr)  
Case 2  
S1 = InStr(strHtml,StartStr)+Len(StartStr)  
S2 = InStr(S1,strHtml,EndStr)  
End Select  
If Err Then  
strCute = "<p align=’center’>没有找到需要的内容。</p>"  
Err.Clear  
Exit Function  
Else  
strCut = Mid(strHtml,S1,S2-S1)  
End If  
End Function   
'功能:asp采集代码  
'作者:wangsdong  
'备注:支持原创程序,请保留此信息,谢谢  
url="http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"  
str=getHTTPPage(url)  
title=strcut(str,"<h1 id=""artibodyTitle"" style=""color:#03005C;"">","</h1>",2)  
content=strcut(str,"<!-- 正文内容 begin -->","<!-- 正文内容 end -->",2)  
response.write "新闻标题<br><b>"&title&"</b><br><br><br>新闻内容:<br>"&content  
%>
    
     
	
	
    
    
	相关文档:
        
    
    <%@ Language=VBScript %>
<SCRIPT id=DebugDirectives runat=server language=javascript>
// Set these to true to enable debugging or tracing
@set @debug=false
@set @trace=false
</SCRIPT>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
< ......
	
    
        
    
    <input name="total" type="text" value="<%=webcounter%>" size="12" onbeforepaste="clipboarddata.setdata('text',clipboarddata.getdata('text').replace(/[^\d]/g,''))"
   onkeydown="subOnKeyDown()"
   onkeyup="value=value.replace(/[^\d]/g,'')"/>
使用后 如果输入为非数字  ......
	
    
        
    
    <%
    dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
   if session("agai ......
	
    
        
    
    最简单的做法是在页面的<head></head>标签中加入以下代码:
<meta http-equiv="Refresh" content="10;url='xxx.asp'">
这样就会在页面打开后10秒钟跳转到xxx.asp了。
也可以用javascript的settimeout来完成,在页面中加入以下代码:
<script language=javascript> 
var the_timeout = setTime ......