ASP,图形显示问题(200分)

  • 主题发起人 主题发起人 cxx1997
  • 开始时间 开始时间
C

cxx1997

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在前台生成图形(曲线图,饼图),数据库为SQL SERVER
主管建议用JAVA APPLET或者ACTIVEX控件
请问:一:如何实现 实现的技术,实现的方式等
二:能否给个简单的例子
三:如果使用ACTIVEX控件,客户端需要怎样的配置?
本人对ASP等网页技术都不熟悉,还请各位指教。
 
用ActiveX!可以从HTML(ASP),中直接调用,同时也可以直接应用到应用程序中
 
在Asp中用ActiveX
 
使用ActiveX,用asp写界面(调用.dll)。asp程序在服务器上运行,客户
端只要有ie就可以了,当ie初次访问服务器时,自动下载ActiveX控件到客户端
,然后在客户端运行。
ActiveX控件可以用vc,delphi,vb等开发。
在此特此更正我先前的错误说法,希望各位指教!


 
我们主管希望将数据送到客户端,由客户端来生成分析图
 
office里的office web component很好,可在可以客户端、服务端两用.
 

如果采用asp,则你应当是用B/S模式,所有的程序在服务器上运行,客户端得到的是
结果;
但是你用asp,则客户端无需再开发其它的程序。省事的多哦
 
QQ:2874105
做过很多,不用说了
 

