|
|
在模块中动网的这个web发布模块已经做的很好了,那么就是在入动网的过程中有需要注意的地方:
1.动网发帖的时候加了xhtml校验,所有采集到的代码必须符合xhml规范,否则将发表失败,在做模块测试的时候那个内容就是不符合xhtml校验的,所以在测试的时候会出现发布失败的情况,
解决办法:在采集的内容里面要加上两个替换,<br>→<br /> <hr>→<hr />,将那个测试内容中的<br>替换以后试下,是不是发布成功了
2.在采集过程中难免会遇到采集重复的现象,我采集的是163的内容,乖乖,每条都重复,动网发帖时又没有加是否重复的校验,真是忧人。
解决办法: 修改论坛程序,加入校验,然后变成如果重复主题那么将后来的内容做为前一个主题的回复内容。具体修改办法如下:
在SavePost.asp文件第836行做如下修改:
- SQL="insert into Dv_topic (Title,Boardid,PostUsername,PostUserid,DateAndTime,Expression,LastPost,LastPostTime,PostTable,locktopic,istop,TopicMode,isvote,PollID,Mode,GetMoney,UseTools,GetMoneyType,isSmsTopic,HideName) values ('"&topic&"',"&Dvbbs.boardid&",'"&username&"',"&Dvbbs.userid&",'"&DateTimeStr&"','"&Expression(0)&"|"&Expression(1)&"','$$"&DateTimeStr&"$$$$','"&MyLastPostTime&"','"&TotalUseTable&"',"&locktopic&","&Myistop&","&MyTopicMode&","&isvote&","&voteid&","&TopicMode&","&ToMoney&",'"&UseTools&"',"&GetMoneyType&","&isAlipayTopic&","&hidename&")"
- Dvbbs.Execute(sql)
复制代码
替换为:
-
- '修改部分,避免标题重复
- dim rsreg
- Set rsreg = server.CreateObject("adodb.recordset")
- rsreg.open "select * from [Dv_topic] where Title='" & topic & "'", conn, 1, 3
- If rsreg.EOF Then
- SQL="insert into Dv_topic (Title,Boardid,PostUsername,PostUserid,DateAndTime,Expression,LastPost,LastPostTime,PostTable,locktopic,istop,TopicMode,isvote,PollID,Mode,GetMoney,UseTools,GetMoneyType,isSmsTopic,HideName) values ('"&topic&"',"&Dvbbs.boardid&",'"&username&"',"&Dvbbs.userid&",'"&DateTimeStr&"','"&Expression(0)&"|"&Expression(1)&"','$$"&DateTimeStr&"$$$$','"&MyLastPostTime&"','"&TotalUseTable&"',"&locktopic&","&Myistop&","&MyTopicMode&","&isvote&","&voteid&","&TopicMode&","&ToMoney&",'"&UseTools&"',"&GetMoneyType&","&isAlipayTopic&","&hidename&")"
- Dvbbs.Execute(sql)
- End If
- rsreg.Close
- Set rsreg = Nothing
复制代码 |
评分
-
1
查看全部评分
-
|