网页连接数据库(sql server 2008)代码

最新推荐文章于 2023-05-18 10:50:13 发布

cgzhello1

最新推荐文章于 2023-05-18 10:50:13 发布

阅读量4.9k

点赞数

分类专栏：数据库 web 文章标签： sql server asp vbscript database sql server

本文链接：https://blog.csdn.net/cgzhello1/article/details/8063747

版权

数据库同时被 2 个专栏收录

6 篇文章 1 订阅

订阅专栏

web

4 篇文章 0 订阅

订阅专栏

使用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>

cgzhello1

关注

0
点赞
踩
10

收藏

觉得还不错? 一键收藏
0
评论
网页连接数据库(sql server 2008)代码

使用VBScript连接数据库无标题文档response.write("Hello World!")%>'odbc连接 set cnn2 = Server.CreateObject("ADODB.Connection") cnn2.Open "Driver={SQL Server};Server=XP-201105250849;
复制链接

扫一扫