<HTML><HEAD><TITLE>宝鸡电力</TITLE>
<META content="text/html;
charset=gb2312" http-equiv=Content-Type>
<META content=中国.陕西.宝鸡供电局 name=Description>
<META content=Designer:fpsky name=冯小强 Date=2001年5月22日>
<link REL="SHORTCUT ICON" href="http://bjgd/favicon.ico">
<STYLE type=text/css>
BODY{FONT-FAMILY: 宋体;
FONT-SIZE: 9pt;}
INPUT.buttonface {
BACKGROUND: #ff9900;
BORDER-BOTTOM: black 1px solid;
BORDER-LEFT: black 1px solid;
BORDER-RIGHT: black 1px solid;
BORDER-TOP: black 1px solid;
COLOR: #ffffff;
FONT-SIZE: 9pt;
FONT-STYLE: normal;
FONT-VARIANT: normal;
FONT-WEIGHT: normal;
HEIGHT: 18px;
LINE-HEIGHT: normal
}
INPUT.smallInput {
BORDER-BOTTOM: black 1px solid;
BORDER-LEFT: black 1px solid;
BORDER-RIGHT: black 1px solid;
BORDER-TOP: black 1px solid;
FONT-SIZE: 9pt;
FONT-STYLE: normal;
FONT-VARIANT: normal;
FONT-WEIGHT: normal;
HEIGHT: 18px;
LINE-HEIGHT: normal
}
P {
FONT-SIZE: 9pt
}
TD {
FONT-SIZE: 9pt;COLOR: #000000
}
.fxq-1 {
FONT-SIZE: 7pt;COLOR: #000000
}
SELECT {
FONT-SIZE: 9pt
}
.f1 {BORDER-BOTTOM: 1px inset;
BORDER-LEFT: 1px inset;
BORDER-RIGHT: 1px inset;
BORDER-TOP: 1px inset;
VERTICAL-ALIGN: text-bottom;
height: 14pt;
font-size: 12px}
.f2 {BACKGROUND-COLOR: #cccccc;
BORDER-BOTTOM: 1px ridge;
BORDER-LEFT: #ffffff 1px ridge;
BORDER-RIGHT: 1px ridge;
BORDER-TOP: #ffffff 1px ridge;
height: 14pt;
font-size: 12px}
.f3 {BORDER-BOTTOM: 1px inset;
BORDER-LEFT: 1px inset;
BORDER-RIGHT: 1px inset;
BORDER-TOP: 1px inset;
VERTICAL-ALIGN: text-bottom;
height: 83pt;
font-size: 12px}
A {
COLOR: #000000;
FONT-SIZE: 9pt;
TEXT-DECORATION: none
}
A:hover {
COLOR: #003300;
TEXT-DECORATION: underline
}
.hh A {
COLOR: #ffffff;
FONT-SIZE: 9pt;
TEXT-DECORATION: none
}
.hh A:hover {
COLOR: #99cc99;
TEXT-DECORATION: none
}
.dt TD {
COLOR: #006600
}
.dt A {
COLOR: #ff0000;
FONT-SIZE: 9pt;
TEXT-DECORATION: none
}
.at A {
COLOR: #0000ff;
FONT-SIZE: 9pt;
TEXT-DECORATION: none
}
.dt A:hover {
COLOR: #000000;
TEXT-DECORATION: none
}
.form {
BACKGROUND-COLOR: #f7fff7;
BORDER-BOTTOM: #438743 1px solid;
BORDER-LEFT: #438743 1px solid;
BORDER-RIGHT: #438743 1px solid;
BORDER-TOP: #438743 1px solid;
COLOR: #000000;
FONT-SIZE: 9pt
}
.fxq {border-left: 1 solid #9CC384;
border-right: 1 solid #9CC384;
border-bottom: 1 solid #9CC384"}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 text=#000000 topMargin=2 >
<table align=center bgcolor=#9cc384 border=0 cellpadding=0 cellspacing=0
width=770>
<tbody>
<tr>
<td rowspan=4 width=290><img alt=宝鸡供电局 height=90
src="image_f/title.gif" width=290></td>
<td background=image_f/t1.gif bgcolor=#CCCCCC height=19
width=480>
<div align=right></div>
</td>
<td bgcolor=#ffffff rowspan=4 valign=bottom width=10><img height=71
src="image_f/t2.gif" width=9></td>
</tr>
<tr>
<td height=6 width=480 bgcolor="#2286DC"></td>
</tr>
<tr>
<td height=58 width=480 bgcolor="#2286DC"><% randomize
tempic=((3-1)+1)*Rnd+1
response.write "<img height=58 width=465 src=bj_banner/banner" &amp;
left(cstr(tempic),1) &amp;
".gif >"
%> </td>
</tr>
<tr>
<td height=2 width=480 bgcolor="#2286DC"></td>
</tr>
</tbody>
</table>
<div align="center">
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="left">
<p align="left"><img border="0" src="image_f/banner2.jpg"></p>
</td>
</tr>
</table>
</div>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
width=770>
<TBODY>
<TR>
<TD bgColor=#9cc384 colSpan=3 height="69">
<TABLE bgColor=#398a00 border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR bgcolor="#99CCFF">
<TD width="15%" height="26" valign="middle">
<div align="right"><font color="#000000">全局安全生产 </font><font color="#FFFFFF">
</font></div>
</TD>
<TD width="7%" height="26" valign="middle"><%
set conn=server.createobject("ADODB.connection")
Set Rsc = Server.CreateObject("ADODB.Recordset")
Conn.Open "dsn=jjgl;uid=jjgl;pwd=jjgl"
SQLstr="select * from aqts_web "
Rsc.Open SQLstr, Conn
if not rsc.EOF and not rsc.BOF then
HitRate=cdate(FormatDateTime(now,2))-cdate(rsc("rq"))
m=4-CInt(Len(HitRate))
Response.Write("<img src='image_f/count/ct.gif'>")
For i=1 to m
Response.Write("<img src='image_f/count/c0.gif'>")
next
For i=1 to CInt(Len(HitRate))
imgName = Mid(HitRate, i, 1)
Response.Write("<img src='image_f/count/" &amp;
"c"&amp;imgName &amp;
".gif'>")
Next
Response.Write("<img src='image_f/count/ce.gif'>")
end if
set Rsc=nothing
Set Conn = Nothing
%></TD>
<TD width="2%" height="26" valign="middle">
<div align="right">天</div>
</TD>
<TD class=hh width="76%" height="26" valign="bottom">
<div align="right"><font color="#FFFFFF"><a href="zhxxindex.asp"><img name="Image44" border="0" src="image_button/zhxx1.gif" width="70" height="19"></a><a href="drgzindex.asp"><img name="Image45" border="0" src="image_button/drgz1.gif" width="70" height="19"></a><a href="gzjhindex.asp"><img name="Image46" border="0" src="image_button/gzjh1.gif" width="70" height="19"></a><a href="dlsc/index.htm"><img name="Image47" border="0" src="image_button/dlsc1.gif" width="70" height="19"></a><a href="tdjsindex.asp"><img name="Image48" border="0" src="image_button/tdjs1.gif" width="70" height="19"></a><a href="http://sd-web/SD6000/scada.htm"><img name="Image49" border="0" src="image_button/ddss1.gif" width="70" height="19"></a><a href="http://192.1.1.3/gbgl/default.htm"><img name="Image50" border="0" src="image_button/zltx1.gif" width="70" height="19"></a><a href="gdxxindex.asp"><img name="Image51" border="0" src="image_button/gdxx1.gif" width="70" height="19"></a></font></div>
</TD>
</TR>
<TR valign="top" bgcolor="#99CCFF">
<TD colspan="4" height="23">
<div align="left"></div>
<div align="left"><a href="daglindex.asp"><img name="Image52" border="0" src="image_button/dagl1.gif" width="70" height="19"></a><a href="aqjbindex.asp"><img name="Image53" border="0" src="image_button/aqjb1.gif" width="70" height="19"></a><a href="misindex.asp"><img name="Image54" border="0" src="image_button/qymis1.gif" width="70" height="19"></a><a href="oaindex.asp"><img name="Image55" border="0" src="image_button/oa1.gif" width="70" height="19"></a><a href="bjgdbindex.asp"><img name="Image56" border="0" src="image_button/bjgdb1.gif" width="70" height="19"></a><a href="http://bjgd/qygk/index.htm"><img name="Image57" border="0" src="image_button/qygk1.gif" width="70" height="19"></a><a href="gyxxindex.asp"><img name="Image58" border="0" src="image_button/gyxx1.gif" width="70" height="19"></a><a href="dzggindex.asp"><img name="Image59" border="0" src="image_button/dzgg1.gif" width="70" height="19"></a><a href="http://192.1.1.6:8080/lcistd/index.htm"><img name="Image60" border="0" src="image_button/qybz1.gif" width="70" height="19"></a><a href="95598/default.htm"><img name="Image60" border="0" src="image_button/yvlz.gif" width="70" height="19"></a></div>
</TD>
</TR>
<TR>
<TD colSpan=4>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width="100%" height="32">
<FORM action="code/login.asp" method=post>
<TR bgColor=#99CCFF>
<TD width=444 height="28">
<TABLE border=0 cellPadding=0 cellSpacing=0 height=15
width="100%">
<TBODY>
<TR>
<TD height="25" width="69%"><IMG height=14 src="image_f/enet_16.gif"
width=14><font color="#333333"> 电子邮件:</font>
<INPUT name=code type=hidden value=GB>
账号
<INPUT class=form name=login size=10>
密码
<input class=form name=password size=10 type="password">
<font color="#333333"> </font> <font color="#333333">
<INPUT name=submit type=submit class=f2 value="确定">
<input name=submit3 type=reset class=f2 value="取消">
</font> <a href="code/Login_Email.asp">注册</a></TD>
</TR>
</TBODY>
</TABLE>
</TD>
<TD height="28" color=#000000 width="326" bgcolor="#99CCFF">
<div align="left"> <font color=#000000>
<script language=JavaScript>
<!--
// begin

var enable=0;

today=new Date();

var day;

var date;

var time_start = new Date();

if(today.getDay()==0) day=" 星期日"
if(today.getDay()==1) day=" 星期一"
if(today.getDay()==2) day=" 星期二"
if(today.getDay()==3) day=" 星期三"
if(today.getDay()==4) day=" 星期四"
if(today.getDay()==5) day=" 星期五"
if(today.getDay()==6) day=" 星期六"
do
cument.fgcolor="white";

date="<font color=#000000>"+(today.getYear())+"年"+(today.getMonth()+1)+"月"+today.getDate()+"日"+"</font>";

document.write(date);

document.write('<font color=#000000>'+day+'</font>');

// -->
</script>
  本站网址:http://bjgd <a href="zytztemp/%B1%A6%BC%A6%B9%A9%B5%E7%BE%D6%C4%DA%B2%BF%CD%F8%D6%F7%D2%B3%B5%C4%B9%DC%C0%ED%CE%AC%BB%A4%CB%B5%C3%F7.doc">帮助</a></font></div>
</TD>
</TR>
</FORM>
<TR bgColor=#99CCFF>
<TD colSpan=2
height=2></TD>
</TR>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD></TR></TBODY></TABLE>
<TABLE align=center bgColor=#99CCFF border=0 cellPadding=0 cellSpacing=3
width=770 height="694">
<TBODY>
<TR>
<TD height="723">
<TABLE align=center bgColor=#ffffff border=0 width="100%" height="675">
<TBODY>
<TR>
<TD vAlign=top height="256">
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0
cellSpacing=0 width=426>
<TBODY>
<TR>
<TD background=image_f/n1.gif height=20>
<TABLE border=0 width="100%">
<TBODY>
<TR>
<TD width="65%" height="25">
<div align="right"><A
href="tbbdindex.asp"><IMG
border=0 height=1 src="image_f/tm.gif"
width=1></A></div>
</TD>
<TD width="35%" height="5"> <% set conn=server.createobject("ADODB.connection")
str = "DBQ=" &amp;
server.mappath("xwupdate/tbbd.mdb") &amp;
";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.Open str
set rs=server.CreateObject ("adodb.recordset")
sql="select top 10 * from tbbd order by id desc"
rs.open sql,conn,2,3

%>
<div align="right">[<FONT color=#777777> 更新时间<%=rs("day")%> </FONT>]</div>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<TABLE align=center border=0 height=181 width="98%">
<TBODY>
<TR valign="top" align="left" bgcolor="#FFFFFF" bordercolor="#E8FFE8" >
<TD colspan="3" > <%
if not(rs.eof and rs.bof) then

for i=1 to 10

if trim(rs("title"))="" then
exit for
if len(trim(rs("title")))>40 then
response.write "<tr><td height=15 width=410 valign=top align=left bgcolor=#ffffff>&amp;nbsp;<IMG height=12 src=image_f/icon.gif width=13><a href=record1.asp?id=" +cstr(rs("id")) + " class=at>" + left(rs("title"),25)+"..." + "</a>"
else
response.write "<tr><td height=15 width=410 valign=top align=left bgcolor=#ffffff>&amp;nbsp;<IMG height=12 src=image_f/icon.gif width=13><a href=record1.asp?id=" +cstr(rs("id")) + " class=at>" + rs("title") + "</a>"
end if
Response.Write "&amp;nbsp;&amp;nbsp;<font class=fxq-1>"
Response.Write "["&amp;rs("day")&amp;"]</font>"
if (now()-cdate(rs("day")))=<2 then
response.write "<img src=image_f/hot01.gif width=21 height=9>"
end if
Response.Write "</tr></td>"
rs.MoveNext

if rs.EOF then
exit for
next
end if
set Rs=nothing
Set Conn = Nothing
%></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD
height=12>
<div align="right"><font color="#0000ff">                    <a href="tbbdindex.asp"><img src="image_button/more.gif" width="79" height="18" border="0"></a>   </font></div>
</TD>
</TR>
<TR>
<TD
height=12>
<p align="center"> 
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
<TD vAlign=top width=302 height="256">
<TABLE bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
height=223 width=300>
<TBODY>
<TR>
<TD height=32><img src="image_f/n4.gif" width="300" height="32"></TD>
</TR>
<TR>
<TD background=image_f/n5.gif>
<TABLE align=center border=0 cellPadding=4 cellSpacing=1
class=dt width="95%">
<TBODY>
<TR background="image_f/bg2.gif" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<TD>
<P>
<SCRIPT language=JavaScript>

<!--
//
var version = "other"
browserName = navigator.appName;

browserVer = parseInt(navigator.appVersion);


if (browserName == "Netscape" &amp;&amp;
browserVer >= 3) version = "n3";

else

if (browserName == "Netscape" &amp;&amp;
browserVer < 3) version = "n2";

else

if (browserName == "Microsoft Internet Explorer" &amp;&amp;
browserVer >= 4) version = "e4";

else

if (browserName == "Microsoft Internet Explorer" &amp;&amp;
browserVer < 4) version = "e3";


function stopError()
{
return true;

}
window.onerror = stopError;


function wireOpen()
{
if (version == "e4")
{
document.write("<marquee behavior=scroll direction=up width=280 height=200 scrollamount=1 crolldelay=15 onmouseover='this.stop()' onmouseout='this.start ()'>")
}
}

function wireClose()
{
if (version == "e4")
{
document.write("</marquee>")
}
}

//-->
</SCRIPT>
<SCRIPT language=JavaScript>
wireOpen();

</SCRIPT>
<%
str = "DBQ=" &amp;
server.mappath("database/hydt.mdb") &amp;
";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.connection")
conn.Open str
set rs=server.CreateObject ("adodb.recordset")
sql="select top 10 * from tbbd order by id desc"
rs.open sql,conn,2,3
if not(rs.eof and rs.bof) then

for i=1 to 10
if rs.EOF then
exit for
if trim(rs("title"))="" then
exit for
if trim(rs("text"))="" then
response.write "<img src=image_f/hydtnew.gif width=15 height=13>"
response.write "<font color=#000000>"&amp;replace((replace(rs("title"),chr(10),"<br>"))," ","&amp;nbsp")&amp;"</font>"
if (now()-cdate(rs("day")))=<2 then
response.write "<img src=image_f/hot01.gif width=21 height=9>"
end if
response.write "<br>"
else

response.write "<IMG width=15 height=13 src=image_f/club.gif ><a href=record.asp?id=" +cstr(rs("id")) + ">" + rs("title") + "</a>"
if (now()-cdate(rs("day")))=<1 then
response.write "<img src=image_f/hot01.gif width=21 height=9>"
end if
response.write "<br>"
end if

if rs.EOF then
exit for
rs.MoveNext



next
end if
set Rs=nothing
Set Conn = Nothing
%></P>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD background=image_f/n6.gif
height=11></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR >
<TD height="21" colspan="2" valign="middle" align="center">
<hr noshade color="#FFCC00" width="735" size="1">
</TD>
</TR>
<TR >
<TD height="211" colspan="2" valign="middle" align="center">
<table width="97%" border="0" cellspacing="0" cellpadding="0" height="172">
<tr>
<td width="48%" align="left" valign="top" height="213">
<div align="left"><%
str = "DBQ=" &amp;
server.mappath("database/sdl2gdl.mdb") &amp;
";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.connection")
conn.Open str
set rs=server.CreateObject ("adodb.recordset")
set rs1=server.CreateObject ("adodb.recordset")
sql="select * from sdl where id=1 "
rs.open sql,conn,2,3
sql="select * from sdl where id=2 "
rs1.open sql,conn,2,3
dim mns1(13)
dim mns2(13)
dim mns3(13)
for i= 1 to month(now())-1


