<%@ codepage ="936" %>
  <% 
	data_path="../" 'ACC连接数据库路径，对SQL无效
	numid="05"
	dir="err.asp" 
  %>
 <!--#include file="../conn/conn.asp"-->
  <!--#include file="../inc/safe.asp"--> 
  <!--#include file="rolecheckout.asp"-->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>展会信息类别管理</title>
<LINK href="css/style.css" rel=stylesheet type=text/css>

 <SCRIPT language=javascript>
function checkclass()
{
 if(document.addclassform.keyclass.value.length<1)
 {
   alert("您必须输入类别名称!");
   document.addclassform.keyclass.focus();
   return false;
 }
}
function checkkeyedit()
{
 if(document.editkeyform.editkeyname.value.length<1)
 {
   alert("您必须输入关键字名称!");
   document.editkeyform.editkeyname.focus();
   return false;
 }
}
function suredel()
{
var a=confirm("你确定要删除吗？此操作将删除属于该类别的所有关键字");
if(a)
{
return true;
}
else
{
return false;
}
} 
function suredelkey()
{
var a=confirm("你确定要删除吗？");
if(a)
{
return true;
}
else
{
return false;
}
} 
function checkkey()
{
 if(document.addkeyform.keyname.value.length<1)
 {
   alert("您必须输入关键字名称!");
   document.addkeyform.keyname.focus();
   return false;
 }
}
</SCRIPT> 
 
</HEAD>
<%
	 
	insertkey1=Replace_Text(request.Form("insertkey1"))
	metakeys1=Replace_Text(request.Form("metakeys1"))
	metades1=Replace_Text(request.Form("metades1"))
	 
	insertkey2=Replace_Text(request.Form("insertkey2"))
	metakeys2=Replace_Text(request.Form("metakeys2"))
	metades2=Replace_Text(request.Form("metades2"))
	
	id3=Replace_Text(request("id3"))
	insertkey3=Replace_Text(request.Form("insertkey3"))
	metakeys3=Replace_Text(request.Form("metakeys3"))
	metades3=Replace_Text(request.Form("metades3"))
	
	 insertkey4=Replace_Text(request.Form("insertkey4"))
	metakeys4=Replace_Text(request.Form("metakeys4"))
	metades4=Replace_Text(request.Form("metades4"))
	
	 insertkey5=Replace_Text(request.Form("insertkey5"))
	metakeys5=Replace_Text(request.Form("metakeys5"))
	metades5=Replace_Text(request.Form("metades5"))
	
	 insertkey6=Replace_Text(request.Form("insertkey6"))
	metakeys6=Replace_Text(request.Form("metakeys6"))
	metades6=Replace_Text(request.Form("metades6"))
	
	 insertkey7=Replace_Text(request.Form("insertkey7"))
	metakeys7=Replace_Text(request.Form("metakeys7"))
	metades7=Replace_Text(request.Form("metades7"))
	
	 insertkey8=Replace_Text(request.Form("insertkey8"))
	metakeys8=Replace_Text(request.Form("metakeys8"))
	metades8=Replace_Text(request.Form("metades8"))
	
	 insertkey9=Replace_Text(request.Form("insertkey9"))
	metakeys9=Replace_Text(request.Form("metakeys9"))
	metades9=Replace_Text(request.Form("metades9"))
	
	 
	
	if insertkey1<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys1&"',meta_descriptions='"&metades1&"' where typeid=1"
	end if
	
	if insertkey2<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys2&"',meta_descriptions='"&metades2&"' where typeid=2"
	end if
	
	if insertkey3<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys3&"',meta_descriptions='"&metades3&"' where typeid=3"
	end if
	
	if insertkey4<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys4&"',meta_descriptions='"&metades4&"' where typeid=4"
	end if
	
	if insertkey5<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys5&"',meta_descriptions='"&metades5&"' where typeid=5"
	end if
	
	if insertkey6<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys6&"',meta_descriptions='"&metades6&"' where typeid=6"
	end if
	
	if insertkey7<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys7&"',meta_descriptions='"&metades7&"' where typeid=7"
	end if
	
	if insertkey8<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys8&"',meta_descriptions='"&metades8&"' where typeid=8"
	end if
	
	if insertkey9<>""  then
	 conn.execute "update Websen_MetaInfo set meta_keywords='"&metakeys9&"',meta_descriptions='"&metades9&"' where typeid=9"
	end if
	%>


 <body>
