|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;<!--
看到论坛里有人发了一个树型菜单,需者甚众,看了一下演示,
仿佛不难完成,趁着周六没事,便也写了一个出来
实际上撑持无穷级分类,发下去与人人分享!!
--------------------------
称号:无穷级分类树型菜单演示
作者:y0h
最初更新:2004-09-1922:40
情况:ASP+ACCESS
//----------List表界说
CreateTableList(IDAUTOINCREMENT,ParentIDlong,TitleText(50),UrlText(50),Flagbit,ChildNumLong,TargetText(10))
--------------------------
-->
<styleType=Text/CSS>
body,td{font-size:13px;}
a:link{color:#442200;text-decoration:none}
a:visited{color:#444400;text-decoration:none}
a:hover{color:#442200;text-decoration:underlineoverline;background-color:#FFFF00}
a.link1:link{color:#FF0000;text-decoration:none}
a.link1:visited{color:#FF0000;text-decoration:none}
a.link1:hover{color:#FF0000;text-decoration:none;background-color:#eeeeee}
</Style>
<!--有人问统一页面分歧链接的分歧作风怎样做,就是这里啦-->
<!--增加节点表单-->
<divalign="center"id=loadstyle="display:none;position:absolute;">
<TABLEbgcolor=ffffeewidth=250Style="border:1pxsolid#dd8888;"><FORMMETHOD=POSTACTION=""name=form1>
<tr><tdalign="center">增加节点</td></tr>
<TR><TDalign="center">
<INPUTTYPE="hidden"Name="ParentID">
题目:<INPUTTYPE="text"NAME="Title"><BR>
链接:<INPUTTYPE="text"NAME="Url"><BR>
方针:<INPUTTYPE="text"NAME="Target"Style="width:70px">
<SELECTNAME=""Style="width:75px"OnChange="JavaScript:Target.value=this.options[this.selectedIndex].value;">
<!--有人问用下拉列表改动文本框的值怎样做,就是这里了-->
<optionvalue="">Default</option>
<optionvalue="Right">Right</option>
<optionvalue="_black">_black</option>
<optionvalue="_Top">_Top</option>
<optionvalue="_parent">_parent</option>
<optionvalue="_self">_self</option>
</SELECT>
</td></tr><tr><tdalign="center">
<INPUTTYPE="submit"Name="提交"value="提交">
<INPUTTYPE="Button"onclick="JavaScript:load.style.display=none"value="作废">
</TD>
</TR></FORM>
</TABLE>
</div>
<!--增加节点表单停止-->
<%
毗连数据库
setconn=server.createobject("ADODB.Connection")
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("File.mdb")
//----------操纵分支
Action=Request("Action")
SelectCaseAction
Case"Add":IfRequest("ParentID")""ThenAdd
Case"Del":Del
Case"Open":Open
CaseElse:
EndSelect
//----------显现列表
PublicList
SetRs=Conn.Execute("Select*From[List]")
IfNotRs.EofThen
List=Rs.GetRows
Max=Conn.Execute("SelectCount(ParentID)FromListWhereParentID=0")(0)
SetRs=Nothing
SetConn=Nothing
CheckList0,Max,""
Else
SetRs=Nothing
SetConn=Nothing
EndIf
Response.Write"<ahref=#+ID;}//有人问删除确认怎样做,就是这里啦}
//-->
</SCRIPT>
没有作美化,没有加别的功效,必要者能够本人改好了!
CreateTableList(IDAUTOINCREMENT,ParentIDlong,TitleText(50),UrlText(50),Flagbit,ChildNumLong,TargetText(10))
间接在查询里实行就能够失掉List表!!
上面是对表的申明
Id主动编号
ParentID长整形
Title文本
Url文本
Flag布尔
ChildNum长整形
Target文本,同意空符串
</p>写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |
|