mns1(i)=rs(i)
mns2(i)=rs1(i)
mns3(i)=i
next
set conn=nothing



Function ExportChartToGIF(cspace)
Dim fso
Dim sFilePath
Dim sFileName
set fso = CreateObject("Scripting.FileSystemObject")
sFilePath = Request.ServerVariables("PATH_TRANSLATED")
sFilePath = left(sFilePath, InStrRev(sFilePath, "/"))
sFileName = fso.getTempName()
m_cspace.ExportPicture sFilePath&amp;"fxqpic/" &amp;
sFileName, "gif",345,200
ExportChartToGIF = sFileName
End Function
Sub FormatChart(cht, sTitle, sValTitle, sCatTitle, sValNumFmt)

Dim ax
Dim fnt
Dim c

set c = cht.Parent.Constants

cht.HasTitle = True
cht.Title.Caption = sTitle
set fnt = cht.Title.Font
fnt.Name = "宋体"
fnt.Size = 9
fnt.Bold = True
cht.Interior.Color = "#E1F0FF"
cht.Legend.
font.size = 8.7
Cht.Legend.
Interior.Color = "#FFFFFF"
Cht.PlotArea.Interior.Color = "#ffffff"
cht.Border.Color = "#3399ff"
For Each ax in cht.Axes
if ax.Type = c.chValueAxis then
ax.HasTitle = True
ax.Title.Caption = sValTitle
set fnt = ax.Title.Font
fnt.Name = "宋体"
fnt.Size = 9
'fnt.Bold = True
ax.NumberFormat = sValNumFmt

