|
|
将数据库中的数据通过 client 控件显示 (一个asp和javascript传参数的列子) |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
从浏览器到数据库关系: 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>

|
|
相关文章:相关软件: |
|