2005年3月10日
剔除HTML文档的HTML标记，转换为纯文本
摘要： 将文章用文本格式保存，而不是直接使用HTML存储，这样的话会节约数据库空间． 于是写了这么个函数来将文本中的HTML标记剔除 函数虽然简单，但是对处理HTML文档还是很有效的 objRegExp.Pattern="" '进行匹配 SetMatches=objRegExp.Execute(strHTML) '遍历匹配集合，并替换掉... 阅读全文
posted @ 2005-03-10 18:32 阿泰 阅读(1089) 评论(0) 推荐(0) 编辑
显示ASP页面的代码
摘要： HTML/ASP Source Code: "" Then Set objFSO = CreateObject("Scripting.FileSystemObject") '判断文件是否存在 If objFSO.FileExists(Server.MapPath(strFileName))=False Then Response.Write "文件不存在"... 阅读全文
posted @ 2005-03-10 17:21 阿泰 阅读(816) 评论(1) 推荐(0) 编辑
XMLHTTP抓取数据时乱码问题解决
摘要： 内码问题. 用这段代码的吧,我已经改得很精简了. '使用XMLHTTP抓取地址并进次内容处理 FunctionGetBody(Url) DimobjXML OnErrorResumeNext SetobjXML=CreateObject("Microsoft.XMLHTTP") WithobjXML ... 阅读全文
posted @ 2005-03-10 17:17 阿泰 阅读(773) 评论(1) 推荐(0) 编辑
XMLHTTP批量抓取远程资料
摘要： AUTOGET Long->KeepIDOfthepages 'UContent->Text->KeepContentOfthePages(HTML) '================================================= Server.ScriptTimeout=5000 ... 阅读全文
posted @ 2005-03-10 17:01 阿泰 阅读(878) 评论(1) 推荐(0) 编辑
Bye Bye,CSDN Blog & Join CNBlogs
摘要： 一直在看博客园和博客堂的东西，很多时候充满了艳羡。 因为平时并没有实际的做.Net的东西，所以一直惶恐地不敢注册 最近倒是实在忍受不了CSDN BLOG频繁崩溃的鸟气，于是选择了离开。 非常高兴博客园这么快就批准了(不知道是不是用了邮件的自动回复功能 ^_^) 希望在博客园这个技术氛围浓厚的大家庭里，视野更开阔些，技能提高些 同时也希望尽微薄之力，给大家贡献点入眼的东西 最... 阅读全文
posted @ 2005-03-10 15:39 阿泰 阅读(872) 评论(3) 推荐(0) 编辑