ASP連接sql server實例解析

1、首先確定自己的iis沒有問題

2、其次確定自己sqlserver沒有問題

 

然后在iis的文件夾wwwroot里，建立一個文件 名為testSqlServer.asp，編寫代碼例如以下就可以

<% 'ole db連接 set cnn1 = Server.CreateObject("ADODB.Connection") '連接串需要注意sqlserver的實例名，是否是默認，非默認必需要寫出來 cnn1.Open "provider=sqloledb;data source=./sqlexpress;initial catalog=master;user id=sa;password=000000;" sql = "select * from master..spt_values" set rs= Server.CreateObject("ADODB.RecordSet") rs.Open sql,cnn1 ,1,1 '獲得連接信息與查詢結果行數 Response.write("連接1："&cnn1.ConnectionString&"<br/> spt_values行數："&rs.recordcount&"<br/><br/>") '循環結果輸出 do While not rs.eof Response.write(rs(0)&","&rs(1)&","&rs(2)&","&rs(3)&","&rs(4)&"<br/>") rs.MoveNext Loop rs.close() cnn1.close() %> <% 'odbc連接 set cnn2 = Server.CreateObject("ADODB.Connection") cnn2.Open "Driver={SQL Server};Server=./sqlexpress;Database=master;UID=sa;PWD=000000;" sql = "select * from master..spt_values" set rs= Server.CreateObject("ADODB.RecordSet") rs.Open sql,cnn2 ,1,1 Response.write("連接2："&cnn2.ConnectionString&"<br/> spt_values行數："&rs.recordcount&"<br/>") do While not rs.eof Response.write(rs(0)&","&rs(1)&","&rs(2)&","&rs(3)&","&rs(4)&"<br/>") rs.MoveNext Loop rs.close() cnn2.close() %>

 

在ie地址輸入http://localhost/testsqlserver.asp，就可以看到例如以下結果

連接1：Provider=SQLOLEDB.1;Password=000000;User ID=sa;Initial Catalog=master;Data Source=./sqlexpress;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=PC-201003062254;Use Encryption for Data=False;Tag with column collation when possible=False spt_values行數：2346 rpc,1,A ,, pub,2,A ,, sub,4,A ,, dist,8,A ,, dpub,16,A ,, rpc out,64,A ,, data access,128,A ,, collation compatible,256,A ,, system,512,A ,, use remote collation,1024,A ,, lazy schema validation,2048,A ,, 。。。。。。。。。。。。。。。 serial writes,32,V ,, read only,4096,V ,0,1 deferred,8192,V ,0,1 連接2：Provider=MSDASQL.1;Extended Properties="DRIVER=SQL Server;SERVER=./sqlexpress;UID=sa;PWD=000000;APP=Microsoft? Windows? Operating System;WSID=PC-201003062254;DATABASE=master" spt_values行數：2346 rpc,1,A ,, pub,2,A ,, sub,4,A ,, dist,8,A ,, dpub,16,A ,, rpc out,64,A ,, data access,128,A ,, collation compatible,256,A ,, system,512,A ,, use remote collation,1024,A ,, lazy schema validation,2048,A ,, 。。。。。

 

非常easy吧，你也去試試吧，事實上編碼都是非常簡單的事情。

 

 

補充，調用存儲過程

<% 'ole db連接 set Conn= Server.CreateObject("ADODB.Connection") '連接串需要注意sqlserver的實例名，是否是默認，非默認必需要寫出來 Conn.Open "provider=sqloledb;data source=192.168.1.101;initial catalog=master;user id=sa;password=000000;" %> <% Const adInteger= 3 Const adVarChar= 200 Const adParamInput= 1 Const adParamOutput= 2 Const adCmdSPStoredProc = 4 Set adoComm = CreateObject("ADODB.Command") With adoComm .ActiveConnection = Conn .CommandType = adCmdSPStoredProc .Prepared = true .CommandText = "sp_checklogin" .Parameters.append .CreateParameter("@userid",adVarChar,1,6,"NO001") '參數名，參數類型，輸入輸出類型，長度，值 .Parameters.append .CreateParameter("@flag",adInteger,2) '返回參數,返回總記錄數,數據長度能夠省略. .execute End With flag = adoComm(1) Set adoComm = Nothing response.write "運行本程序后，存儲過程返回值Flag："&flag&"<br>" if flag=0 then response.write "提示：成功登錄！（該帳戶今天第一次登錄）" else response.write "提示：該帳號已有人登錄，不可再登錄" end if %> <% sql = "select * from master..spt_values" set rs= Server.CreateObject("ADODB.RecordSet") rs.Open sql,Conn ,1,1 '獲得連接信息與查詢結果行數 Response.write("連接1："&Conn.ConnectionString&"<br/> spt_values行數："&rs.recordcount&"<br/><br/>") '循環結果輸出 do While not rs.eof Response.write(rs(0)&","&rs(1)&","&rs(2)&","&rs(3)&","&rs(4)&"<br/>") rs.MoveNext Loop rs.close() 'Conn.close() %>

 

 

SQL存儲步驟例如以下：
CREATE procedure sp_checklogin 
@userid varchar(6) , -- 操作帳號
@flag int out -- 輸出參數 0:沒有登錄 1:已經登錄
as
declare @sql nvarchar(100)
IF object_id('tempdb.dbo.##'+@userid) is null
  begin
  set @sql='create table ##'+@userid+'( userid varchar(6))'
  exec(@sql);
  set @flag = 0
  end
Else
set @flag = 1
GO