ASP创建DSN的方法
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>ASP创建DSN</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<%
Set xObj = Server.CreateObject("Softwing.OdbcRegTool")
strDriver = "SQL Server"
strDSN = "DSN=New SQL Server Data Source" & vbNullChar
& "Description=New SQL Server Data Source" & vbNullChar
strDSN = strDSN & "Server=(local)" & vbNullChar
strDSN = strDSN & "DATABASE=pubs" & vbNullChar & vbNullChar
retval = xObj.CreateDSN(strDriver, strDSN)
If retval = True then
Response.Write "恭喜,DSN创建成功!"
else
Response.Write "出错啦,DSN 创建失败!"
%>
</BODY>
</HTML>