else
ax.HasTitle = True
ax.Title.Caption = sCatTitle
set fnt = ax.Title.Font
fnt.Name = "宋体"
fnt.Size = 9
'fnt.Bold = True

end if
Next

End Sub
Dim m_nChart
Dim m_cspace
Dim m_cht
Dim m_ser
Dim c
Dim m_sFilePath
Dim m_ct

set m_cspace = server.CreateObject("OWC.Chart")
set m_cht = m_cspace.Charts.Add()
set c = m_cspace.Constants
m_cht.Type=c.chChartTypeColumnClustered
m_cht.HasLegend = true
Dim asPri(2)
asPri(0) = "去年同期"
asPri(1) = "今 年"
Dim new1(13)


For m_ct = 0 to 1
Set m_ser = m_cht.SeriesCollection.Add()
m_ser.Caption = asPri(m_ct)
'm_ser.SetData c.chDimCategories, c.chDataLiteral,Array("1", "2", "3", "4","5","6","7","8","9","10","11","12")
m_ser.SetData c.chDimCategories, c.chDataLiteral,mns3
if m_ct=0 then

'm_ser.SetData c.chDimValues, c.chDataLiteral,Array(rs("一月"),rs("二月"),rs("三月"),rs("四月"),rs("五月"),rs("六月"),rs("七月"),rs("八月"),rs("九月"),rs("十月"),rs("十一月"),rs("十二月"))
m_ser.SetData c.chDimValues, c.chDataLiteral,mns2
end if
if m_ct=1 then

