在默认语言为javascript的ASP文件中怎么调用用VBSCRIPT写的服务器端函数呀!急!!!

leijun1974 2004-12-08 12:15:05
如题
...全文
125 点赞 收藏 14
写回复
14 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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>。

于是乎.....:(
回复
lei7909 2004-12-08
up
回复
leijun1974 2004-12-08
--------结果老是不认VBSCRIPT语法
郁闷........我笨拉:(

下面是出错提示:

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>
回复
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>
回复
fason 2004-12-08
<%@language="JScript"%>
<script runat="server">
'your vbscript function
</script>

<%

// call your vbscript function

%>
回复
leijun1974 2004-12-08
fason(咖啡人生) 、小灰:

你们能把我发的代码运行看看错在哪里吗?我的写法和小灰说的地址上是一样的呀,只是地址上的是用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腳本的函數的
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-08 12:15
社区公告
暂无公告