使用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>
http://www.blueidea.com/tech/program/2003/907.asp
使用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>
