<!--#include file="admin_cook.asp"-->
<!--#include file="../inc/config.asp"-->
<HTML>
<HEAD>
<TITLE>系统基本设置 - 管理页面</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/Style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
</HEAD>
<BODY>
<%
select case Request("menu")
case ""
config
case "config"
config
case "configok"
configok
end select
sub config
%>
<BR style="OVERFLOW: hidden; LINE-HEIGHT: 3px">
<TABLE class=tableBorder cellSpacing=1 cellPadding=2 align=center border=0>
<FORM action="?menu=configok" method=post>
<TBODY>
<TR>
<TH colSpan=2>系统设置</TH>
</TR>
<TR>
<TD class=TableRow1 align=left>
<B>管理选项：</B>
<A href="admin_config.asp#setting1">首面优化设置</A>| 
<A href="admin_config.asp#setting2">关于我们设置</A>| 
<A href="admin_config.asp#setting3">品牌页设置</A>| 
<A href="admin_config.asp#setting4">产品页设置</A>| 
<A href="admin_config.asp#setting5">培训页设置</A>| 
<A href="admin_config.asp#setting6">加盟页设置</A>|
<A href="admin_config.asp#setting7">新闻页设置</A>|
<A href="admin_config.asp#setting8">联系我们设置</A>| 
</TD>
</TR>
<TR>
<TD bgColor=#eeefff>
<FIELDSET style="CURSOR: default">
<LEGEND>首页优化设置
<A name=setting1></A>
[<A href="admin_config.asp#top">顶部</A>]
</LEGEND>
<TABLE class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>
<TBODY>
<TR >
  <TD class=TableRow1 align=right>标题title：</TD>
  <TD class=TableRow1 align=left><textarea name="title1" cols=88 rows=8><%=title1%></textarea></TD>
</TR>
<TR >
  <TD class=TableRow1 align=right>关键词keywrod：</TD>
  <TD class=TableRow1 align=left><TEXTAREA name="keyword1" cols=88 rows=8><%=keyword1%></TEXTAREA></TD>
</TR>
<TR >
<TD class=TableRow1 align=right>描述文本：</TD>
<TD class=TableRow1 align=left>
<TEXTAREA name="miaoshu1" cols=88 rows=8><%=miaoshu1%></TEXTAREA></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width="98%" border=0>
<TBODY>
<TR>
<TD height=5>                </TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>
<FIELDSET style="CURSOR: default">
<LEGEND>关于我们优化设置
<A name=setting2></A>
[<A href="admin_config.asp#top">顶部</A>]
</LEGEND>
<TABLE class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>
<TBODY>
<TR >
  <TD class=TableRow1 align=right>标题title：</TD>
  <TD class=TableRow1 align=left><textarea name="title2" cols=88 rows=8><%=title2%></textarea></TD>
</TR>
<TR >
  <TD class=TableRow1 align=right>关键词keywrod：</TD>
  <TD class=TableRow1 align=left><TEXTAREA name="keyword2" cols=88 rows=8><%=keyword2%></TEXTAREA></TD>
</TR>
<TR >
<TD class=TableRow1 align=right>描述文本：</TD>
<TD class=TableRow1 align=left>
<TEXTAREA name="miaoshu2" cols=88 rows=8><%=miaoshu2%></TEXTAREA></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width="98%" border=0>
<TBODY>
<TR>
<TD height=5>                </TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>
<FIELDSET style="CURSOR: defaul;">
<LEGEND>品牌优化设置
<A name=setting3></A>
[<A href="admin_config.asp#top">顶部</A>]
</LEGEND>
<TABLE class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>
<TBODY>
<TR >
  <TD class=TableRow1 align=right>标题title：</TD>
  <TD class=TableRow1 align=left><textarea name="title3" cols=88 rows=8><%=title3%></textarea></TD>
</TR>
<TR >
  <TD class=TableRow1 align=right>关键词keywrod：</TD>
  <TD class=TableRow1 align=left><TEXTAREA name="keyword3" cols=88 rows=8><%=keyword3%></TEXTAREA></TD>
