关于CSDNExplorer（CSDN离线浏览器）答记者问！^^

[w18ily]

V0.1的源代码是开放的，谁需要的话我可以提供，以前的下载地址我不知道还能不能下载！
V0.2的源代码比较乱，我也没打算继续开发，不过大家需要那方面的代码，我可以拿出来给大家共享，不过V0.2的源代码我不会开放，因为网上有一个类似的收费软件，我不想因为我的开放源代码使该作者陷入尴尬境地，请大家谅解！

[txlicenhe]

谢谢楼主，先试试。

[txlicenhe]

因没有表结构，看来还有一段路要走啊。

[w18ily]

To txlicenhe(马可):你下载的CSDNExplorer里面有表的结构的，其实我是用的蓝蝶的数据库格式！！

数据结构是根据xsl文件写的，可以从csdn的xsl文件自己确定的~~

[pengdali]

CSDNSQL记者: 请问这套系统开发用了多长时间？作者为何选择开源？吃饭了吗？天气好吗？

[txlicenhe]

不好意思，刚才没没找到CSDNExplorer在哪里，现在正在下
是这个吧？（在VB版找到的）
http://jinesc.6600.org/myweb/update/2003720195649CSDNExplorer.rar

[w18ily]

时间比较长了，我也记不清了！！

这个软件做了大概有10天，发布的是V0.1版本！以后没再开放源代码是在网上看到一个叫mycsdn的收费软件，我想我不能再开源了，否则作者会难做的，我也没时间再写！就停手了！

[zjcxc]

谢谢楼主.

[zjcxc]

我准备改进V1.0版,做个功能更好的,不知道有没有有人愿意帮助我?

[w18ily]

TO zjcxc(邹建):呵呵~~

[w18ily]

导入CSDN的帖子到数据库！！


Public Function ImportNetT(ByVal strNetT As String, ByRef TopicId As String) As Boolean


On Error GoTo Error_ImportNetT
ImportNetT = False

Set xmldoc = New DOMDocument
xmldoc.async = False
'XMLDoc.validateOnParse = False
'If validation is not important, skip it

xmldoc.Load strNetT

If xmldoc.parseError.errorCode = 0 Then
If xmldoc.readyState = 4 Then
If ConstructXMLRS(xmldoc, TopicId) = False Then GoTo Error_ImportNetT
End If
Else
GoTo Error_ImportNetT
' MsgBox xmldoc.parseError.reason & vbCrLf & _
' xmldoc.parseError.Line & vbCrLf & _
' xmldoc.parseError.srcText
End If
ImportNetT = True
Exit Function

Error_ImportNetT:
ImportNetT = False
End Function
'导入数据

Public Function ConstructXMLRS(XMLFile As DOMDocument, ByRef TopicId As String) As Boolean
Dim XMLRoot As IXMLDOMElement
Dim XMLNode As IXMLDOMNode
Dim XMLChildNode As IXMLDOMNode
Dim XMLCurChildNode As IXMLDOMNode
Dim strSQL As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

On Error GoTo Error_ConstructXMLRS
ConstructXMLRS = False

conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open App.Path & "\DataBase\CsdnExplorer.mdb"

Set XMLRoot = XMLFile.documentElement

Set XMLNode = XMLRoot.selectSingleNode("Issue")
On Error Resume Next
rs.Open "Select * From Topics", conn, adOpenDynamic, adLockOptimistic, adCmdText
rs.AddNew
For Each XMLChildNode In XMLNode.childNodes
rs.Fields(XMLChildNode.nodeName).Value = XMLChildNode.Text
If XMLChildNode.nodeName = "TopicId" Then TopicId = XMLChildNode.Text
Next
rs.Fields("ReplyDateTime").Value = Now
rs.Update
rs.Close

rs.Open "Select * From Replys", conn, adOpenDynamic, adLockOptimistic, adCmdText

Set XMLNode = XMLRoot.selectSingleNode("Replys")

For Each XMLChildNode In XMLNode.childNodes
rs.AddNew
For Each XMLCurChildNode In XMLChildNode.childNodes
rs.Fields(XMLCurChildNode.nodeName).Value = XMLCurChildNode.Text
Next
rs.Update
Next
rs.Close
Set rs = Nothing
Set conn = Nothing
ConstructXMLRS = True
Exit Function

Error_ConstructXMLRS:
Set rs = Nothing
Set conn = Nothing
ConstructXMLRS = False
End Function

[w18ily]

我当时参考的帖子：
http://expert.csdn.net/Expert/topic/1408/1408298.xml?temp=.8890039