- 中国开源CMS第一品牌海之鲲请进 - Powered by Discuz!NT Archiver

mygod - 2005-7-13 19:32:00

我用了你的那个生成“自由目录”插件。

基本上是改成功了，可现在有一个问题是就是路径和新闻文件物理路径不能删除呀。

就是我在后台是可以删除的。可它还在数据库里呀

海之鲲 - 2005-7-15 10:50:00

那个不是很完善，你删除新闻时估计只删除了数据库里的新闻，而磁盘上的路径估计是我忘了没有加进去吧，你可以下载完整版的，那个基本上没有太大的BUG了！

mygod - 2005-7-18 03:02:00

还是不行呀斑主，我用的就是你的那个完整版的呀

海之鲲 - 2005-7-18 11:55:00

？？？？？不可能吧！你下的什么时间的？

mygod - 2005-7-18 21:29:00

就是你最后一次发布的呀

mygod - 2005-7-18 21:30:00

你帮俺说说，倒底什么样才能删除物理路径的新闻呀

vanatom - 2005-7-18 22:08:00

海之鲲,顺便问一个问题，采集的时候怎么判断某个图片存在呢？

'==================================================
'过程名：SaveRemoteFile
'作用：保存远程的文件到本地
'参数：LocalFileName ------ 本地文件名
'参数：RemoteFileUrl ------ 远程文件URL
'==================================================
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
SaveRemoteFile=True
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
If .Readystate<>4 then
SaveRemoteFile=False
response.write("xxx")
Exit Function
End If
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end Function

这个代码好像有问题的，比如采集这个地址http://img1.soufun.com/bbs/2005_03/07/1110195420750.jpg

但是其网址为http://img1.soufun.com/bbs/2005_03/07/1110195420750.jpeg

才可以访问，采集第一个地址的时候就会遇到错误哦。多谢指教

海之鲲 - 2005-7-19 10:38:00

以下是引用mygod在2005-7-18 21:30:00的发言：
你帮俺说说，倒底什么样才能删除物理路径的新闻呀

请问有什么错误提示？我这里测试没有任何问题，或者联系我！

QQ：10438049

海之鲲 - 2005-7-19 10:40:00

以下是引用vanatom在2005-7-18 22:08:00的发言：

海之鲲,顺便问一个问题，采集的时候怎么判断某个图片存在呢？

'==================================================
'过程名：SaveRemoteFile
'作用：保存远程的文件到本地
'参数：LocalFileName ------ 本地文件名
'参数：RemoteFileUrl ------ 远程文件URL
'==================================================
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
SaveRemoteFile=True
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
If .Readystate<>4 then
SaveRemoteFile=False
response.write("xxx")
Exit Function
End If
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end Function

这个代码好像有问题的，比如采集这个地址http://img1.soufun.com/bbs/2005_03/07/1110195420750.jpg

但是其网址为http://img1.soufun.com/bbs/2005_03/07/1110195420750.jpeg

才可以访问，采集第一个地址的时候就会遇到错误哦。多谢指教

？？？？？？既然是错误的地址，你为什么还要采集？不明白！

allsky - 2005-7-25 13:41:00

以下是引用海之鲲在2005-7-19 10:38:00的发言：

请问有什么错误提示？我这里测试没有任何问题，或者联系我！

QQ：10438049

=海之鲲=真是好人那。

风讯官方论坛