<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%response.ContentType ="application/vnd.ms-excel"
%>
<%
Set xlApplication = Server.CreateObject("Excel.Application") '调用excel对象
xlApplication.Visible = False '无需打开excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象
xlWorksheet.name="统计" '指定工作表名称
'指定列的宽度以及对齐方式
xlApplication.ActiveSheet.Columns(1).ColumnWidth=5
xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(2).ColumnWidth=40
xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(3).ColumnWidth=5
xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(4).ColumnWidth=15
xlApplication.ActiveSheet.Columns(4).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns ......
<!--#include file=common.asp-->
<%
'**********************************************
' code by asp导出excel通用
' 修改引用 by 子言(jastudio)
' qq:23638564 email:kpggdf@163.com
' web:www.gdsspt.com
'**********************************************
dim xibua
dim mysql
xibua = request.querystring("ids")
if xibua="all" then
mysql = "select * from singup"
else
mysql = "select * from singup where [系部]='"&xibua&"'"
end if
server.scripttimeout=100000 '处理时间较长，设置值应大一点
on error resume next
set objexcelapp = createobject("excel.application")
objexcelapp.displayalerts = false
objexcelapp.application.visible = false
objexcelapp.workbooks.add
set objexcelbook = objexcelapp.activeworkbook
set objexcelsheets = objexcelbook.worksheets
set objspreadsheet = objexcelbook.sheets(1)
dim objrs
set objrs = server.createobject("adodb.recordset")
objrs.open mysql,conn,1,3
if objrs.eof then
response.write("error")
respose.end
end if
dim objfield ......
ASP如何连接数据源？(系统DSN)中建立的数据源？
ASP怎么建立连接，不是OLEDB方式，用ODBC中的“用户DSN”建立的数据源进行连接？如何操作？
问题补充：我的是ODBC中的“用户DSN”不是“系统DSN”，“用户DSN”怎么连接？而且我的数据库有密码。
提问者：匿名
最佳答案
Set con=Server.CreateObject("ADODB.Connection")
con.Open "DSN=CommyDSN;UID=admin;Database=CommyManage"
'以上是DSN访问数据时,实例,DSN=CommyDSN中的值,必须与如下步骤中的设定名称一致
DSN设定数据源名称步骤
控制台-系统管理工具-资料来源(ODBC)-系统资料夹来源名称-
Microsof Access Driver(*.mdb)-完成-
这时看到资料来源名称(自己命名,记得在数据库连接资料中要一致哟)并选资料库的位置即可
......
ODBC数据源可分为“系统型”和“文件型”，他们的区别在于“系统型”是连接数据库的信息建立在“系统注册表”里，“文件型”则是以dsn文件形式存储在ODBC源的目录下面
一、建立ODBC数据源的方法：
控制面板 - 管理工具 - 数据源（ODBC）
打开ODBC数据源管理器，然后一步步按照需要建立“系统DSN”或者“文件DSN”
(建议把新建立的文件DSN保存在ODBC源的目录下面，便于连接)
二、MSSQL的数据库连接字符串写法：
1、通过oledb建立连接
conn.open ""Provider=SQLOLEDB;server=(SQL服务器名称或IP地址);database=数据库名称;uid=;pwd=""
2、通过driver建立连接
conn.open ""driver={sql server};server=(SQL服务器名称或IP地址);database=数据库名称;uid=;pwd=""
3、通过ODBC DSN建立连接
系统DSN连接
conn.open ""DSN=(系统DSN名称);Database=数据库名称;UID=;PWD=;""
文件DSN连接1
conn.open ""FileDSN=(文件DSN名称.dsn);Database=数据库名称;UID=;PWD=;""
例：conn.open ""FileDSN=test.dsn;Database=mytest;UID=test;PWD=1234;""
文件DSN连接2(安全性最高)
---和第一种方法类似,只� ......
ODBC数据源可分为“系统型”和“文件型”，他们的区别在于“系统型”是连接数据库的信息建立在“系统注册表”里，“文件型”则是以dsn文件形式存储在ODBC源的目录下面
一、建立ODBC数据源的方法：
控制面板 - 管理工具 - 数据源（ODBC）
打开ODBC数据源管理器，然后一步步按照需要建立“系统DSN”或者“文件DSN”
(建议把新建立的文件DSN保存在ODBC源的目录下面，便于连接)
二、MSSQL的数据库连接字符串写法：
1、通过oledb建立连接
conn.open ""Provider=SQLOLEDB;server=(SQL服务器名称或IP地址);database=数据库名称;uid=;pwd=""
2、通过driver建立连接
conn.open ""driver={sql server};server=(SQL服务器名称或IP地址);database=数据库名称;uid=;pwd=""
3、通过ODBC DSN建立连接
系统DSN连接
conn.open ""DSN=(系统DSN名称);Database=数据库名称;UID=;PWD=;""
文件DSN连接1
conn.open ""FileDSN=(文件DSN名称.dsn);Database=数据库名称;UID=;PWD=;""
例：conn.open ""FileDSN=test.dsn;Database=mytest;UID=test;PWD=1234;""
文件DSN连接2(安全性最高)
---和第一种方法类似,只� ......
首先，他们的运行机制不同。asp是属于一种解释型的框架！是解释执行的，是脚本。asp.net是编译型的！最终会编程二进制的机器代码。从这一点来说，asp.net执行效率上要比asp高！
其次，asp只允许使用js或者vbs。而asp.net则不一样，只要符合公共语言运行库规范的语言，都可以使用！从这一点上来说，asp在底层操作上较asp.net要困难点。比如：进行文件操作的时候！asp要借助其他语言编写的组件。
再者，asp.net要比asp简单！很多东西都封装好了，拿来用就是。代码也施行了分离，这就使得维护和重用更简单。
需要注意的是：虽然和js同为解释型的，但是asp是在服务器解释的！js是在浏览器上解释的。 ......
首先，他们的运行机制不同。asp是属于一种解释型的框架！是解释执行的，是脚本。asp.net是编译型的！最终会编程二进制的机器代码。从这一点来说，asp.net执行效率上要比asp高！
其次，asp只允许使用js或者vbs。而asp.net则不一样，只要符合公共语言运行库规范的语言，都可以使用！从这一点上来说，asp在底层操作上较asp.net要困难点。比如：进行文件操作的时候！asp要借助其他语言编写的组件。
再者，asp.net要比asp简单！很多东西都封装好了，拿来用就是。代码也施行了分离，这就使得维护和重用更简单。
需要注意的是：虽然和js同为解释型的，但是asp是在服务器解释的！js是在浏览器上解释的。 ......
asp连接access和mssql的万能代码：
'解决了ACCESS数据库路径的问题！
'采用DBType=0或DBType=1来区分AC库还是MSSQL库
'具体采用AC库时应注意的事项，请看程序说明
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0为Access数据库，1为MSSQL数据库
If(DBType=0) Then
'****************ACCESS数据库******************
Dim DbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData" '数据库所在文件夹名称
DbFolder_Path = Server.MapPath(DbFolderName) '数据库所在路径
SiteFolder="Article" '系统所在根目录名称
If Session("RootDir") = "" Then
Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
End if
Set Conn = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & "\"& DbFolderName & "\Data.mdb" '连接到数据库
Conn.Open StrConn
'*********************************************** ......
最新文章 : asp