📄 edit2.asp

📁 家教育全站代码
💻 ASP
字号:
<!--#include file="Safety.asp"-->
<!--#include file="char.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="上网导航 网址大全 搜索 分类 娱乐 爱上网 23973.com">
<meta name="description" content="上网导航 网址大全 搜索 分类 娱乐 爱上网 23973.com">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
td{font-size:12px;}
</style>

<script>
function checkform1(){

if(form1.linkname.value=="")
{

alert("链接名称不能为空!");
form1.linkname.focus();
return false;
}
if(form1.linkurl.value=="")
{

alert("链接路径不能为空!");
form1.linkurl.focus();
return false;
}

if(form1.imgpath.value=="")
{

alert("图片路径不能为空!");
form1.imgpath.focus();
return false;
}



}
</script>
<title>爱上网23973.com－精选网址大全</title></head>


<body topmargin="10">

<script language="javascript" src="/top.js"></script>

<%
	filePath = "word.xml"
	Set objXML = Server.CreateObject("Microsoft.XMLDOM")
   'Set objXML = server.CreateObject("Msxml2.DOMDocument")
        objXML.async = False
        loadResult = objXML.Load(server.MapPath(filePath))
        If Not loadResult Then
             Response.Write ("加载XML文件出错!")
               Response.End
         End If		

      id =  Request("ID")
	  	  
	  
      Set objNodes = objXML.selectSingleNode("xml/guestbook/item[id ='" & id & "']")



      if Not IsNull(objNodes) then
	  
	  linkname=objNodes.childNodes(2).text  
	  linkurl=objNodes.childNodes(3).text
	  imgpath=objNodes.childNodes(4).text
	  
       linkname2 = trim(Request("linkname"))
	   linkurl2=trim(request("linkurl"))
	   imgpath2=trim(request("imgpath"))
	   
       if linkname2 <> "" and linkurl2 <> "" and imgpath2<>"" then
	   
		objNodes.childNodes(2).text  = linkname2
		
		objNodes.childNodes(3).text  = linkurl2

		objNodes.childNodes(4).text  = imgpath2
		
		objXML.save(server.MapPath(filePath))
				
		Set objXML=nothing
		
		Response.Write "<script>window.alert('图片链接修改成功！');window.location='admin.asp';</script>"
		
		response.end
		
       end if
	   
      end if
	  
	  
%>

 <table width='729' border='0' align='center' cellpadding='0' cellspacing='0'>
<tr><td height='20' colspan='2' valign='middle' style='font-size:12px;color:#000000;background:#72BEFE;BORDER-RIGHT:#aaaaaa 1px solid;padding-top:3px;'>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -