怎么连接数据库.SQLSERVER2000

我是新手,做网页设计,想重数据库中提取一段数据.用ASP怎么连接数据库,谁能给段代码,要其全,直接写到HTML里面能用的,数据库里的数据取出来做为网页上的标题用,各位大哥帮帮忙,顺便把怎么设置环境也告诉我......谢谢

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!<a href="/javascript:history.go"(-1)>try again</a>":response.end
age=clng(age)
end if
'********************************************************************
' 与SQL Server2000有关的连接
' 可以参照它建立您的数据库连接
'********************************************************************
'敬请注意：
'请根据情况配置StrServer,StrUid,StrSapwd,StrDbName四个参数
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" '数据库服务器名
StrUid="testuser" '您的登录帐号
StrSaPwd="12345" '您的登录密码
StrDbName="db_test_com" '您的数据库名称Dim Conn '数据库连接
Dim StrDSN '数据库连接字符串
Dim Rs '命令字符串 StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和数据库master的连接
set Conn = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN
'********************************************************************
'********************************************************************
Dim strsql
'********************************************************************
' 读数据库的相关操作
sub readdb()
strsql="select * from test"
rs.open strsql,conn,1,1
if rs.EOF then response.write "no record at all":exit sub
response.write "<table border=1>"
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>"
next
response.write "</tr>"
while not rs.EOF
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td>"&rs.Fields(i).Value&"</td>"
next
response.write "</tr>"
rs.MoveNext
wend
response.write "</table>"
rs.Close
end sub
'********************************************************************
'********************************************************************
' 写数据库的相关操作
sub insertdata()
strsql="INSERT INTO test(name,age,addr) VALUES('"&name&"',"&age&",'"&addr&"')"
rs.Open strsql,conn,1,3
end sub
'********************************************************************if mode=1 then
call insertdata()
response.write "insert ok!"
elseif mode=2 then
call readdb()
end if
'释放数据库连接对象
set rs=nothing
set conn=nothing
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<script language=javascript>
function clickit(flag){
var form1=document.form2
form1.text4.value=flag;if (flag==1){
if (form1.text1.value==""){
alert("name cant empty!");
return false;
}
if (form1.text2.value==""){
alert("age cant empty!");
return false;
}
if (form1.text3.value==""){
alert("addr cant empty!");
return false;
} }
form1.submit();
return true;
}
</script>
</HEAD>
<BODY>
<form method=post name=form2>
name:<INPUT type="text" id=text1 name=text1 size=12>
age:<INPUT type="text" id=text2 name=text2 size=12>
city:<INPUT type="text" id=text3 name=text3 size=12><br>
<INPUT type="hidden" id=text4 name=text4>
<INPUT type="button" value="write" id=button1 name=button1 onclick="clickit(1)">
<INPUT type="button" value="read" id=button2 name=button2 onclick="clickit(2)">
</form>
</BODY>
</HTML>
from:http://blog.chinaitlab.com/user1/101132/archives/2006/41893.html
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={sql server};server=服务器IP;database=数据库名;uid=用户名;pwd=密码"
'读数据
    response.write "<div align=center><table width=95% border=0 id=table19 cellspacing=1><tbody>"
    rslist.open "select * from msg order by id desc",conn,1,1
    i=0
    do while not rslist.eof
    response.write "<tr><td align=left height=20 width=16><img border=0 src=rz/dian.gif></td>"
    response.write "<td align=left height=20><a href=newsview.asp?wp="&rslist("id")&" title="&rslist("bt")&">"&rslist("bt")&"</a></td>"
    response.write "</tr>"
    rslist.movenext
    i=i+1
    loop
    rslist.close
    response.write "</tbody></table></div>"
%>
补充一下
<%
set conn=server.createobject("adodb.connection")'连接
set rslist=server.createobject("adodb.recordest")'记录集
conn.open "driver={sql server};server=服务器IP;database=数据库名;uid=用户名;pwd=密码"
'读数据
    response.write "<div align=center><table width=95% border=0 id=table19 cellspacing=1><tbody>"
    rslist.open "select * from msg order by id desc",conn,1,1'打开记录
    do while not rslist.eof'循环显示
    response.write "<tr><td align=left height=20 width=16><img border=0 src=rz/dian.gif></td>"
    response.write "<td align=left height=20><a href=newsview.asp?wp="&rslist("id")&" title="&rslist("bt")&">"&rslist("bt")&"</a></td>"
    response.write "</tr>"
    rslist.movenext
    loop
    rslist.close
    response.write "</tbody></table></div>"
conn.close
set rsconn=nothing'释放对象
set rslist=nothing'释放对象
%>
应用程序中的服务器错误。
--------------------------------------------------------------------------------编译错误
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。编译器错误信息: CS1002: 应输入 ;源错误: 行 13： <table width="400" border="0" align="center" cellpadding="0" cellspacing="0" class="d1">
行 14： <%
/////出错行  行 15：  set conn=server.createobject("adodb.connection")
行 16：  set rslist=server.createobject("adodb.recordset")
行 17： conn.open "driver={sql server};server=XXWL-4;database=hello;uid=sa;pwd= "

请问这是怎么回事????
哈哈,好久不写ASP了,网上太多了,楼上的也是对的,随便挑一个吧