变态式的编程习惯
测试了一下，也不难～～～
采集对象页：http://www.hgtoday.com/js/news.htm
列表内容：document.write("<TABLE[列表内容]document.write("</table>")
列表URL：document.write("·<a href='[列表URL]' target=_blank><font color=#000000>
其他部分不用写出来了吧？
[此贴子已经被作者于2005-11-10 11:54:45编辑过]
老大,你有没有试过,我用你的方法试过还是不行!
[此贴子已经被作者于2005-11-10 19:05:45编辑过]
我也测试了一下，缺少有问题，
不过页面内容是读取下来了的，
就是取新闻列表的地方老取不出来～～～
怎么办，有谁帮帮看一下。
现在有空，又看了一下，需要修改一下程序，可以搞定：
打开collecting.asp,找到450行左右，
If InStr(ResponseAllStr,ListHeadSetting)>0 And InStr(ResponseAllStr,ListFootSetting) Then
NewsListStr = GetOtherContent(ResponseAllStr,ListHeadSetting,ListFootSetting)
Else
NewsListStr = ResponseAllStr
End If
修改为：
If ListHeadSetting="" Or ListFootSetting="" or ListHeadSetting="<body" Or ListFootSetting="</body>" Then
NewsListStr = ResponseAllStr
ElseIf InStr(ResponseAllStr,ListHeadSetting)>0 And InStr(ResponseAllStr,ListFootSetting) Then
NewsListStr = GetOtherContent(ResponseAllStr,ListHeadSetting,ListFootSetting)
Else
NewsListStr = ResponseAllStr
End If
把新闻列表内容清空，什么也不要设置
列表URL：·<a href='[列表URL]' target=_blank>
标题：<TITLE>[新闻标题]</TITLE>
内容：<table border='0'><tr><Td class='newstitle'>[新闻内容]</td></tr></table></td>
</tr>
<TR>
OK了，我测试成功！
你真是强！谢了先！
这一改会不会影响其它的采集？
这样的修改一下对其他采集不产生影响的，
并且其他采集也会更加好用，
为了同步，最好打开SiteThreeStep.asp,找到135行，
将：
Dim ResponseAllStr,NewsListStr
ResponseAllStr = GetPageContent(ObjURL)
*******************'此处省略***字
NewsListStr = Replace(Replace(NewsListStr,"""","%22"),"'","%27")
部分替换为：
Dim ResponseAllStr,NewsListStr
ResponseAllStr = GetPageContent(ObjURL)
If ListHeadSetting="" Or ListFootSetting="" or ListHeadSetting="<body" Or ListFootSetting="</body>" Then
NewsListStr = ResponseAllStr
ElseIf InStr(ResponseAllStr,ListHeadSetting)>0 And InStr(ResponseAllStr,ListFootSetting) Then
NewsListStr = GetOtherContent(ResponseAllStr,ListHeadSetting,ListFootSetting)
Else
NewsListStr = ResponseAllStr
End If
NewsListStr = Replace(Replace(NewsListStr,"""","%22"),"'","%27")
这样在向导里面也功能加强了。