28,409
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
leijun1974 2004-12-08
- 打赏
- 举报
自己也支持一下
leijun1974 2004-12-08
- 打赏
- 举报
UP一下
hr88rong 2004-12-08
- 打赏
- 举报
支持!
leijun1974 2004-12-08
- 打赏
- 举报
原函数是这样的：
<%
function table(....)
.....
end function
%>
因为我要将它放入以<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>为首的asp文件中，所以
将<%....%> 改成了 <script language="vbscript" runat="server">...</script>。
于是乎.....:(
<%
function table(....)
.....
end function
%>
因为我要将它放入以<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>为首的asp文件中，所以
将<%....%> 改成了 <script language="vbscript" runat="server">...</script>。
于是乎.....:(
lei7909 2004-12-08
- 打赏
- 举报
up
leijun1974 2004-12-08
- 打赏
- 举报
--------结果老是不认VBSCRIPT语法
郁闷........我笨拉:(
下面是出错提示:
Microsoft VBScript 编译器错误 错误 '800a0409'
未结束的字符串常量
/study/zzt.asp，行 47
response.write "
----------------^
帮帮忙了各位大侠！！！！！
郁闷........我笨拉:(
下面是出错提示:
Microsoft VBScript 编译器错误 错误 '800a0409'
未结束的字符串常量
/study/zzt.asp，行 47
response.write "
----------------^
帮帮忙了各位大侠！！！！！
leijun1974 2004-12-08
- 打赏
- 举报
------------被调用函数的ASP文件(我放在一个单独的文件)ttz.asp:
<script language="vbscript" runat="server">
function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)
'参数含义(传递的数组，横坐标，纵坐标，柱子的厚度，柱子的宽度，图表的宽度，图表的高度,图表的类型)
'纯ASP代码生成图表函数1——柱状图
'作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
'本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
'版本2.0 最后修改日期 2003-7-22
'非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。
dim tb_color(7,2)
tb_color(1,1)="#d1ffd1"
tb_color(2,1)="#ffbbbb"
tb_color(3,1)="#ffe3bb"
tb_color(4,1)="#cff4f3"
tb_color(5,1)="#d9d9e5"
tb_color(6,1)="#ffc7ab"
tb_color(7,1)="#ecffb7"
tb_color(1,2)="#00ff00"
tb_color(2,2)="#ff0000"
tb_color(3,2)="#ff9900"
tb_color(4,2)="#33cccc"
tb_color(5,2)="#666699"
tb_color(6,2)="#993300"
tb_color(7,2)="#99cc00"
line_color="#69f"
left_width=70
length=thickness/2
total_no=ubound(total,1)
temp1=0
for i=1 to total_no
if temp1<total(i,1) then temp1=total(i,1)
next
temp1=int(temp1)
if temp1>9 then
temp2=mid(cstr(temp1),2,1)
if temp2>4 then
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1)
else
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
end if
else
if temp1>4 then temp3=10 else temp3=5
end if
temp4=temp3
response.write "<!--[if gte vml 1]><v:rect id='_x0000_s1027' alt='' style='position:absolute;left:"&table_x+left_width&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:-1' fillcolor='#9cf' stroked='f'><v:fill rotate='t' angle='-45' focus='100%' type='gradient'/></v:rect><![endif]-->"
response.write "<!--[if gte vml 1]><v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y+all_height&"px' to='"&table_x+all_width+left_width&"px,"&table_y+all_height&"px'/><![endif]-->"
response.write "<!--[if gte vml 1]><v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y&"px' to='"&table_x+left_width&"px,"&table_y+all_height&"px'/><![endif]-->"
.......省略了，发不上来太长了
next
case else
end select
end function
</script>
<script language="vbscript" runat="server">
function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)
'参数含义(传递的数组，横坐标，纵坐标，柱子的厚度，柱子的宽度，图表的宽度，图表的高度,图表的类型)
'纯ASP代码生成图表函数1——柱状图
'作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
'本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
'版本2.0 最后修改日期 2003-7-22
'非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。
dim tb_color(7,2)
tb_color(1,1)="#d1ffd1"
tb_color(2,1)="#ffbbbb"
tb_color(3,1)="#ffe3bb"
tb_color(4,1)="#cff4f3"
tb_color(5,1)="#d9d9e5"
tb_color(6,1)="#ffc7ab"
tb_color(7,1)="#ecffb7"
tb_color(1,2)="#00ff00"
tb_color(2,2)="#ff0000"
tb_color(3,2)="#ff9900"
tb_color(4,2)="#33cccc"
tb_color(5,2)="#666699"
tb_color(6,2)="#993300"
tb_color(7,2)="#99cc00"
line_color="#69f"
left_width=70
length=thickness/2
total_no=ubound(total,1)
temp1=0
for i=1 to total_no
if temp1<total(i,1) then temp1=total(i,1)
next
temp1=int(temp1)
if temp1>9 then
temp2=mid(cstr(temp1),2,1)
if temp2>4 then
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1)
else
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
end if
else
if temp1>4 then temp3=10 else temp3=5
end if
temp4=temp3
response.write "<!--[if gte vml 1]><v:rect id='_x0000_s1027' alt='' style='position:absolute;left:"&table_x+left_width&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:-1' fillcolor='#9cf' stroked='f'><v:fill rotate='t' angle='-45' focus='100%' type='gradient'/></v:rect><![endif]-->"
response.write "<!--[if gte vml 1]><v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y+all_height&"px' to='"&table_x+all_width+left_width&"px,"&table_y+all_height&"px'/><![endif]-->"
response.write "<!--[if gte vml 1]><v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"&table_x+left_width&"px,"&table_y&"px' to='"&table_x+left_width&"px,"&table_y+all_height&"px'/><![endif]-->"
.......省略了，发不上来太长了
next
case else
end select
end function
</script>
leijun1974 2004-12-08
- 打赏
- 举报
我的目的是在<%@LANGUAGE="javaSCRIPT"%>为首的ASP中调用一个现成的统计图表函数：
-----------主ASP文件t1.asp:
<%@LANGUAGE="javaSCRIPT"%>
<!--#include file="zzt.asp" -->
<%
var total=new Array(7,2);
total(1,1)=200;
total(2,1)=800;
total(3,1)=1000;
total(4,1)=600;
total(5,1)=1222;
total(6,1)=3213;
total(7,1)=8;
total(1,2)="中国经营报";
total(2,2)="招聘网";
total(3,2)="51Job";
total(4,2)="新民晚报";
total(5,2)="新闻晚报";
total(6,2)="南方周末";
total(7,2)="羊城晚报";
total_no=7;
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
TD { FONT-SIZE: 9pt}
</style></head>
<body topmargin=5 leftmargin=0 scroll=AUTO>
<% table1(total,200,20,20,30,400,200,"A")%>
</body>
</html>
-----------主ASP文件t1.asp:
<%@LANGUAGE="javaSCRIPT"%>
<!--#include file="zzt.asp" -->
<%
var total=new Array(7,2);
total(1,1)=200;
total(2,1)=800;
total(3,1)=1000;
total(4,1)=600;
total(5,1)=1222;
total(6,1)=3213;
total(7,1)=8;
total(1,2)="中国经营报";
total(2,2)="招聘网";
total(3,2)="51Job";
total(4,2)="新民晚报";
total(5,2)="新闻晚报";
total(6,2)="南方周末";
total(7,2)="羊城晚报";
total_no=7;
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
TD { FONT-SIZE: 9pt}
</style></head>
<body topmargin=5 leftmargin=0 scroll=AUTO>
<% table1(total,200,20,20,30,400,200,"A")%>
</body>
</html>
fason 2004-12-08
- 打赏
- 举报
<%@language="JScript"%>
<script runat="server">
'your vbscript function
</script>
<%
// call your vbscript function
%>
<script runat="server">
'your vbscript function
</script>
<%
// call your vbscript function
%>
leijun1974 2004-12-08
- 打赏
- 举报
fason(咖啡人生) 、小灰：
你们能把我发的代码运行看看错在哪里吗？我的写法和小灰说的地址上是一样的呀，只是地址上的是用vbsript调用javascript，我的是javascript调用vbscript。
我觉得写法没错，可经常两种语言间调用函数就出错，而以本身的语言运行时就正常。有机关?
你们能把我发的代码运行看看错在哪里吗？我的写法和小灰说的地址上是一样的呀，只是地址上的是用vbsript调用javascript，我的是javascript调用vbscript。
我觉得写法没错，可经常两种语言间调用函数就出错，而以本身的语言运行时就正常。有机关?
superfishmanweb 2004-12-08
- 打赏
- 举报
如果是服务端的就<%@ Language=javascript%>或<%@ Language=vbscript%>
superfishmanweb 2004-12-08
- 打赏
- 举报
什么意思你是想写客户端的还是服务器端的?如果你是想写客户的javascript就用<script language="javascript">,如果你是想写客户端的vbscript就用<script language="vbscript">,如果你是想写服务端的vbscript就用<%代码%>
iuhxq 2004-12-08
- 打赏
- 举报
http://blog.csdn.net/iuhxq/archive/2004/12/06/205894.aspx
AppleBBS 2004-12-08
- 打赏
- 举报
java腳本是沒法調用vb腳本的函數的