'm_ser.SetData c.chDimValues, c.chDataLiteral,Array(rs1("一月"),rs1("二月"),rs1("三月"),rs1("四月"),rs1("五月"),rs1("六月"),rs1("七月"),rs1("八月"),rs1("九月"),rs1("十月"),rs1("十一月"),rs1("十二月"))
m_ser.SetData c.chDimValues, c.chDataLiteral,mns1
end if
Next
FormatChart m_cht, "宝鸡供电局2002年售电量", "售电量(单位:亿kwh)", "月份", ""


m_sFilePath = "fxqpic/" &amp;
ExportChartToGIF(m_cspace)

set Rs=nothing
set Rs1=nothing
Set Conn = Nothing
%>
<img src="<%= m_sFilePath %>"><br>
<br>
                    <font color="#666666">[<a href="sdllist.asp">进入详细</a>]</font>
</div>
</td>
<td width="5%" height="213">&amp;nbsp;</td>
<td width="48%" valign="top" height="213" align="left"><%

Dim mn1(13)
Dim mn2(13)
Dim mn3(13)
Dim mn4(13)
const adcmdext=1
const recordsAffected=2
on error resume next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=jjgl;uid=jjgl;pwd=jjgl"
yf=month(now())
nf=year(now())
oldf=nf-1

