要创建一个ASP爬虫，你可以使用ASP内置的对象XMLHTTP或ServerXMLHTTP来发送HTTP请求，获取网页内容，然后使用ASP的内置对象HTMLFILE来解析HTML内容。以下是一个简单的ASP爬虫示例代码：

<%
' 初始化变量
Dim http
Dim url
Dim html
Dim doc' 设置要爬取的网页URL
url = "https://www.haodaima.cc"' 创建一个XMLHTTP对象
Set http = Server.CreateObject("MSXML2.ServerXMLHTTP")' 发送HTTP GET请求
http.open "GET", url, False
http.send ""' 获取网页内容
html = http.responseText' 释放XMLHTTP对象
Set http = Nothing' 创建一个HTMLFILE对象
Set doc = Server.CreateObject("HTMLFILE")' 加载网页内容到HTMLFILE对象
doc.body.innerHTML = html' 现在你可以使用doc对象来解析HTML了，例如获取所有的链接
Dim links
Set links = doc.getelementsbytagname("a")' 循环遍历所有链接并输出
For Each link In linksResponse.Write link.href & "<br />"
Next' 释放HTMLFILE对象
Set doc = Nothing
%>

请注意，这个代码只是一个简单的示例，实际的爬虫可能需要处理更多的情况，例如网络错误、JavaScript渲染的内容、Cookies管理、爬取策略、异步下载等。此外，爬虫应当遵守robots.txt协议，并在使用时尊重网站版权和隐私政策。