顶一下.收集...准备搞教程...

还是发表不了,????????

......将其改一个名字，例如 locoy_savepost.asp 然后用记事本打开 locoy_savepost.asp 查找 Public Sub Save_CheckData() 将它下面的 '注释掉，方便采集后发布 'Chk_Post()

——————————————————————————————————

'检查数据,提取数据，获得贴子数据表名等。
        Public Sub Save_CheckData()
                Chk_Post()
                CheckfromScript()
                '把提交的数据保存到session
                Content = CheckAlipay()
                isAlipayTopic = 2
                If Content = "" Then
                        Content = Dvbbs.Checkstr(Request.Form("body"))
                        isAlipayTopic = 0
                End If
                If InStr(Content,"[/payto]") > 0 And InStr(Content,"[payto]") > 0 And InStr(Content,"(/seller)") > 0 And InStr(Content,"(seller)") > 0 Then isAlipayTopic = 2
                Dvbbs.UserSession.documentElement.selectSingleNode("userinfo").attributes.setNamedItem(Dvbbs.UserSession.createNode(2,"postdata","")).text= Request.Form("body")
                If Dvbbs.Board_Setting(4) = "1" Then
                        If Not Dvbbs.CodeIsTrue() Then
                                 Response.redirect "showerr.asp?ErrCodes=<li>验证码校验失败，2秒后自动返回上一页面。&action=OtherErr&autoreload=1"
                        End If
                End If
                Chk_PostType()



1没有看明白，哪个地方算是注释啊？
2改名字后还和以前的文件都放在里面吗？

希望得到您的帮助，感激~~

引用:

原帖由 3kmm 于 2006-4-21 11:25 发表<br>
......将其改一个名字，例如 locoy_savepost.asp 然后用记事本打开 locoy_savepost.asp 查找 Public Sub Save_CheckData() 将它下面的 '注释掉，方便采集后发布 'Chk_Post() <br>
<br>
———————————————— ...

<br>
<br>
原来savepost.asp中的语句是：<br>
……<br>
Public Sub Save_CheckData() <br>
Chk_Post()<br>
……<br>
<br>
在Chk_Post()前加个单撇号变成如下即可：<br>
……<br>
Public Sub Save_CheckData() <br>
'Chk_Post()<br>
……<br>
<br>
其实把Chk_Post()删除掉也行的！<br>

立刻照着做，感激中~~~

一点看不懂，太复杂了。。。

我试过后,发表权限问题,还是没有解决!

我不知道您是怎么操作的，至少接触过的人都是成功了的，你有没有建完模块后关掉火车重进啊。

我试过你这种办法，把save的文件做了修改，发贴的成功率在85%左右（本地ACCESS测试）。

将发现时间设在12000ms,单线程,可采集到80%左右,不知哪位还有更好的经验,请放出过共享一下,谢谢!