</TR>
<TR >
<TD class=TableRow1 align=right>描述文本：</TD>
<TD class=TableRow1 align=left>
<TEXTAREA name="miaoshu3" cols=88 rows=8><%=miaoshu3%></TEXTAREA></TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>
<FIELDSET style="CURSOR: defaul;">
<LEGEND>产品展示优化设置
<A name=setting4></A>
[<A href="admin_config.asp#top">顶部</A>]
</LEGEND>
<table class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>
<TBODY>
<TR >
  <TD class=TableRow1 align=right>标题title：</TD>
  <TD class=TableRow1 align=left><textarea name="title4" cols=88 rows=8><%=title4%></textarea></TD>
</TR>
<TR >
  <TD class=TableRow1 align=right>关键词keywrod：</TD>
  <TD class=TableRow1 align=left><TEXTAREA name="keyword4" cols=88 rows=8><%=keyword4%></TEXTAREA></TD>
</TR>
<TR >
<TD class=TableRow1 align=right>描述文本：</TD>
<TD class=TableRow1 align=left>
<TEXTAREA name="miaoshu4" cols=88 rows=8><%=miaoshu4%></TEXTAREA></TD>
</TR>
</TBODY>
</TABLE>

<TABLE width="98%" border=0>
<TBODY>
<TR>
<TD height=5>                </TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>

<TABLE class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>

</TABLE>
<TABLE width="98%" border=0>
<TBODY>
<TR>
<TD height=5>                </TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>
<FIELDSET style="CURSOR: default;">
<LEGEND>培训集锦优化设置
<A name=setting5></A>
[<A href="admin_config.asp#top">顶部</A>]
</LEGEND>
<TABLE class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>
<TR >
  <TD class=TableRow1 align=right>标题title：</TD>
  <TD class=TableRow1 align=left><textarea name="title5" cols=88 rows=8><%=title5%></textarea></TD>
</TR>
<TR >
  <TD class=TableRow1 align=right>关键词keywrod：</TD>
  <TD class=TableRow1 align=left><TEXTAREA name="keyword5" cols=88 rows=8><%=keyword5%></TEXTAREA></TD>
</TR>
<TR >
<TD class=TableRow1 align=right>描述文本：</TD>
<TD class=TableRow1 align=left>
<TEXTAREA name="miaoshu5" cols=88 rows=8><%=miaoshu5%></TEXTAREA></TD>
</TR>
<TBODY>
<TR>
<TD colspan="2" align=right class=TableRow1>&nbsp;</TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>
<FIELDSET style="CURSOR: default;">
<LEGEND>加盟代理优化设置
<A name=setting6></A>
[<A href="admin_config.asp#top">顶部</A>]
</LEGEND>
<TABLE class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>
 <TR >
  <TD class=TableRow1 align=right>标题title：</TD>
  <TD class=TableRow1 align=left><textarea name="title6" cols=88 rows=8><%=title6%></textarea></TD>
</TR>
<TR >
  <TD class=TableRow1 align=right>关键词keywrod：</TD>
  <TD class=TableRow1 align=left><TEXTAREA name="keyword6" cols=88 rows=8><%=keyword6%></TEXTAREA></TD>
</TR>
<TR >
<TD class=TableRow1 align=right>描述文本：</TD>
<TD class=TableRow1 align=left>
<TEXTAREA name="miaoshu6" cols=88 rows=8><%=miaoshu6%></TEXTAREA></TD>
</TR>
<TBODY>
<TR>
<TD colspan="2" align=right class=TableRow1>&nbsp;</TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>
<FIELDSET style="CURSOR: default;">
<LEGEND>新闻资讯优化设置
<A name=setting7></A>
[<A href="admin_config.asp#top">顶部</A>]
</LEGEND>
<TABLE class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>
  <TR >
  <TD class=TableRow1 align=right>标题title：</TD>
  <TD class=TableRow1 align=left><textarea name="title7" cols=88 rows=8><%=title7%></textarea></TD>
</TR>
<TR >
  <TD class=TableRow1 align=right>关键词keywrod：</TD>
  <TD class=TableRow1 align=left><TEXTAREA name="keyword7" cols=88 rows=8><%=keyword7%></TEXTAREA></TD>
