bigeagle 于 2000-11-9 10:47:22 加贴在 Joy ASP ↑：

<%

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 Creation successful."

else

Response.Write "DSN Creation failed."

%>