📄 reply.asp

📁 免费实用家教网整站程序(奥运特别版) v1.5
💻 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="Job 528招聘求职网=免费在线求职、免费招聘、企业招聘、人才市场、工作就业信息-杰博528免费人才招聘网">
<meta name="description" content="Job 528招聘求职网=免费在线求职、免费招聘、企业招聘、人才市场、工作就业信息-杰博528免费人才招聘网">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
td{font-size:12px;}
</style>

<script language="javascript">

function checkspace(astr)

{

bstr=""
cd=astr.length
for(i=0;i<cd;i++)
 { if(astr.charAt(" ")>=0)
    {bstr=bstr+" "}
 }

if(bstr==astr)
 {
return true;
}
else{return false;}

}


function checkform() {

if(checkspace(form1.msgre.value))

{
   alert ("请输入回复内容!");
   form1.msgre.value="";
	form1.msgre.focus();
	return false;

}





}


</script>

<title>Job 528招聘求职网=免费在线求职、免费招聘、企业招聘、人才市场、工作就业信息-杰博528免费人才招聘网</title></head>


<body topmargin="10">




<%
	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.QueryString("ID")
      Set objNodes = objXML.selectSingleNode("xml/guestbook/item[id ='" & id & "']")



      if Not IsNull(objNodes) then
	  reply=objNodes.childNodes(6).text
       msgre = htmlencode2(Request.form("msgre"))
       if msgre <> "" then
		objNodes.childNodes(6).text  = msgre
		objNodes.childNodes(7).text  = now()
		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 + -