在js里怎样写asp程序啊！格式是什么？

shanjimail 2004-01-30 12:29:18

在js里怎样写asp程序<%%>啊！格式是什么？

...全文

241 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

shanjimail 2004-01-30

打赏
举报

我的意思是：
能不能这样
<script language='javascript'>

<%
..........

%>
</script>

anddytang 2004-01-30

打赏
举报

只要把你需要的asp 程序包含在<%%>中就行了！！

纪俊 2004-01-30

打赏
举报

<% yourVar="测试对话框"% >
<script language='javascript' >
alert("<%=yourvar%>")
</script >

纪俊 2004-01-30

打赏
举报

< % yourVar="测试对话框"% >
< % s cript language='javas cript' >
alert("< %=yourvar% >")
< /s cript >

xieyj 2004-01-30

打赏
举报

alert("<%=asp变量名%>");

Clove 2004-01-30

打赏
举报

可以
但是必须服务器配置IIS环境

TrueAndFalse 2004-01-30

打赏
举报

shareanway 2004-01-30

打赏
举报

完全可以这样的！

shanjimail 2004-01-30

打赏
举报

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>导航菜单</title>
<script src="alai_tree.js"></script>
</head>
<body style="margin:6 6 6 2;" style="overflow:auto;">
<div nowrap="true" id="divTree"></div>

<script>
var style=self.location.search.replace("?","")
function change_style(s)
{self.location=self.location.href.replace(/\?.*/,"")+"?"+s}
//随机选择目录树样式
if(style=="" || style=="0")style=parseInt(Math.random()*4+1)+""

switch(style)
{
/*单层伸展式目录*/
case "1":
var images=new alai_imagelist()
images.add("images/global.gif","default")
images.add("images/book.gif","book")
var tree1=new alai_tree(images,0,divTree,"height:24;padding-top:8;")

/*控制只时只展开一层*/
var exNode=null
tree1.onexpand=function(srcNode)
{
if(exNode!=null && srcNode!=exNode)exNode.expand(false);
exNode=srcNode
}
tree1.onmouseover=function(srcNode)
{
if(srcNode.hasChild)
{
srcNode.body.style.backgroundColor="white"
}
else
{
srcNode.body.style.color="red"
}
}
tree1.onselect=function(){return false;}
tree1.onmouseout=function(srcNode)
{
if(srcNode.hasChild)
{
srcNode.body.style.backgroundColor="#ddddfe"
}
else
{
srcNode.body.style.color="blue"
}
}
tree1.afteradd=function(srcNode)
{
if(srcNode.parent!=tree1.root)
{
srcNode.parent.icon.src=images.item["book"].src
srcNode.parent.body.style.cssText="background-color:#ddddfe;color:darkblue;cursor:default;width:185;"
}
srcNode.body.style.cssText="background-color:#eeeeee;color:blue;cursor:hand;width:185;"
}
break;
/*explorer风格目录*/
case "2":
var images=new alai_imagelist()
images.path="images/"
images.add("fold")
images.add("html","default")
images.add("expand_xp","expand")
images.add("collapse_xp","collapse")
var tree1=new alai_tree(images,18,divTree)
tree1.afteradd=function(srcNode)
{
if(srcNode.parent!=tree1.root)srcNode.parent.icon.src=images.item["fold"].src
}
break;
/*默认目录树样式(VS.NET帮助文档风格)*/
default:
var images=new alai_imagelist()
images.add("images/note.gif","default")
images.add("images/openbook.gif","open")
images.add("images/closebook.gif","close")
var tree1=new alai_tree(images,18,divTree)
tree1.onexpand=function(srcNode)
{
srcNode.icon.src=images.item["open"].src
}
tree1.oncollapse=function(srcNode)
{
srcNode.icon.src=images.item["close"].src
}
}

var root=tree1.root
n_main=root.add("主菜单")
n_main.addLink("welcome.htm","教程首页")
n_main.addLink("readme.htm","教程和程序使用说明")
n_main.addLink("update.htm","教程和程序更新记录")
n_main.addLink("http://www.9499.net?go=downtc","下载最新的程序和教程","_blank")
n_main.add("查看菜单源码",null,"js","if(self.location.href.indexOf('::')!=-1)alert('CHM帮助查看源代码方法：点鼠标右键打开右键菜单，选择查看源项');else self.location='view-source:'+self.location;")

<%
i=1
set rsfg=server.createobject("ADODB.Recordset")
'sql="select distinct fgroup from eis_mana_func where code in ( select distinct codef from eis_mana_dist where (coded='"&session("depart")&"' or codel='"&session("code")&"') ) order by fgroup"
sql="select * from eis_dict_fgroup order by i_code"
rsfg.open sql,conn,3,3
aaa=0
do while not rsfg.eof
%>
alert("<%=trangrade(rsfg("fgroup"))%>")

<%
rsfg.movenext
i=i+1
loop
rsfg.close

%>

n_style=root.add("导航菜单风格设置")
var isChm=self.location.href.indexOf("chm::")==-1 //是否是CHM版本教程
if(isChm)
{
n_style.add("单层展开式","","js","change_style(1);")
n_style.add("Explorer风格","","js","change_style(2);")
n_style.add("VS.NET帮助风格","","js","change_style(3);")
n_style.add("随机选择","","js","change_style(0);")
}
else{n_style.add("随机选择","","js","self.history.go(0);")}

tree1.expandAll(false) //全部收缩目录树
n_main.expand(true) //展开主菜单
tree1.target="right" //在框架网页右边窗口打开链接！

images.add("images/set.gif","set")
n_style.icon.src=images.item["set"].src
n_style.label.style.color="red"
tree1.body.setAttribute("title","阿赖实用javascript控件教程导航菜单")
</script>

<div style="display:none">
<a href="welcome.htm">首页</a>
<a href="readme.htm">说明</a>
<a href="update.htm">更新记录说明</a>
<a href="tc_intro.htm">表格控件使用说明</a>
<a href="tc_exam1.htm">控件参数的使用示例</a>
<a href="tc_exam2.htm">控件方法的调用示例</a>
<a href="tc_exam3.htm">功能扩展高级示例</a>
<a href="menu_ref.htm">菜单控件参考手册</a>
<a href="menu_class.htm">经典Windows样式菜单</a>
<a href="menu_xp.htm">仿Office XP样式菜单</a>
<a href="win_ref.htm">窗口控件参考手册</a>
<a href="win_cool.htm">酷浮动层窗口示例</a>
<a href="win_xp.htm">XP蓝色风格窗口示例</a>
<a href="tree_intro.htm">简介</a>
<a href="tree_ref.htm">目录树控件参考指引</a>
<a href="tree_teach.htm">目录树控件使用说明</a>
<a href="tree_exam1.htm">目录树应用示例一</a>
<a href="tree_exam2.htm">目录树应用示例二</a>
<a href="tree_exam3.htm">目录树应用示例三</a>
<a href="tree_exam4.htm">目录树应用示例四</a>
<a href="tree_exam5.htm">目录树应用示例五</a>
<a href="tree_exam6.htm">目录树应用示例六</a>
<a href="http://www.9499.net?go=ly">留言</a>

</div>
</body>

</html>
<%
function trangrade(coded)
set rsm1=server.createobject("ADODB.Recordset")
sql="select * from eis_dict_fgroup where i_code='"&coded&"'"
rsm1.open sql,conn,3,3
if not rsm1.eof then
trangrade=rsm1("c_name")
else
trangrade="wrong"
end if
rsm1.close
end function
%>

51windows 2004-01-30