VS2005连接数据库的步骤

dim conn
dim connstr
connstr="Driver={SQL_ Server};server=XXX.XXX.XX.XXX;uid=fansking;pwd=r93sw82x;database=fansking"

set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
end if
end if

sub endConnection()
conn.close
set conn=nothing
end sub
function wordlength(str,size)

if len(str)>size then
response.write ""&left(str,size)&".."
else
response.write ""&str
end if
end function
%>

server=XXX.XXX.XX.XXX-----表示IP地址