网页连接数据库(sql server 2008)代码
使用VBScript连接数据库
<%@language=vbscript%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
response.write("Hello World!")
%>
<%
odbc连接
set cnn2 = Server.CreateObject("ADODB.Connection")
cnn2.Open "Driver={SQL Server};Server=XP-201105250849;Database=DataMon;UID=cgz;PWD=cgz123;"
If Err Then
Err.Clear
Response.Write "对不起，数据连接错误！"
Response.End
End If
sql = "select * from Cage_Info"
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()
%>
</body>
</html>
使用Javascript连接数据库
<html> <head> <title>表格显示数据表记录</title> </head> <body> <h2>表格显示数据表记录</h2> <hr> <script language="JavaScript"> var objdbConn = new ActiveXObject("ADODB.Connection"); var strdsn = "Driver={SQL Server};SERVER=XP-201105250849;UID=cgz;PWD=cgz123;DATABASE=DataMon"; objdbConn.Open(strdsn); var objrs = objdbConn.Execute("Select * from Cage_Info;"); var fdCount = objrs.Fields.Count - 1; if (!objrs.EOF){ document.write("<table border=1><tr>"); for (var i=0; i <= fdCount; i++) document.write("<td><b>" + objrs.Fields(i).Name + "</b></td>"); document.write("</tr>"); while (!objrs.EOF){ document.write("<tr>"); for (i=0; i <= fdCount; i++) document.write("<td valign=top>" + objrs.Fields(i).Value + "</td>"); document.write("</tr>"); objrs.moveNext(); // 移到下一个记录点 } document.write("</table>"); } else document.write("数据库内没有记录!<br>"); objrs.Close(); // 关闭记录集和 objdbConn.Close(); // 关闭数据库链接 </script> </body> </html>
