最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ASP编程中树型结构的提交
时间：2022-06-30 11:19:19 编辑：袖梨 来源：一聚教程网
演示：http://asp2004.net/temp/treemenu/favorite.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
网络书签
<%
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安全区域调至底。
先按“载入”按钮 ，可能会提示：“在此页上的ActiveX控件和本页上的其他部分交互可能不安全。您想允许这种交互吗？ ”
选择是，收藏夹内容即可载入。再按提交按钮即可保存收藏夹。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
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安全区域调至底。
先按“载入”按钮 ，可能会提示：“在此页上的ActiveX控件和本页上的其他部分交互可能不安全。您想允许这种交互吗？ ”
选择是，收藏夹内容即可载入。再按提交按钮即可保存收藏夹。