欢迎光临

木子屋

标题: 动网风格分析助手

作者: 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 1.148 ms

返回

标题: 动网风格分析助手

你没有权限发表评论

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

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.148 ms

返回

暂无评论

返回

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

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.180 ms

返回