 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="conn.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>网络书签</title> </head> <body> <% action=request.QueryString("action") if action="save" then dim a(10) a(0)=0 tt=request.Form("tt") t=split(tt,chr(13)) for i=0 to ubound(t)-1 s=split(t(i),chr(9)) conn.execute("insert into menu (id1,menuname,url) values ("&a(s(0)-1)&",\\\'"&s(1)&"\\\',\\\'"&s(2)&"\\\')") if s(2)="" then set rs=conn.execute("select top 1 id as tp from menu order by id desc") a(s(0))=rs("tp") end if next response.Redirect("index.asp") else %> 先把internet安全区域调至底。<br> 先按“载入”按钮 ，可能会提示：“在此页上的ActiveX控件和本页上的其他部分交互可能不安全。您想答应这种交互吗？ ” 选择是，收藏夹内容即可载入。再按提交按钮即可保存收藏夹。 <script language="javascript"> var s; s=""; function ShowFolderFileList(i,folderspec) { var fso,f,fc,name; var url,str,file,filename; var i; fso = new ActiveXObject("Scripting.FileSystemObject"); f = fso.GetFolder(folderspec); s += i++ + "t" + f.Name + "tn"; fc = new Enumerator( f.files ); for (; !fc.atEnd(); fc.moveNext( ) ) { filename = fso.GetFileName( fc.item( ) ); if (filename.indexOf(".url")>=0) { filename = filename.substring( 0 , filename.length-4 ); file = fso.GetFile( fc.item( ) ); ts = file.OpenAsTextStream( 1 , 0 ); str=ts.ReadLine(); while( str.indexOf( "URL=" ) < 0 && !ts.AtEndOfStream ) { str = ts.ReadLine( ); } ts.Close( ); s += i + "t" + filename + "t" + str.substr( str.indexOf( "URL=") + 4 ) + "n"; } } fc = new Enumerator(f.SubFolders); for (; !fc.atEnd(); fc.moveNext()) { ShowFolderFileList(i,fc.item()); } return( s ); } function exe() { document.form1.tt.value=ShowFolderFileList(1,document.form1.t.value) } </script> <form name="form1" method="post" action="favorite.asp?action=save"> <input name="t" type="text" id="t" value="C:\\Documents and Settings\\Administrator\\Favorites" size="70"> <textarea name="tt" cols="120" rows="30" wrap="VIRTUAL"></textarea> <br> <input type="button" name="Submit" value="载入" onClick="exe();"> <input type="submit" name="Submit" value="提交"> </form> <% end if %> </body> </html> 返回类别: 教程 上一教程: 使用ASP加密算法加密你的数据(二) 下一教程: ASP网站漏洞解析及黑客入侵防范方式 您可以阅读与"ASP编程中树型结构的提交"相关的教程: · bbs树型结构的实现方式（二） · 树型结构在ASP中的简朴解决 · ASP编程中20个异常有用的例子 · ASP 中健壮的页结构的非常处理 · ASP 编程中20个异常有用的例子(一) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
