当前位置: 首页 > 图文教程 > 网络编程 > ASP > 动态按钮生成器(下)

ASP
超级ASP版DataGrid：SkyGrid本地下载
用QuickWAP组件结合ASP建设Wap站点
ASP中取得图片宽度和高度的类（无组件）
在ASP处理程序时显示进度
结合FSO操作和Aspjpeg组件写的Class
asp实现的7xi音乐网的采集源代码
用asp+xmlhttp编写web采集程序
推荐ASP超速入门视频教程
关于“未指定的错误”的问题 的比较正解的解决方法
用asp脚本实现限制IP访问
aspupload 3.0 下载与使用集锦
[教程+分享]具有良好体验度的Web注册系统
asp 实现视频显示的效果函数
asp实现图片右键滑轮控制大小的函数
彻底掌握ASP分页技术杂谈
aspupload文件重命名及上传进度条的解决方法附代码
ASPJPEG综合操作的CLASS类
asp通用采集函数冗余版可以保存文件到本地
使用ODBC数据库管理Serv-U的FTP用户及相关ASP编程[附源码示例下载]
[asp]阿里西西的alexa采集效果代码

No. « 104 105 106 107 »

技术文章搜索

关键字

ASP 中的 动态按钮生成器(下)

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 169 ::
收藏到网摘: n/a

  由于内容超长，只好分2次贴出，以下为下半部分：
Images.length+=1;for(var b=Images.options.length-1;b>g;b--)
{Images.options[b].text=Images.options[b-1].text;}Images.options[g+1].text=Imagi[g+1].Name;CleanBoxes(window.document.mouseOverForm);}}}else
{if(Images.length!=0)
{var g=-1;var r=no_of_images;Imagi[r]=new ImageObject(Imagi[r-1].Name,Imagi[r-1].OffSrcPro,Imagi[r-1].OffSrc,Imagi[r-1].OnSrcPro,Imagi[r-1].OnSrc,Imagi[r-1].Width,Imagi[r-1].Height,Imagi[r-1].Alt,Imagi[r-1].Border,Imagi[r-1].URL,Imagi[r-1].LinkTarget);for(var p=Imagi.length-2;p>g;p--)
{Imagi[p].Name=Imagi[p-1].Name;Imagi[p].OffSrcPro=Imagi[p-1].OffSrcPro;Imagi[p].OffSrc=Imagi[p-1].OffSrc;Imagi[p].OnSrcPro=Imagi[p-1].OnSrcPro;Imagi[p].OnSrc=Imagi[p-1].OnSrc;Imagi[p].Width=Imagi[p-1].Width;Imagi[p].Height=Imagi[p-1].Height;Imagi[p].Alt=Imagi[p-1].Alt;Imagi[p].Border=Imagi[p-1].Border;Imagi[p].URL=Imagi[p-1].URL;Imagi[p].LinkTarget=Imagi[p-1].LinkTarget;}
Imagi[g+1].URL=URLBox.value;Imagi[g+1].LinkTarget=TargetBox.value;Imagi[g+1].Name=NameBox.value;Imagi[g+1].OffSrcPro=HeadSrc1.value;Imagi[g+1].OnSrcPro=HeadSrc2.value;Imagi[g+1].OffSrc=SrcBox1.value;Imagi[g+1].OnSrc=SrcBox2.value;Imagi[g+1].Width=WidthBox.value;Imagi[g+1].Height=HeightBox.value;Imagi[g+1].Alt=AltBox.value;Imagi[g+1].Border=BorderBox.value;no_of_images++;
Images.length+=1;for(var b=Images.options.length-1;b>g;b--)
{Images.options[b].text=Images.options[b-1].text;}Images.options[g+1].text=Imagi[g+1].Name;CleanBoxes(window.document.mouseOverForm);}else
alert("缺少项目!")
}}}function CheckIt(array,string){if(array==null||array=="")
variable="";else
variable=string+array+"\"";return variable;}function generateIt() {if (document.mouseOverForm.Images.length != 0) {HeadCode = "<SCRIPT LANGUAGE=\"Javascript\">\r" + "<" + "!-" + "-Hide\r\r";HeadCode += "//http://www.njcatv.net/javascript/dai5.htm\r\r";HeadCode += "function isCompatible()\r" + "{\r" + "var BrowserName=navigator.appName;\r" + "var BrowserVer=parseInt(navigator.appVersion);\r" + "var Compatible=(BrowserName==\"Netscape\"&&BrowserVer==3)||(BrowserName==\"Netscape\"||BrowserVer==4)||(BrowserName==\"Microsoft Internet Explorer\"||BrowserVer==4)\r" + "return Compatible;\r" + "}\r\r";HeadCode += "function flipIt(img,tothis)\r" + "{\r" + "if(isCompatible())\r" + "{\r" + "img.src=tothis.src;\r" + "}\r" + "}\r\r";BodyCode = "";for (var count = 0; count < Imagi.length; count++) {var xName = Imagi[count].Name;var xNameOff = Imagi[count].OffSrcPro + Imagi[count].OffSrc;var xNameOn = Imagi[count].OnSrcPro + Imagi[count].OnSrc;var Target = CheckIt(Imagi[count].LinkTarget, "TARGET=\"");var Border=CheckIt(Imagi[count].Border," BORDER=\"");var Alt = CheckIt(Imagi[count].Alt, "ALT=\"");var Width=CheckIt(Imagi[count].Width," WIDTH=\"");var Height = CheckIt(Imagi[count].Height, "HEIGHT=\"");var MouseOver="onMouseOver=\"flipIt(document." + xName + "," + xName + "On);\"";
var MouseOut="onMouseOut=\"flipIt(document." + xName + "," + xName + "Off);\"";
HeadCode+=xName+"Off = new Image();\r";HeadCode+=xName+"Off.src = "+"\"" + xNameOff + "\";"+"\r";HeadCode+=xName+"On = new Image();\r";HeadCode+=xName+"On.src = "+"\"" + xNameOn + "\";"+"\r";BodyCode+="<A HREF=\""+ Imagi[count].URL + "\""+Target+" "+MouseOver+" "+MouseOut+"><IMG SRC=\"" + xNameOff + "\" NAME=\"" + xName + "\""+Border+Alt+Width+Height+"></A>\r\r"