<!--#include file="../../p_inc/Include_func.asp"-->
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<script>
function SignCheck(cbox){ 
	var obj = document.getElementsByTagName("input"); 
	for (var i=0; i < obj.length; i++) { 
		if(obj[i].type == "radio" && obj[i].className=="s2") { 
			obj[i].checked = false; 
		} 
		cbox.checked = true; 	
	} 
} 
</script>
<%
response.contenttype="text/html;charset=gb2312"
str2=N_Fso.ReadAllTextFile(Add_Root_Dir("/Ztool/search/self.txt"))
str3=str2
str=GetContent(str3,"<备选引擎>","</备选引擎>",0)
str3=str2
google_txt=GetContent(str3,"<google>","</google>",0)
qtCms_search_xiala_display=GetContent(str3,"<是否显示下拉>","</是否显示下拉>",0)

t3=Trim(request("t3")) '

IF t3="ok" Then
	kStr=""
	hStr=""
	set file1=server.CreateObject(G_FSO)
	set folder1=file1.GetFolder(""&server.mappath("../../template")&"")
	ki=0
	for each thing in folder1.SubFolders
		dbname_2=thing.name	
		IF Trim(Request(dbname_2&"b"))<>"" Then
			hStr=Request(dbname_2&"b")&"$"&Request(dbname_2&"a")&vbcrlf	
			kStr=kStr&hStr
		End IF
	Next
	kStr=kStr&"晴天cms$qingtiandy.cn"
	N_Fso.CreateFolderFile Add_Root_Dir("/p_inc/Tag/muban.txt"),kStr
'var qtCms_search_bar=[
'					  ["百度","1","0"],
'					  ["谷歌","1","0"],
'					  ["奇虎","1","0"],
'					  ["购物","1","0"],
'					  ["搜狗","1","0"],
'					  ["站内","1","0"]
'					  ]	
	
	Response.Redirect "4.asp"
End IF

IF t3<>"ok"  Then
Dim a
a=Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","aa","ab","ac","ad","ae","af","ag","ah","ai","aj","ak","al","am","an","ao","ap","aq","ar","as","at","au","av","aw","ax","ay","az","aaa","aab","aac","aad","aae","aaf","aag","aah","aai","aaj","aak","aal","aam","aan","aao","aap","aaq","aar","aas","aat","aau","aav","aaw","aax","aay","aaz","aaab","aaac","aaad","aaae","aaaf","aaag","aaah","aaai","aaaj","aaak","aaal","aaam","aaan","aaao","aaap","aaaq","aaar","aaas","aaat","aaau","aaav","aaaw","aaax","aaay","aaaz")
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder">
<form action="?t3=ok" method="post" name="form1">
	<tr> 
		<th class="tableHeaderText" height=25 colspan="2">多皮肤切换功能</th>
	</tr>	
	<tr> 
		<td height=10 colspan="2"></td>
	</tr>	
	<TR>
		<TD CLASS='InnerHead' STYLE='padding-left:20px;text-align:left'>&nbsp;皮肤前缀</TD>
		<TD CLASS='InnerMain'>
			<TABLE width="700" border="0" cellpadding="0" cellspacing="" bgcolor="#cccccc" style="line-height:25px">
				<TR bgcolor="#cee7ff">
					<TD>前缀和模板：<font color="#FF0000">系统默认主页模板</font> <%=G_moban%> </TD>
				</TR>			
			<%
				set file1=server.CreateObject(G_FSO)
				set folder1=file1.GetFolder(""&server.mappath("../../template")&"")
				ki=0
				for each thing in folder1.SubFolders
				dbname_2=thing.name
				IF G_moban=dbname_2 Then
			%>						
			<%
				Else
					n=Get_pifu_q(dbname_2)
					
					IF n=dbname_2 Then n=a(ki)
			%>
				<TR bgcolor="#ffffff">
					<TD>前缀和模板： 
					<input type="text" value="<%=n%>" size="12" name="<%=dbname_2&"a"%>"/> 
					<input type="text" value="<%=dbname_2%>" readonly="" size="50" style="border:0px" name="<%=dbname_2&"b"%>" />
					</TD>
				</TR>			
			<%
				ki=ki+1
				End IF	
							 
			%>


			<%next%>				
			</TABLE>
		</TD>
	</TR>		
	<tr>
		<td></td>
		<td class=forumRowHighlight>		
		<input type="submit" value="更新保存" id=submit name=submit> 
		<font color="#FF0000">特别注意：修改后，请不要再变动了</font>
		</td>
	</tr>		
</form>	
</table>
<%
End IF
%>