初学MS SQL server问题 1 SQL server数据库能不能用ASP程序读取数据库呢? 2 我已经装了SQL server，如何搭建一个可以运行asp.net的环境呢？还要装那些东东？ 以上两个问题麻烦大虾指教一下，发个教程，或者给点提示都行的呀~~谢过。
ASP连接SQL示例 ======================= <% 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>