转 Asp操作DTS进行代参数的数据导入导出
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之后才行。否则不成功！！！
源代码如下：
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<form action='rundts.asp' method=post>
servername:<input type=text name=servername value='MINT'><br>
usrname:<input type=text name=usrname value="sa"><br>
pwd:<input type=password name=pwd value="sa"><br>
conn:<input type=text name=DTSSQLStgFlag_Default2 value="0"><br>
dtsname:<input type=text name=dtsname value="export"><br>
id:<input type=text name=fl_id ><br>
<input type=submit value=ok></form>
<%
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&"<br>")
respo
相关文档：
此方法可以不需要专门制作模板文件，只需正常运行的动态页面即可，具体方法如下，最终使用见最后一个函数：
Function getHTTPPage(url) ‘首页生成开始
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http ......
一大早起来装IIS。现在终于装好了。十分感谢以下的博文，特转过来分享 :)
转至：http://blog.sina.com.cn/s/blog_50070c4c0100bkq6.html
每每装IIS，总会碰到这样那样的问题，从目前反应情况来看，IIS安装后可浏览HTML静态文件，却无法浏览asp为后缀的动态页面。
通过几次调试后，找到以下几种方法� ......
除非您以系统帐户的身份登陆到服务器（在浏览器环境中也是可以实现），或者主机端进行了良好的权限配置，否则本文涉及的功能是很难实现的。因为我们通过iis访问某个页面时，一般是iis匿名帐户的身份，在大多数情况下，asp的WScript.Shell是被禁用的，因为它有很大的安全隐患。
要想实现这种功能，首先要得到Rar� ......
asp防止网站挂马找安达互联
您还在担心网站被挂马、被黑吗？安达互联(www. ......
1. 用DSN连接并且没有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
2. 用实际的数据库绝对路径连接 ......
