怎么将这几个JAVASCRIPT Function改成VBSCRIPT的?

来源:百度知道 编辑:UC知道 时间:2024/05/21 16:07:46
<%
function ShowId(id,parentid,name){//显示
var rssort = Server.CreateObject("ADODB.Recordset");
rssort.ActiveConnection = MM_fsyuxidata_STRING;
rssort.Source = "SELECT * FROM ClassTree where followid="+id;
//判断是否是最后一级(检索数据库查看时候还有子节点)
rssort.CursorType = 3;
rssort.CursorLocation = 3;
rssort.LockType = 3;
rssort.Open();
if(rssort.RecordCount==0){//判断是否是最后一级,如果是最后一级则显示树的最后一级(insdoc),否则继续展开(insFld)
var strOutput1 = "insDoc(ax"+parentid+", gLnk (0,'"+name+"','product.asp?id="+id+"','ftv2doc.gif'));";
Response.Write(strOutput1);
}
else{
var strOutput1 = "ax"+id+"=insFld(ax"+parentid+", gFld ('"+name+"','product.asp?id="+id+"','ftv2folderopen.gif', 'ftv2folderclosed.gif'));";
Response.Write(strOutput1);
}

******************* 7-17
最近没空
******************* 7-12
不可以用两种语言的,但这个程序里用的语法不多,比较容易移植,有空我试一试

******************** 7-10
为什么要改呢?
这几个JAVASCRIPT Function 你可以直接在VBSCRIPT 中调用呀