好急啊 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'HtmEnd' adminsave.asp,行 38

好急啊 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'HtmEnd' adminsave.asp,行 38,第1张

你没有定义过程或者函数HtmEnd ,请将这段源代码补上

sub HtmEnd(Msg)

set upload=nothing

response.Write "<br>"&Msg&"[<a href=""javascript:history.back()"">返回</a>]"

response.End

end sub

<html>

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">

<title>仿QQ导航菜单</title>

<style type="text/css">

.titleStyle{

background-color:#008800color:#ffffffborder-top:1px solid #FFFFFFfont-size:9ptcursor:hand

}

.contentStyle{

background-color:#eeffeecolor:bluefont-size:9pt

}

a{

color:blue

}

body{

font-size:9pt

}

</style>

</head>

<body>

<script language="JavaScript">

<!--

var layerTop=20 //菜单顶边距

var layerLeft=30 //菜单左边距

var layerWidth=140 //菜单总宽

var titleHeight=20 //标题栏高度

var contentHeight=200//内容区高度

var stepNo=10//移动步数,数值越大移动越慢

var itemNo=0runtimes=0

document.write('<span id=itemsLayer style="position:absoluteoverflow:hiddenborder:1px solid #008800left:'+layerLeft+'top:'+layerTop+'width:'+layerWidth+'">')

function addItem(itemTitle,itemContent){

itemHTML='<div id=item'+itemNo+' itemIndex='+itemNo+' style="position:relativeleft:0top:'+(-contentHeight*itemNo)+'width:'+layerWidth+'"><table width=100% cellspacing="0" cellpadding="0">'+

'<tr><td height='+titleHeight+' onclick=changeItem('+itemNo+') class="titleStyle" align=center>'+itemTitle+'</td></tr>'+

'<tr><td height='+contentHeight+' class="contentStyle">'+itemContent+'</td></tr></table></div>'

document.write(itemHTML)

itemNo++

}

//添加菜单标题和内容,可任意多项,注意格式:

addItem('欢迎','<BR> 欢迎光临设计在线!')

addItem('网页陶吧','<center><a href="#">网页工具</a><BR><BR><a href="#">技术平台</a><BR><BR><a href="#">设计理念</a><BR><BR><a href="#">更多</a></center>')

addItem('美工教室','<center><a href="#">平面设计 </a><BR><BR><a href="#">三维空间</a><BR><BR><a href="#">设计基础</a><BR><BR><a href="#">更多..</a></center>')

addItem('Flash','<center><a href="#">基础教程</a><BR><BR><a href="#">技巧运用</a><BR><BR><a href="#">实例剖析</a><BR><BR><a href="#">更多..</a></center>')

addItem('多媒体','<center><a href="#">DIRECTOR</a><BR><BR><a href="#">Authorware</a><BR><BR><a href="#">更多..</a></center>')

addItem('精品赏析','<center><a href="#">设计精品</a></center>')

document.write('</span>')

document.all.itemsLayer.style.height=itemNo*titleHeight+contentHeight

toItemIndex=itemNo-1onItemIndex=itemNo-1

function changeItem(clickItemIndex){

toItemIndex=clickItemIndex

if(toItemIndex-onItemIndex>0) moveUp()else moveDown()

runtimes++

if(runtimes>=stepNo){

onItemIndex=toItemIndex

runtimes=0}

else

setTimeout("changeItem(toItemIndex)",10)

}

function moveUp(){

for(i=onItemIndex+1i<=toItemIndexi++)

eval('document.all.item'+i+'.style.top=parseInt(document.all.item'+i+'.style.top)-contentHeight/stepNo')

}

function moveDown(){

for(i=onItemIndexi>toItemIndexi--)

eval('document.all.item'+i+'.style.top=parseInt(document.all.item'+i+'.style.top)+contentHeight/stepNo')

}

changeItem(0)

//-->

</script>

</body>

</html>

如果对您有帮助,请记得采纳为满意答案,谢谢!祝您生活愉快!


欢迎分享,转载请注明来源:优选云

原文地址:https://54852.com/hy/1030735.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-08-11
下一篇2023-08-11

