从浏览器到数据库关系：
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"
<TITLEDocument 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
发送这篇文章的网址给朋
