将数据库中的数据通过 client 控件显示 (一个asp和javascript传参数的列子)




从浏览器到数据库关系:
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>




  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值