游客:
注册
|
登录
|
帮助
网友俱乐部
»
数据库操作
»
MSSQL教程
» 将数据库中的数据通过client控件显示,有源代码
网友生活网
|
网友学堂
如何获得金币?
诚招斑竹
IP归属地查询 PR查询 收录查询 whois查询
免费超短2级域名,your.jpy.cc
传世私服
|
传奇世界私服
注册亚洲交友中心,找个人来同居吧!
免费存储空间,免费网络硬盘
‹‹ 上一主题
|
下一主题 ››
投票
交易
悬赏
活动
打印
|
推荐
|
订阅
|
收藏
标题: 将数据库中的数据通过client控件显示,有源代码
ljjk5
元帅
UID 46706
精华
1
积分 99426
帖子 49690
威望 554
金币 48489
热心 505
阅读权限 100
注册 2007-2-25
状态 离线
#1
使用道具
发表于 2007-7-4 17:23
资料
个人空间
主页
短消息
加为好友
将数据库中的数据通过client控件显示,有源代码
从浏览器到数据库关系:
browser
mschart control
javascript (client-side)
asp (server-side vbscript)
ado
odbc
dbms
==================
关键在于将 RS 内的内容赋给 client-side javascript.
source code:
==================
<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim oConn
Dim oRs
Dim curDir
Dim Index
Dim sqlstring
sqlstring = "select field from table"
' Create ADO Connection Component to connect
' with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=localserver;SERVER=(local);UID=sa;PWD=;DATABASE=pubs"
Set oRs = oConn.Execute(sqlstring)
%>
<script language=vbscript>
<% Response.Write "<!--" %>
Sub Window_onload()
Dim A
A = Array(<%
Do while (Not oRs.eof) %>
<% =Int(oRs(0))%>,<% oRs.MoveNext
Loop
%>0)
MSChart1.ChartType = 1
MSChart1.ChartData = A
End sub
<% Response.Write "-->" %>
</script>
<%
oRs.close
oConn.close
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<!-- Insert HTML here -->
<OBJECT ID="MSChart1" WIDTH=356 HEIGHT=268
CLASSID="CLSID:31291E80-728C-11CF-93D5-0020AF99504A" CODEBASE="msChart.cab#version=5.0.37.14">
</OBJECT>
</BODY>
</HTML>
网友
ljjk5
签名 - 网友社区
===
[广告]
免费域名(Free Subdomain)
免费空间(Free hosting)
PR查询(Google Pagerank)
投票
交易
悬赏
活动
控制面板首页
编辑个人资料
积分交易
公众用户组
好友列表
个人空间管理
基本概况
流量统计
客户软件
发帖量记录
论坛排行
主题排行
发帖排行
积分排行
在线时间
管理团队
管理统计
当前时区 GMT+8, 现在时间是 2008-10-12 17:34
信产部ICP备案:
京ICP备05066424号
北京市公安局网监备案:1101050648号
Powered by
Discuz!
5.5.0
TOP
清除 Cookies
-
联系我们
-
网友俱乐部
-
Archiver
-
WAP