<table width="98%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder"> 
  <tr> 
     <th width="100%" height=25 class="tableHeaderText"> 网站Meta(优化)信息管理 </th> 
  </tr> 
  <tr> 
     <td bgcolor="#FFFFFF" height="20"><font color="#666666"><B>温馨提示</B>：① 网站Meta信息的关键字和描述信息是用于搜索引擎搜索页面的优化作用;②<font color="red">请用"|"将所填的各词之间隔开</font><br>
     &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;③其调用可由【<A onclick="javascript:window.open('labelwrite.asp','','toolbar=no,directories=no,scrollbars=yes,resizable=1,status=no,menubar=no');" href="#">自定义标签辅助工具</A>】产生标签放入各所属系统模板中的关键字优化与描述的"META"标签中生效！其页面的优化关键信息也可由自己制定书写添加而不用该标签</font>   </td> 
  </tr> 
</table>
 
<table width="95%" border="0"  align=center cellpadding="0" cellspacing="0" bgcolor="#F6F6F6" class="tableBorder">
<tr bgcolor="#F0F0F0"><td width="17%" height="25" align="center">栏目名</td>
<td width="31%" align="center">Meta关键字<br>
  (对应标签HOPE_Meta_Keywords(typeid)#)</td>
<td width="38%" align="center">Meta描述信息<br>
  (对应标签#HOPE_Meta_Description(typeid)#)</td>
<td width="14%" align="center">操作</td>
</tr>
<tr><td colspan="4" height="1" bgcolor="#999999"></td></tr>
	<form name="metaform1" action="" method="post">
	<tr    onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''"> 
	<td height="22" align="center">首页:</td>
	<td>
	  <div align="center">
	    <%
	  set rs1=server.CreateObject("adodb.recordset")
	  sql1="select * from Websen_MetaInfo where typeid=1 "
	  rs1.open sql1,conn,1,1
	  if rs1.eof then

    response.Write("")
	  end if
	  if not rs1.eof then
	  content1=rs1("meta_keywords")
	  content2=rs1("meta_descriptions")
	  
     set rs1=nothing

	  end if
	  
	  %>
	    <textarea   name="metakeys1" cols="40" rows="5"><%=content1%></textarea>
	    </div></td><td>
	      <div align="center">
	        <textarea   name="metades1" cols="40" rows="5"><%=content2%></textarea>
          </div></td><td>
	        
            <div align="left">
              <input type="submit" name="insertkey1" value="修改Meta信息">
            </div></td>
	</tr>
	</form>
	<tr bgcolor="#FAFAFA"><td height="8" colspan="4"></td>
  </tr>
<form name="metaform1" action="" method="post">
	<tr  onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''"> 
	<td height="22" align="center">我要采购:</td>
	<td>
	  <div align="center">
	    <%
	  set rs2=server.CreateObject("adodb.recordset")
	  sql2="select * from Websen_MetaInfo where typeid=2 "
	  rs2.open sql2,conn,1,1
	  if rs2.eof then

    response.Write("")
	  end if
	  if not rs2.eof then
	  content21=rs2("meta_keywords")
	  content22=rs2("meta_descriptions")
	  
     set rs2=nothing

	  end if
	  
	  %>
	      <textarea name="metakeys2" cols="40" rows="5"><%=content21%></textarea>
	    </div></td><td>
	      <div align="center">
	        <textarea name="metades2" cols="40" rows="5"><%=content22%></textarea>
          </div></td><td>
            <div align="left">
              <input type="submit" name="insertkey2" value="修改Meta信息">
            </div></td>
	</tr></form>
	<tr bgcolor="#FAFAFA"><td height="8" colspan="4"></td>
  </tr>
	<form name="metaform1" action="" method="post">
	<tr  onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''"> 
	  <td height="22" align="center">我要销售</td>
	  <td>
	  <div align="center">
	    <%
	  set rs3=server.CreateObject("adodb.recordset")
	  sql3="select * from Websen_MetaInfo where typeid=3 "
	  rs3.open sql3,conn,1,1
	  if rs3.eof then

    response.Write("")
	  end if
	  if not rs3.eof then
	  content31=rs3("meta_keywords")
	  content32=rs3("meta_descriptions")
	  
     set rs3=nothing

	  end if
	  
	  %>
	    
	      <textarea name="metakeys3" cols="40" rows="5"><%=content31%></textarea>
	    </div></td><td><div align="center">
	      <textarea name="metades3" cols="40" rows="5"><%=content32%></textarea>
	      </div></td><td>
	        <div align="left">
	          <input type="submit" name="insertkey3" value="修改Meta信息">
            </div></td>
	</tr></form>
	<tr bgcolor="#FAFAFA"><td height="8" colspan="4"></td>
  </tr>
	<form name="metaform1" action="" method="post">
	<tr  onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''"> 
	  <td height="22" align="center">公司库</td>
	  <td>
	  <div align="center">
	    <%
	  set rs4=server.CreateObject("adodb.recordset")
	  sql4="select * from Websen_MetaInfo where typeid=4 "
	  rs4.open sql4,conn,1,1
	  if rs4.eof then

    response.Write("")
	  end if
	  if not rs4.eof then
	  content41=rs4("meta_keywords")
	  content42=rs4("meta_descriptions")
	  
     set rs4=nothing

	  end if
	  
	  %>
	    
	    
	      <textarea name="metakeys4" cols="40" rows="5"><%=content41%></textarea>
	    </div></td><td><div align="center">
	      <textarea name="metades4" cols="40" rows="5"><%=content42%></textarea>
	      </div></td><td>
	        <div align="left">
	          <input type="submit" name="insertkey4" value="修改Meta信息">
            </div></td>
	</tr></form>
	<tr bgcolor="#FAFAFA"><td height="8" colspan="4"></td>
  </tr>
	<form name="metaform1" action="" method="post">
	<tr  onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''"> 
	  <td height="22" align="center">产品库:</td>
	  <td>
		<div align="center">
		  <%
	  set rs5=server.CreateObject("adodb.recordset")
	  sql5="select * from Websen_MetaInfo where typeid=5 "
	  rs5.open sql5,conn,1,1
	  if rs5.eof then

    response.Write("")
	  end if
	  if not rs5.eof then
	  content51=rs5("meta_keywords")
	  content52=rs5("meta_descriptions")
	  
     set rs5=nothing

	  end if
	  
	%>
		      <textarea name="metakeys5" cols="40" rows="5"><%=content51%></textarea>
	    </div></td><td><div align="center">
	      <textarea name="metades5" cols="40" rows="5"><%=content52%></textarea>
	      </div></td><td>
	        <div align="left">
	          <input type="submit" name="insertkey5" value="修改Meta信息">
            </div></td>
	</tr></form>
	<tr bgcolor="#FAFAFA"><td height="8" colspan="4"></td>
  </tr>
	<form name="metaform1" action="" method="post">
	<tr  onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''"> 
	  <td height="22" align="center">专项商机</td>
	  <td>
	
			<div align="center">
			  <%
	  set rs6=server.CreateObject("adodb.recordset")
	  sql6="select * from Websen_MetaInfo where typeid=6 "
	  rs6.open sql6,conn,1,1
	  if rs6.eof then

    response.Write("")
	  end if
	  if not rs6.eof then
	  content61=rs6("meta_keywords")
	  content62=rs6("meta_descriptions")
	  
     set rs6=nothing

	  end if
	  
	%>
			          <textarea name="metakeys6" cols="40" rows="5"><%=content61%></textarea>
	    </div></td><td><div align="center">
	      <textarea name="metades6" cols="40" rows="5"><%=content62%></textarea>
	      </div></td><td>
	        <div align="left">
	          <input type="submit" name="insertkey6" value="修改Meta信息">
            </div></td>
	</tr></form>
	<tr bgcolor="#FAFAFA"><td height="8" colspan="4"></td>
  </tr>
	<form name="metaform1" action="" method="post">
	<tr  onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''"> 
	  <td height="22" align="center">展会</td>
	  <td>
				<div align="center">
				  <%
	  set rs7=server.CreateObject("adodb.recordset")
	  sql7="select * from Websen_MetaInfo where typeid=7 "
	  rs7.open sql7,conn,1,1
	  if rs7.eof then

    response.Write("")
	  end if
	  if not rs7.eof then
	  content71=rs7("meta_keywords")
	  content72=rs7("meta_descriptions")
	  
     set rs7=nothing

	  end if
	  
	%>
				              <textarea name="metakeys7" cols="40" rows="5"><%=content71%></textarea>
	    </div></td><td><div align="center">
	      <textarea name="metades7" cols="40" rows="5"><%=content72%></textarea>
	      </div></td><td>
	        <div align="left">
	          <input type="submit" name="insertkey7" value="修改Meta信息">
            </div></td>
	</tr></form>
	<tr bgcolor="#FAFAFA"><td height="8" colspan="4"></td>
  </tr>
	<form name="metaform1" action="" method="post">
	<tr  onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''"> 
	  <td height="22" align="center">行业信息</td>
	  <td>
	
	  <div align="center">
	    <%
	  set rs8=server.CreateObject("adodb.recordset")
	  sql8="select * from Websen_MetaInfo where typeid=8 "
	  rs8.open sql8,conn,1,1
	  if rs8.eof then

    response.Write("")
	  end if
	  if not rs8.eof then
	  content81=rs8("meta_keywords")
	  content82=rs8("meta_descriptions")
	  
     set rs8=nothing

	  end if
	  
	%>
	      <textarea name="metakeys8" cols="40" rows="5"><%=content81%></textarea>
	    </div></td><td><div align="center">
	      <textarea name="metades8" cols="40" rows="5"><%=content82%></textarea>
	      </div></td><td>
	        <div align="left">
	          <input type="submit" name="insertkey8" value="修改Meta信息">
            </div></td>
	</tr></form>
	<tr bgcolor="#FAFAFA"><td height="8" colspan="4"></td>
  </tr >
	<form name="metaform1" action="" method="post">
	<tr  onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
	  <td height="22" align="center">帮助信息</td>
	  <td >
	
		<div align="center">
		  <%
	  set rs9=server.CreateObject("adodb.recordset")
	  sql9="select * from Websen_MetaInfo where typeid=9 "
	  rs9.open sql9,conn,1,1
	  if rs9.eof then

    response.Write("")
	  end if
	  if not rs9.eof then
	  content91=rs9("meta_keywords")
	  content92=rs9("meta_descriptions")
	  
     set rs9=nothing

	  end if
	  
	%>
		      <textarea name="metakeys9" cols="40" rows="5"><%=content91%></textarea>
	    </div></td><td><div align="center">
	      <textarea name="metades9" cols="40" rows="5"><%=content92%></textarea>
	      </div></td><td>
	        <div align="left">
	          <input type="submit" name="insertkey9" value="修改Meta信息">
            </div></td>
	</tr>
	</form>
 </table>
 
 
<br>
<!--#include file="copy.asp" --></body></html>