</TR>
<TR >
<TD class=TableRow1 align=right>描述文本：</TD>
<TD class=TableRow1 align=left>
<TEXTAREA name="miaoshu7" cols=88 rows=8><%=miaoshu7%></TEXTAREA></TD>
</TR>
<TBODY>
<TR>
<TD colspan="2" align=right class=TableRow1>&nbsp;</TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>
<FIELDSET style="CURSOR: default;">
<LEGEND>联系我们优化设置
<A name=setting8></A>
[<A href="admin_config.asp#top">顶部</A>]
</LEGEND>
<TABLE class=TableBorder2 cellSpacing=1 cellPadding=3 width="99%" align=center border=0>
<TR >
  <TD class=TableRow1 align=right>标题title：</TD>
  <TD class=TableRow1 align=left><textarea name="title8" cols=88 rows=8><%=title8%></textarea></TD>
</TR>
<TR >
  <TD class=TableRow1 align=right>关键词keywrod：</TD>
  <TD class=TableRow1 align=left><TEXTAREA name="keyword8" cols=88 rows=8><%=keyword8%></TEXTAREA></TD>
</TR>
<TR >
<TD class=TableRow1 align=right>描述文本：</TD>
<TD class=TableRow1 align=left>
<TEXTAREA name="miaoshu8" cols=88 rows=8><%=miaoshu8%></TEXTAREA></TD>
</TR>
<TBODY>
<TR>
<TD colspan="2" align=right class=TableRow1>&nbsp;</TD>
</TR>
</TBODY>
</TABLE>
</FIELDSET>
<FIELDSET style="CURSOR: default">
<LEGEND></LEGEND>
</FIELDSET>



<TR>
<TD class=TableRow2 align=middle colSpan=2>
<INPUT class=Button type=submit value=保存设置 name=B1>
</TD>
</TR>

</FORM>
</TBODY></TABLE>
</BODY>
</HTML>
<%
end sub
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
	On Error Resume Next
	Dim objStream,FSFlag,fs,WriteFile
	FSFlag = 1
	If DEF_FSOString <> "" Then
		Set fs = Server.CreateObject(DEF_FSOString)
		If Err Then
			FSFlag = 0
			Err.Clear
			Set fs = Nothing
		End If
	Else
		FSFlag = 0
	End If
	
	If FSFlag = 1 Then
		Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
		WriteFile.Write strBody
		WriteFile.Close
		Set Fs = Nothing
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
			GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将<font color=Red >inc/config.asp</font>文件内容替换成框中内容"
			Err.Clear
			Set objStream = Noting
			Exit Sub
		End If
		With objStream
			.Type = 2
			.Open
			.Charset = "GB2312"
			.Position = objStream.Size
			.WriteText = strBody
			.SaveToFile Server.MapPath(File),2
			.Close
		End With
		Set objStream = Nothing
	End If
