轉 Asp操作DTS進行代引數的資料匯入匯出

2021-05-10 12:19:04 字數 2540 閱讀 5858

asp操作dts進行代引數的資料匯入匯出

年前接了乙個小專案,其中一部分是將sql中的資料進行有選擇的匯出到乙個mdb中。

這些是完全可以通過asp得sql語句進行操作的,但是還是想把主要匯出的任務交給sql server去做,asp主要是調動這個程式而已。

想到以前做過的東西,覺得實現起來並不難,只是乙個引數的問題。

開始實現:

先做乙個dts,連線好資料來源,新增乙個資料匯出任務,將資料匯出到access中。

然後呼叫asp啟動dts,測試成功。

重點問題是如何在asp中輸入引數,傳遞到dts中。

開始去想如何直接輸入引數給dts。可以使用全域性變數。

新增乙個全域性變數在資料轉換任務中使用帶有引數的查詢。

select *

from fenlei

where ( fl_id < ?)

這樣可以有乙個引數使用。那麼引數如何賦值?

關鍵是這幾個語句

set objglobal = objdtspackage.globalvariables

objdtspackage.loadfromsqlserver servername, usrname, pwd, dtssqlstgflag_default2, "", "", "", dtsname

objdtspackage.globalvariables("fl_id").value = fl_id

objdtspackage.execute

而且一定要注意,引數的賦值一定要在loadfromsqlserver之後才行。否則不成功!!!

源**如下:

<%

dtsname=request.form("dtsname")

usrname=request.form("usrname")

servername=request.form("servername")

pwd=request.form("pwd")

fl_id=request.form("fl_id")

dtssqlstgflag_default2=request.form("dtssqlstgflag_default2")

if dtsname="" or dtssqlstgflag_default2="" or usrname="" or servername="" or pwd="" then

response.write("error")

response.end

else

response.write("dtsname:"&dtsname&"

")response.write("usrname:"&usrname&"

")response.write("servername:"&servername&"

")response.write("dtssqlstgflag_default2:"&dtssqlstgflag_default2&"

")dim objdtspackage

dim objdtsstep

dim strresult

dim blnsucceeded

const dtssqlstgflag_default = 0

const dtsstepexecresult_failure = 1

set objdtspackage = server.createobject("dts.package")

blnsucceeded = true

'objdtspackage.dtsglobalvariables("fl_id").value = 10

set objglobal = objdtspackage.globalvariables

objdtspackage.loadfromsqlserver servername, usrname, pwd, dtssqlstgflag_default2, "", "", "", dtsname

objdtspackage.globalvariables("fl_id").value = fl_id

objdtspackage.execute

for each objdtsstep in objdtspackage.steps

if objdtsstep.executionresult = dtsstepexecresult_failure then

strresult = strresult & "package " & objdtsstep.name & " failed.

" blnsucceeded = false

else

strresult = strresult & "package " & objdtsstep.name & " succeeded.

" end if

next

if blnsucceeded then

response.write ""

else

response.write ""

end if

response.write strresult

end if

%>

轉 ASP採集 ASP採集程式原理

轉自 採集程式的主要步驟如下 一 獲取被採集的頁面的內容 二 從獲取 中提取所有用的資料 一 獲取被採集的頁面的內容 我目前所掌握的asp常用獲取被採集的頁面的內容方法 1 用serverxmlhttp元件獲取資料 以下內容為程式 以下為引用的內容 function getbody weburl 建...

ASP 全新接觸(4) 轉

2000 10 31 趙于 esky 4.其他 包括intrinsic controls,以及我們渴望已久的sendmail元件,加 解密元件,可以自定義的執行表現記數器,可以讀寫nt日誌的元件,網路訪問元件。等等。四.asp 的最終版本 很顯然,預覽版的 asp 與執行時框架還不是十全十美的。雖然...

ASP操作檔案

例項一 寫入檔案 語法 object.copyfile 複製路經 貼上路經 如存在,是否替代 set fs server.createobject scripting.filesystemobject fs.copyfile d ss.txt e bb.txt true 用fs的copyfile方法...