随机推荐

  • 泊莱雅化妆品怎么样

    珀莱雅适合什么年龄珀莱雅的护肤品运用海洋护肤理念,产品非常多样化,适合各个年龄层使用,只要是18岁以上的人群都可以使用。珀莱雅的护肤品分为很多个系列,每个系列的侧重点都不同,所以最适合的年龄层也不同,下面将为大家详细介绍各系列最适合的年龄层

    2023-12-14
    78700
  • 黔草堂苗家百草膏作用

    对湿疹有抑制作用。这个药膏和普通的湿疹膏是一样的,对皮肤病有抑制作用,可以缓解症状,与其他的湿疹膏不同的是,这个药膏是草本植物配方,不适用激素的人群可以使用。要知道市面上的湿疹膏很多都是含有激素,依赖性较强,因此如果皮肤比较敏感的人可以使用

    2023-12-14
    26400
  • 兰蔻小黑瓶多少钱

    兰蔻小黑瓶价格表兰蔻小黑瓶眼霜15ml 精华眼膜霜 38500元兰蔻小黑瓶套装 小黑瓶肌底液50ml+眼膜霜15ml 112914元Lancome兰蔻小黑瓶精华肌底液50ml76507元兰蔻美颜活肤液精华肌底液小黑瓶7ml480

    2023-12-14
    22900
  • 婉丝男士化妆品怎么样

    婉丝男士化妆品质量很不错。①从外观上识别:好的化妆品应该颜色鲜明、清雅柔和。如果发现颜色灰暗污浊、深浅不一,则说明质量有问题。如果外观浑浊、油水分离或出现絮状物,膏体干缩有裂纹,则不能使用。②从气味上识别:化妆品的气味有的淡雅,有的浓烈,但

    2023-12-14
    20500
  • 益盛汉参化妆品和安值化妆品哪个好

    安值化妆品好。根据查询先关平台信息,安值化妆品十分吻合纯天然62%的女性客户都喜欢用,益盛汉参化妆品和安值化妆品对比如下:1、安植护肤品这个品牌非常的不错,因为这个品牌的产品十分温和,其中所含有的成分也都是纯天然的,因此可以说安植护肤品是敏

    2023-12-14
    17300
  • 贵妇膏有什么功效麦吉丽让你素颜也拥有好气色

    现在市面上的粉底液等其他化妆品越来越多了,伴随着化妆品数量增长的同时,不少化妆品的质量正在下跌,许多女生用的粉底液,上脸之后不仅容易卡粉搓泥,而且暗沉速度快,还容易堵塞毛孔,引发爆痘起皮等现象,因此,一个好的底妆产品是大家都在寻找的,麦吉丽

    2023-12-14
    15900
  • 日本化妆品品牌都有哪些啊

    第一次回答可获2分,答案被采纳可获得悬赏分和额外20分奖励。1、资生堂:主力商品是以三十岁女性为对象的“艾丽克希尔”,另外还有“uvwhite”系列商品,拥有广泛顾客群。2、kanebo:化妆用品“提丝蒂摩”最有人气,另外,“布朗希尔”、“

    2023-12-14
    15500
  • 鼎盛的罗马帝国为什么只“昙花一现”了500年呢

    古罗马帝国衰亡之谜,自然不止一个谜底。例如,古罗马人崇尚武力,对科技的重视远不及古希腊人。又如,两次大瘟疫的沉重打击。第一次,是发生在165-180年间的“黑死病”,即后来所说的鼠疫,导致罗马本土约1/3的人魂归天堂。第二次,是发生在206

    2023-12-13
    21600
  • 怎么检测出护肤品是否有荧光剂

    最好是用那种波长为365nm的紫光灯,波长越短看得越清楚。买一只验钞笔,在完全黑暗的情况下照射在化妆品上有蓝色的光那就是荧光剂因为荧光剂的种类的不同发射和吸收的波长也不同,也可以使用荧光光度计进行检测如果用了含有荧光剂的化妆品或面膜,清洗过

    2023-12-13
    15400

发表评论

登录后才能评论
保存