End Sub
sub configok
'=====网站基本信息=====
title1 = replace(Trim(Request.Form("title1")),CHR(34),"'")
keyword1 = replace(Trim(Request.Form("keyword1")),CHR(34),"'")
miaoshu1 = replace(Trim(Request.Form("miaoshu1")),CHR(34),"'")
title2 = replace(Trim(Request.Form("title2")),CHR(34),"'")
keyword2 = replace(Trim(Request.Form("keyword2")),CHR(34),"'")
miaoshu2 = replace(Trim(Request.Form("miaoshu2")),CHR(34),"'")
title3 = replace(Trim(Request.Form("title3")),CHR(34),"'")
keyword3 = replace(Trim(Request.Form("keyword3")),CHR(34),"'")
miaoshu3 = replace(Trim(Request.Form("miaoshu3")),CHR(34),"'")
title4 = replace(Trim(Request.Form("title4")),CHR(34),"'")
keyword4 = replace(Trim(Request.Form("keyword4")),CHR(34),"'")
miaoshu4 = replace(Trim(Request.Form("miaoshu4")),CHR(34),"'")
title5 = replace(Trim(Request.Form("title5")),CHR(34),"'")
keyword5 = replace(Trim(Request.Form("keyword5")),CHR(34),"'")
miaoshu5 = replace(Trim(Request.Form("miaoshu5")),CHR(34),"'")
title6 = replace(Trim(Request.Form("title6")),CHR(34),"'")
keyword6 = replace(Trim(Request.Form("keyword6")),CHR(34),"'")
miaoshu6 = replace(Trim(Request.Form("miaoshu6")),CHR(34),"'")
title7 = replace(Trim(Request.Form("title7")),CHR(34),"'")
keyword7 = replace(Trim(Request.Form("keyword7")),CHR(34),"'")
miaoshu7 = replace(Trim(Request.Form("miaoshu7")),CHR(34),"'")
title8 = replace(Trim(Request.Form("title8")),CHR(34),"'")
keyword8 = replace(Trim(Request.Form("keyword8")),CHR(34),"'")
miaoshu8 = replace(Trim(Request.Form("miaoshu8")),CHR(34),"'")
Dim n,TempStr
	TempStr = ""
	TempStr = TempStr & chr(60) & "%" & VbCrLf
		TempStr = TempStr & "'=====网站基本信息=====" & VbCrLf
	TempStr = TempStr & "title1="& Chr(34) & title1 & Chr(34) &"                   '标题设置" & VbCrLf
	TempStr = TempStr & "keyword1="& Chr(34) & keyword1 & Chr(34) &"                   '关键词设置" & VbCrLf
	TempStr = TempStr & "miaoshu1="& Chr(34) & miaoshu1 & Chr(34) &"            '描述设置" & VbCrLf
		TempStr = TempStr & "title2="& Chr(34) & title2 & Chr(34) &"                   '标题设置" & VbCrLf
	TempStr = TempStr & "keyword2="& Chr(34) & keyword2 & Chr(34) &"                   '关键词设置" & VbCrLf
	TempStr = TempStr & "miaoshu2="& Chr(34) & miaoshu2 & Chr(34) &"            '描述设置" & VbCrLf
		TempStr = TempStr & "title3="& Chr(34) & title3 & Chr(34) &"                   '标题设置" & VbCrLf
	TempStr = TempStr & "keyword3="& Chr(34) & keyword3 & Chr(34) &"                   '关键词设置" & VbCrLf
	TempStr = TempStr & "miaoshu3="& Chr(34) & miaoshu3 & Chr(34) &"            '描述设置" & VbCrLf
		TempStr = TempStr & "title4="& Chr(34) & title4 & Chr(34) &"                   '标题设置" & VbCrLf
	TempStr = TempStr & "keyword4="& Chr(34) & keyword4 & Chr(34) &"                   '关键词设置" & VbCrLf
	TempStr = TempStr & "miaoshu4="& Chr(34) & miaoshu4 & Chr(34) &"            '描述设置" & VbCrLf
		TempStr = TempStr & "title5="& Chr(34) & title5 & Chr(34) &"                   '标题设置" & VbCrLf
	TempStr = TempStr & "keyword5="& Chr(34) & keyword5 & Chr(34) &"                   '关键词设置" & VbCrLf
	TempStr = TempStr & "miaoshu5="& Chr(34) & miaoshu5 & Chr(34) &"            '描述设置" & VbCrLf
		TempStr = TempStr & "title6="& Chr(34) & title6 & Chr(34) &"                   '标题设置" & VbCrLf
	TempStr = TempStr & "keyword6="& Chr(34) & keyword6 & Chr(34) &"                   '关键词设置" & VbCrLf
	TempStr = TempStr & "miaoshu6="& Chr(34) & miaoshu6 & Chr(34) &"            '描述设置" & VbCrLf
		TempStr = TempStr & "title7="& Chr(34) & title7 & Chr(34) &"                   '标题设置" & VbCrLf
	TempStr = TempStr & "keyword7="& Chr(34) & keyword7 & Chr(34) &"                   '关键词设置" & VbCrLf
	TempStr = TempStr & "miaoshu7="& Chr(34) & miaoshu7 & Chr(34) &"            '描述设置" & VbCrLf
		TempStr = TempStr & "title8="& Chr(34) & title8 & Chr(34) &"                   '标题设置" & VbCrLf
	TempStr = TempStr & "keyword8="& Chr(34) & keyword8 & Chr(34) &"                   '关键词设置" & VbCrLf
	TempStr = TempStr & "miaoshu8="& Chr(34) & miaoshu8 & Chr(34) &"            '描述设置" & VbCrLf
	
	TempStr = TempStr & "%" & chr(62) & VbCrLf
		ADODB_SaveToFile TempStr,"../inc/config.asp"
	If GBL_CHK_TempStr = "" Then
	Response.Write("<script language=javascript>alert('基本资料更新→更新成功');history.back(1);</script>")
Response.End
Else
ReturnError("您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将<font color=Red >inc/config.asp</font>文件内容替换成框中内容")
	End If
End Sub
%>