有没有办法在同一ASP页中用VBSCRIPT与JS互相调用函数呀?在线等

[hangeb]

到底是否有辦法馬,因為我也是新手,也不是很懂了?能具体举个例子吗?我学的都是JS,对VB真的不懂
如下面:

VBJACRIPT写的ASP
<%
if Application("count")="" then
Application("count")=readFile()
end if

Application.Lock
Application("count") =Application("count") +1
if Application("count") mod 10 =0 then
writeFile Application("count")
end if
Application.UnLock
Session("Greeting")=Application("count")
function readFile()
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile(Server.MapPath("countor.txt"),1,true)
read = MyFile.readAll
MyFile.Close
end function
sub writeFile(x)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile(Server.MapPath("countor.txt"),2,true)
MyFile.Write(Application("count"))
MyFile.Close
end sub
%>


JS写的
<%@ Language=Jscript %>

<%
var conn = Server.CreateObject("ADODB.Connection");
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" +
Server.MapPath("person.mdb"));
rs = Server.CreateObject("ADODB.Recordset");
sql = "Select * from grade";
rs.Open(sql, conn, 3);
rs.AbsolutePosition =Application("count");
for (i=0; i<rs.Fields.Count; i++)
{
Response.Write ("<LI>" + rs(i).Name + " = " + rs(i));
}

conn.close();
%>
现在怎么才能让两个语言同在一个ASP页,并且我怎么把VB中的Application("count")调到JS中去呢?能
帮着合并成一个页面吗?先谢谢了,肯定给分的!

[x1h2w3]

为什么不改造成同一语言呢，两种在一起有时会出现些怪问题的。