我试图找到一个教程或片段来帮助我开始连接到我们的数据库并使用VBScript下载内容。我有以下代码,似乎有效:
<%@ Language=VBScript CODEPAGE=65001 %>
<% Option Explicit %>
<%response.Buffer=true%>
<!-- #include file="connect.asp" -->
之后,我找到了1个代码示例,但是当我尝试运行它时,我得到500错误。老实说,我甚至不太确定这种语法的作用。任何帮助都有助于解释这一点。
<%
sql = "select *"
set resultset = connect.Execute(sql)
Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="c:\exportDB.csv"
Set objFile = objFSO.CreateTextFile(outFile,True)
Dim row, first_field
while not resultset.EOF
row = ""
first_field = true
For Each field In resultset.Fields
if (first_field = true) then
row = field
first_field = false
else
row = row & ";" & field
end if
Next ' field
objFile.Write row & vbCrLf
resultset.MoveNext
wend
objFile.Close
%>
**修订 看来我们的开发服务器已经关闭了功能,这不允许我运行这些代码块和其他一些代码块。现在纠正了这一切,一切都按预期运行。