|
|
|
ASP函数库
作者:Webmaster 来源:Linuxdby.com 点击:
日期:2007-05-31
[收藏] [投稿]
|
Response.Write "{if (Htmlmode=='N'){MZYEDITWINDOW.document.body.innerHTML=MZYEDITWINDOW.document.body.innerText;Htmlmode='Y';}" & vbCrlf
Response.Write "}" & vbCrlf
Response.Write "function view(){testwin=open('', 'testwin','status=no,menubar=no,toolbar=no,resizable=yes,scrollbars=yes');testwin.document.open();testwin.document.write(MZYEDITWINDOW.document.body.innerHTML);}" & vbCrlf
Response.Write "function inputexcel(){s='<OBJECT id=Spreadsheet1 codeBase=file:\Bobsoftwareoffice2000msowc.cab height=250 width=100% classid=clsid:0002E510-0000-0000-C000-000000000046></OBJECT>';InsertOle(s);}" & vbCrlf
Response.Write "function inputtable(h,l)" & vbCrlf
Response.Write "{" & vbCrlf
Response.Write "s='<table border=1 width=100% cellspacing=0 cellpadding=0>';" & vbCrlf
Response.Write "for(i=1 ;i<=l;i++){s=s+'<tr>';for(j=1;j<=h;j++)s=s+'<td> </td>';s=s+'</tr>';}" & vbCrlf
Response.Write "s=s+'</table>';" & vbCrlf
Response.Write "return s;" & vbCrlf
Response.Write "}" & vbCrlf
Response.Write "function inputimage()" & vbCrlf
Response.Write "{" & vbCrlf
Response.Write "var temp=showModalDialog('"&GtimgPath&"','', 'dialogWidth:30em; dialogHeight:26em; status:0');" & vbCrlf
Response.Write "MZYEDITWINDOW.focus();" & vbCrlf
Response.Write "if ((temp!==null) && (temp!==''))" & vbCrlf
Response.Write "doadv('InsertImage',temp);" & vbCrlf
Response.Write "}" & vbCrlf
Response.Write "function inputother()" & vbCrlf
Response.Write "{" & vbCrlf
Response.Write "var temp=showModalDialog('"&GtswfPath&"','', 'dialogWidth:30em; dialogHeight:26em;status:0');" & vbCrlf
Response.Write "var tempa="&chr(34)&"<p align='center'><a onclick='MZYmovie.Play();' STYLE='cursor:hand;'>播放</a> <a onclick='MZYmovie.StopPlay();' STYLE='cursor:hand;'>暂停</a> <a onclick=\"&chr(34)&"MZYmovie.width='600';MZYmovie.height='600';\"&chr(34)&" STYLE='cursor:hand;'>最大化</a> <a onclick=\"&chr(34)&"MZYmovie.width='500';MZYmovie.height='400';\"&chr(34)&" STYLE='cursor:hand;'>恢复</a><br><table NAME='FFWH' ID='FFWH' border='0' width='100%' height='100%' cellspacing='0' cellpadding='0'><tr><td width='100%' height='90%' valign='middle' align='center'>"&chr(34)&";" & vbCrlf
Response.Write "var tempb="&chr(34)&"<EMBED SRC='"&chr(34)&";" & vbCrlf
Response.Write "var tempc="&chr(34)&"' WIDTH='500' HEIGHT='400' QUALITY='high' PLUGINSPAGE='http://www.macromedia.com/go/getflashplayer' TYPE='application/x-shockwave-flash' ID='MZYmovie' NAME='MZYmovie' MENU='false'>"&chr(34)&";" & vbCrlf
Response.Write "var tempd="&chr(34)&"</td></tr></table></p>"&chr(34)&";" & vbCrlf
Response.Write "MZYEDITWINDOW.focus();" & vbCrlf
Response.Write "if ((temp!==null) && (temp!==''))" & vbCrlf
Response.Write "temp=tempa+tempb+temp+tempc+tempd;" & vbCrlf
Response.Write "InsertOle(temp);" & vbCrlf
Response.Write "}" & vbCrlf
Response.Write "function inputotherpl()" & vbCrlf
Response.Write "{" & vbCrlf
Response.Write "var pl_w = prompt('录入影片的宽度', '100');" & vbCrlf
Response.Write "var pl_h = prompt('录入影片的高度', '100');" & vbCrlf
Response.Write "var tempwh="&chr(34)&"WIDTH="&chr(34)&"+pl_w+"&chr(34)&" HEIGHT="&chr(34)&"+pl_h;"
Response.Write "var temp=showModalDialog('"&GtwavPath&"','', 'dialogWidth:30em; dialogHeight:26em; status:0');" & vbCrlf
Response.Write "var temprma="&chr(34)&"<OBJECT CLASSID='clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA' ID='MZYMPL' "&chr(34)&";"
Response.Write "var temprmb="&chr(34)&"><PARAM NAME='SRC' VALUE='"&chr(34)&";"
Response.Write "var temprmc="&chr(34)&"'></OBJECT>"&chr(34)&";"
Response.Write "var tempmpa="&chr(34)&"<OBJECT CLASSID='clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6' ID='MZYMPL'"&chr(34)&";"
Response.Write "var tempmpb="&chr(34)&"><PARAM NAME='URL' VALUE='"&chr(34)&";"
Response.Write "var tempmpc="&chr(34)&"'></OBJECT>"&chr(34)&";"
Response.Write "MZYEDITWINDOW.focus();" & vbCrlf
Response.Write "if ((temp!==null) && (temp!==''))" & vbCrlf
Response.write "var pllx = confirm('是否使用Windows media player?')"&vbCrlf
Response.write "if (pllx != '0'){"&vbCrlf
Response.Write "temp=tempmpa+' '+tempwh+' '+tempmpb+temp+tempmpc;"&vbCrlf
如果您对本文有任何疑问或者建议，请到讨论区发表您的意见:
>>
论坛入口 <<
上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 1819 20 21 22 23 24 25 26 下一页
上一篇：SubSonic 的字段名未转义问题修正 下一篇：关于分页查询和性能问题
|
|
|
| 【文章评论】
【收藏本文】
【推荐好友】
【打印本文】
【我要投稿】 【论坛讨论】 |
 相关文章: |
| ·从本质上看网页（asp，jsp）的编写 | ·学以致用 驳“ASP低能论” ·用VB构建Internet的应用·Asp的安全管理（12）·Windows 2000 安全性技术概述--3·Windows 2000 安全性技术概述--2·Windows 2000 安全性技术概述--1·ActiveX技术综述（二） ·ActiveX技术综述（一） ·动态网页技术--CGI:ASP:JSP:PHP(4)
文章评论:(1条) |
|
|
|
|
声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。 |
|
设为主页
收藏本站