for i= 1 to yf
if len(i)=1 then
Findday=nf&amp;"-"&amp;"0"&amp;i
Oldday=oldf&amp;"-"&amp;"0"&amp;i
else
Findday=nf&amp;"-"&amp;i
Oldday=oldf&amp;"-"&amp;i
end if
sqlstr1="select sum(e07) ygdl from ddrb_fh where rq like '%"+Findday+"%'"
set rs1=conn.execute(sqlstr1)
sqlstr2="select sum(e07) ygdl from ddrb_fh where rq like '%"+Oldday+"%'"
set rs2=conn.execute(sqlstr2)
mn1(i)=rs1("ygdl")
mn2(i)=rs2("ygdl")
mn3(i)=i



set rs1=nothing
set rs2=nothing
next
set conn=nothing
for i= 1 to yf
mn4(i)=(mn2(i))

next



set m_cspace = server.CreateObject("OWC.Chart")
set m_cht = m_cspace.Charts.Add()
set c = m_cspace.Constants

' m_cht.Type=c.chChartTypeSmoothLineStacked
m_cht.Type=c.chChartTypeColumnClustered

m_cht.HasLegend = true
Dim asPrizz(2)
asPrizz(0) = "去年同期"
asPrizz(1) = "今 年"



For m_ct = 0 to 1
Set m_ser = m_cht.SeriesCollection.Add()
m_ser.Caption = asPrizz(m_ct)
m_ser.SetData c.chDimCategories, c.chDataLiteral,mn3
if m_ct=0 then

m_ser.SetData c.chDimValues, c.chDataLiteral,mn2
end if
if m_ct=1 then

m_ser.SetData c.chDimValues, c.chDataLiteral,mn1
end if
Next

FormatChart m_cht, "宝鸡供电局2002年供电量", "供电量(单位:万kwh)", "月份", ""


m_sFilePath = "fxqpic/"&amp;ExportChartToGIF(m_cspace)
set Rs1=nothing
set Rs2=nothing
Set Conn = Nothing
%><img src="<%= m_sFilePath %>"> <br>
                    <font color="#666666">&amp;gt;&amp;gt;&amp;gt;[<a href="gdllist.asp">进入详细</a>]</font>
