木子屋
 

标题: 动网风格分析助手

作者: dnawo

日期: 2007-06-08 08:37 AM

分类: 程序修改

内容: 一、rstotxt.asp：
复制内容到剪贴板 程序代码<%
Dim objConn,objRs,objFSO,objTS
Dim i
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.RecordSet")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objConn.connectionstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("Dvbbs7.mdb")
objConn.open
objRs.open "select * from Dv_Style where id=1",objConn,1,3
If not objRs.eof Then
    For i = 0 to objRs.fields.count-1
        'If objRs(i).name="Main_Style" Then '导出指定字段
            Set objTS = objFSO.CreateTextFile(Server.MapPath(objRs(i).name & ".txt"))
            objTS.write objRs(i).value
            objTS.close
            Set objTS = nothing
        'End if
    Next
End if
Set objFSO = nothing
objRs.close
Set objRs =nothing
objConn.close
Set objConn = nothing
%>
以各字段名做文件名，并将其内容分别保存于txt文件中，当然，也可保存成htm文件。
二、rstofolder.asp：
复制内容到剪贴板 程序代码<%
Dim objConn,objRs,objFSO,objTS
Dim i,j,strTemp,arrTemp
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.RecordSet")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objConn.connectionstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("Dvbbs7.mdb")
objConn.open
objRs.open "select * from Dv_Style where id=1",objConn,1,3
If not objRs.eof Then
    For i = 0 to objRs.fields.count-1
        'If objRs(i).name="page_index" Then '导出指定字段
            strTemp = Server.MapPath(".") & "\" & objRs(i).name
            objFSO.CreateFolder(strTemp)
            arrTemp = split(objRs(i).value,"|||")
            For j=LBound(arrTemp) to UBound(arrTemp)
                Set objTS = objFSO.CreateTextFile(strTemp & "\" & j & ".txt")
                objTS.write arrTemp(j)
                objTS.close
                Set objTS = nothing
            Next
        'End if
    Next
End if
Set objFSO = nothing
objRs.close
Set objRs =nothing
objConn.close
Set objConn = nothing
%>
以各字段名为文件夹名，并将字段内容以"|||"为分割点分别保存于txt文件中，也可保存为htm文件。

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.049 ms

标题: 动网风格分析助手

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.049 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.049 ms