ASP編程中樹型結構的提交

最後更新：2018-12-05 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

示範：http://asp2004.net/temp/treemenu/favorite.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<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 + "/t/n";
   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>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More