&amp;nbsp;</td>
</tr>
</table>
</TD>
</TR>
<TR >
<TD height="26" colspan="2" valign="middle" align="center">
<hr noshade color="#FFCC00" width="735" size="1">
</TD>
</TR>
<TR>
<TD height="141" width=750 valign="top" align="right" bgcolor="#FFFFFF" colspan="2">
<table border="0" width="99%" height="159" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" height="159" valign="top" align="left">
<table border="0" width="99%" height="174" cellspacing="0" cellpadding="0">
<tr>
<TD bgColor=#cc3300 width="100%" height="23">
<TABLE border=0 borderColor=#FFCC00 cellPadding=0
cellSpacing=0 id=AutoNumber17
style="BORDER-COLLAPSE: collapse" width="238">
<TBODY>
<TR>
<TD width=20 bgcolor="#CC3300"><IMG border=0
src="image_f/basket.gif"></TD>
<TD height=21 bgcolor="#CC3300" width="202">
<P align=left><font color="#FFFF00">内部网公告区</font>
</P></TD></TR></TBODY></TABLE></TD>
</tr>
<tr>
<TD borderColor=#c0c0c0 width="100%" height="151">
<TABLE border=1 borderColor=#FFCC00 cellPadding=0
cellSpacing=0 id=AutoNumber18
style="BORDER-COLLAPSE: collapse" width="100%" height="132">
<TBODY>
<TR>
<TD class=l13 vAlign=middle width=66 height="130" align="center">
<P class=l16 align="center"><img border="0" src="image_f/PDA.gif" style="border-style: solid;
border-width: 1"> </P></TD>
<TD align=middle vAlign=top height="130" width="153">
<p align="left"><br>
关于2000年度专业技术资格审报:<br>
<font class="e7">&amp;gt;&amp;gt;</font><font class="e7">
</font>1、<a href="http://bjgd/new_bjpower/record1.asp?id=273">通知</a>&amp;nbsp;&amp;nbsp;&amp;nbsp;<br>
<font class="e7">&amp;gt;&amp;gt;
</font><a href="zcksindex.asp">2、文件下载<br>
</a><font class="e7">&amp;gt;&amp;gt;</font><font class="e7">
</font>3、软件下载<br>
<br>
<font class="e7">&amp;gt;&amp;gt;
</font><a href="lrsoft/个人版.exe"><font color="#800080">个人版.exe</font></a><a href="lrsoft/disk1.zip"><br>
</a><font class="e7">&amp;gt;&amp;gt;</font><font class="e7">
</font><a href="lrsoft/disk1.zip">Disk1.Zip </a><font class="e7">&amp;gt;&amp;gt;</font><font class="e7">
</font><a href="lrsoft/disk2.zip">Disk2.Zip</a><br>
<font class="e7">&amp;gt;&amp;gt;</font><font class="e7">
</font><a href="lrsoft/disk3.zip">Disk3.Zip</a>
<font class="e7">&amp;gt;&amp;gt;
</font><a href="lrsoft/disk4.zip">Disk4.Zip</a>
<br>
</p>
</TD></TR><!--<tr>
<td colspan="2" valign="top" align="left">
<a href="http://lermicake.xbswg.com" target=_blank>
<img border="0" src="http://www.xaonline.com/guanggao/logo/cake02.gif" ></a>
<a href="http://www.xbswg.com/jsp-bin/shangcheng/shangpin_list.jsp?currentCode=237" target=_blank>
<img border="0" src="http://www.xaonline.com/guanggao/logo/mum.gif" ></a>
</td>
</tr>--></TBODY></TABLE></TD>
</tr>
</table>
</td>
<td width="67%" height="159" valign="top" align="left">
<div align="left">
<table border="0" width="99%" height="54" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" bgcolor="#FFFFFF" height="154" rowspan="7"><img border="0" src="image_f/hand.gif"></td>
<td width="88%" bgcolor="#EEEEEE" height="25"><b>通知</b>:<a href="http://bjgd/new_bjpower/zytztemp/&amp;iquest;&amp;Eacute;&amp;sup3;&amp;Ouml;&amp;ETH;&amp;oslash;&amp;raquo;á&amp;Ograve;é·&amp;Ouml;&amp;Icirc;&amp;ouml;.doc">关于印发“面向21世纪中国电力可持续发展研讨会”交流材料摘要的通知</a></td>
</tr>
<tr>
<td width="88%" height="25"><b>查询</b>:<a href="http://bjgd/new_bjpower/zytztemp/信息披露月报5月.htm">调度信息披露月报</a>、<a href="bmaq.asp">部门安全天数</a>、<a href="95598/default.htm">95598业务流转信息查询</a>(<font color="#CC3300">测试</font>)</td>
</tr>
<tr>
<td width="88%" height="25" bgcolor="#EEEEEE"><b>栏目</b>:<a href="http://bjgd/dvbbs">宝鸡电力BBS</a>
、<a href="zytzindex.asp">重要通知</a>&amp;nbsp;、<a href="http://bjgd/new_bjpower/miskhb/ssjcb/misssjcb_tj_list.asp"><font color="#FF0000">MIS</font><font color="#FF6600">送</font><font color="#00CCCC">数</font><font color="#009900">检</font><font color="#6666FF">查</font></a></td>
</tr>
<tr>
<td width="88%" height="25"><b>软件</b>:<a href="http://bjgd/dvbbs">软件下载</a>
、<a href="http://bjgd/dvbbs">精彩壁纸</a>、<a href="http://bjgd/dvbbs">音乐在线</a>、<a href="llrl.htm">农历西历</a></td>
</tr>
<tr>
<td width="88%" height="25" bgcolor="#EEEEEE"><b>简介</b>:<a href="http://bjgd/xxzxjj.htm">信通公司</a>简介
、检修公司网站</td>
</tr>
<tr>
<td width="88%" height="25" bgcolor="#FFFFFF"><b>维护</b>:<a href="sjwhindex.asp">当日工作</a>、<a href="clglindex.asp">管理入口</a></td>
</tr>
<tr>
<td width="88%" height="25" bgcolor="#EEEEEE"><font color="#FF0000"><b><a href="zytztemp/sjb.htm">
热门:</a></b></font></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=1 width=770>
<TBODY>
<TR>
<TD bgColor=#C4E1FF height="1"></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=2 width=770>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=2 width=770>
<TBODY>
<TR>
<TD height="2"></TD>
</TR></TBODY></TABLE>
<br>
<TABLE align=center bgColor=#98C8FF border=0 width=597 cellspacing="7" cellpadding="0" height="25">
<TBODY>
<TR bgColor=#ffffff>
<TD width=89 height="2"><a href="http://www.ncpg.com.cn/"><img src="image_l/hb_power.gif" width="88" height="31" border="0"></a></TD>
<TD width=89 height="2"><a href="http://www.cepn.sp.com.cn/webroot/"><img src="image_l/zd_xw.gif" width="88" height="31" border="0"></a></TD>
<TD width=97 height="2"><a href="http://www.sinoepower.com/"><img src="image_l/sw_china.gif" width="88" height="31" border="0"></a></TD>
<TD width=97 height="2"><a href="http://www.snepc.com/"><img src="image_l/yh_sd.gif" width="88" height="31" border="0"></a></TD>
<TD width=89 height="2"><a href="http://www.hzpower.com.cn/index.htm"><img src="image_l/hz_power.gif" width="88" height="31" border="0"></a></TD>
<TD width=89 height="2"><a href="http://www.bj169.net"><img src="image_l/cc_rx.gif" width="88" height="31" border="0"></a></TD>
<TD width=87 height="2"><a href="http://www.powerfield.net/"><img src="image_l/sky_power.gif" width="88" height="31" border="0"></a></TD>
<TD width=163 height="2"><a href="http://bjgd/friendlink/dlbg/dlbg.htm"><img src="image_b/dlbg.gif" width="88" height="31" border="0"></a></TD>
</TR></TBODY>
<TBODY>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=770>
<TBODY>
<TR>
<TD height=4></TD></TR>
<TR bgcolor="#FFFFFF">
<TD>
<DIV align=center><FONT color=#003300><br>
</FONT><font color="#000000">&amp;copy;
Copyright 2001 开发制作
宝鸡先行信通科技有限责任公司<br>
电话: 3822293、3822294</font><FONT color=#003300><BR>
</FONT><FONT color=#ffff95> </FONT> </DIV>
</TD></TR></TBODY></TABLE></BODY></HTML>

 
直接用TeeChar的ActiveX就很方便.
 
使用ActiveX,用asp写界面(调用.dll)。asp程序在服务器上运行,客户
端只要有ie就可以了,当ie初次访问服务器时,自动下载ActiveX控件到客户端
,然后在客户端运行。
ActiveX控件可以用vc,delphi,vb等开发。
在此特此更正我先前的错误说法,希望各位指教!
 
多人接受答案了。
 
后退
顶部