标题: 将数据库中的数据通过client控件显示,有源代码
ljjk5
元帅
Rank: 1


荣誉会员奖章
UID 46706
精华 1
积分 99426
帖子 49690
威望 554
金币 48489
热心 505
阅读权限 100
注册 2007-2-25
状态 离线
将数据库中的数据通过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
清除 Cookies - 联系我们 - 网友俱乐部 - Archiver - WAP