?? editpage.asp
字號(hào):
<%
' Use of this software is permitted, provided that the code is NOT
' modified without written permission of Yansa Inc. (http://www.yasna.com)
' THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
' WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
' OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
' ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
' LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
' USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
' ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
' OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
' OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
' SUCH DAMAGE.
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
'declaring variables
Dim objXML
Dim node,cnode,newnode
Dim counter
Dim objNode
Dim root
Dim RandomValue
Dim BannerName
Dim arrayName(10)
Dim strXMLFile
Dim nodeid,maxid
'informing the XML file name
strXMLFile = server.MapPath("xml/intranet.xml")
'starting XMLDOM
set objXML = Server.CreateObject("Msxml2.DOMDocument")
'turning off asynchronous loading
objXML.async = false
'loading the XML file
objXML.load(strXMLFile)
%>
<html>
<head>
<title>Edit Admin</title>
<style>
BODY {background-color: white;font-family:arial; font-size:11}
</style>
</head>
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<table width="100%" bgcolor="#0000ff"><tr><td align="center"><p style="font-family : Arial, Helvetica, sans-serif;font-size :12px;font-weight : bold;color : #FF2E1F;">Easy Intranet Admin</p></td></tr></table>
<%
username = Request.form("user")
password = Request.form("pass")
if username = "" and password = "" then
username = session("user")
password = session("pass")
end if
%>
<!-- #include file="validate.asp" -->
<%
Set root = objXML.documentElement
Set objNode = root.childNodes
nodeid = "0"
maxid = 0
nodeid = Request.QueryString("id")
doCreate = Request.form("doCreate")
doDelete = Request.form("doDelete")
deleteID = Request.form("did")
newTitle = Request.form("title")
if nodeid = "" then
nodeid="0"
end if
' Create the page
For Each node In objNode
if node.attributes.item(0).value = nodeid then
%>
<table border="0" cellspacing="0" cellpadding="10">
<%
' Delete the node that was requested
if doDelete then
'response.write node.childNodes.item(1).childNodes.item(deleteID).xml
node.childNodes.item(1).removechild(node.childNodes.item(1).childNodes.item(deleteID))
end if
i = 0
' Display the nodes
For Each cnode In node.childNodes.item(1).childNodes
response.write "<tr>"
if cnode.childNodes.item(1).attributes.item(0).value = 0 then
Response.write "<td><a href=""editpage.asp?id="& cnode.childNodes.item(1).Text &""">"&cnode.childNodes.item(0).Text &"</a>" &vbCRLF
else
Response.write "<td><a href=""docs/"& cnode.childNodes.item(1).Text &""">"&cnode.childNodes.item(0).Text &"</a>" &vbCRLF
end if
response.write "</td><form action=""editpage.asp?id="&nodeid&""" method=""post""><input type=""hidden"" name=""doDelete"" value=""true""><input type=""hidden"" name=""did"" value="""&i&"""><td align=""center"" valign=""middle""><input type=""submit"" name=""operation"" value=""Delete""></td></form></tr>"
i = i +1
Next
end if
Next
%>
</table>
<p></p>
<p></p>
<div style="border-Top: #A91905 2px solid;font-size:16">Add To This Page:</div>
<br><br>
<form enctype="multipart/form-data" action="adddoc.asp?id=<%=nodeid%>" method="post">
<input type="hidden" name="doCreate" value="true">
<span style="font-family:arial; font-size:13;padding-left : 5px;">Link Title:</span> <input type="text" name="title" value=""><br>
<span style="font-family:arial; font-size:13;padding-left : 5px;">File:</span> <input type="File" name="file" value=""><br><br>
<input type="Submit" name="operation" value="Create">
</form>
<%
objXML.save(strXMLFile)
%>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -