日期:2011-05-02 15:22:00 来源:本站整理
将数据库中的数据通过client控件显示,有源代码[MSSQL防范]
本文“将数据库中的数据通过client控件显示,有源代码[MSSQL防范]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:
从浏览器到数据库关系:
browser
mschart control
&106avascript (client-side)
ASP (server-side VBscript)
ado
odbc
dbms
==================
关键在于将 RS 内的内容赋给 client-side &106avascript.
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>&nbs
以上是“将数据库中的数据通过client控件显示,有源代码[MSSQL防范]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
本文地址: | 与您的QQ/BBS好友分享! |
评论内容只代表网友观点,与本站立场无关!
评论摘要(共 0 条,得分 0 分,平均 0 分)
查看完整评论