<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->
<!--#include file="../KS_Cls/Kesion.AdministratorCls.asp"-->
<!--#include file="Include/Session.asp"-->
<%

Dim KSCls
Set KSCls = New Admin_Ask_Setting
KSCls.Kesion()
Set KSCls = Nothing

Class Admin_Ask_Setting
        Private KS,KSMCls
		Private Sub Class_Initialize()
		  Set KS=New PublicCls
		  Set KSMCls=New ManageCls
		End Sub
        Private Sub Class_Terminate()
		 Call KS.DelCahe(KS.SiteSn & "_Config")
		 Call KS.DelCahe(KS.SiteSn & "_Date")
		 Call CloseConn()
		 Set KS=Nothing
		End Sub

		Public Sub Kesion()
		       Call SetSystem()
		End Sub
	
		'系统基本信息设置
		Sub SetSystem()
		Dim SqlStr, RS, InstallDir, FsoIndexFile, FsoIndexExt
		Dim SetType
		SetType = KS.G("SetType")
		With Response
			If Not KS.ReturnPowerResult(0, "WDXT10000") Then          '检查是否有基本信息设置的权限
			  Call KS.ReturnErr(1, "")
			 .End
			End If
	
			SqlStr = "select AskSetting from KS_Config"
			Set RS = Server.CreateObject("ADODB.recordset")
			RS.Open SqlStr, Conn, 1, 3
			
			Dim Setting:Setting=Split(RS(0)&"^%^^%^^%^^%^^%^^%^^%^^%^0^%^0^%^0^%^0^%^0","^%^")
			If KS.G("Flag") = "Edit" Then
			    Dim N					
			    Dim WebSetting
				For n=0 To 50
				   WebSetting=WebSetting & Replace(KS.G("Setting(" & n &")"),"^%^","") & "^%^"
				Next
				RS("AskSetting")=WebSetting
				RS.Update				
				.Write ("<script>alert('问答参数修改成功！');location.href='KS.AskSetting.asp';</script>")
			End If
			
			.Write "<html>"
			.Write "<title>问答参数设置</title>"
			.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
			.Write "<script src=""../Inc/common.js"" language=""JavaScript""></script>"
			.Write "<script src=""../Inc/jQuery.js"" language=""JavaScript""></script>"
			.Write "<script src=""images/pannel/tabpane.js"" language=""JavaScript""></script>"
			.Write "<link href=""images/pannel/tabpane.CSS"" rel=""stylesheet"" type=""text/css"">"
			.Write "<link href=""Include/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
			.Write "<style type=""text/css"">"
			.Write "<!--" & vbCrLf
			.Write ".STYLE1 {color: #FF0000}" & vbCrLf
			.Write ".STYLE2 {color: #FF6600}" & vbCrLf
			.Write "-->" & vbCrLf
			.Write "</style>" & vbCrLf
			.Write "</head>" & vbCrLf

			.Write "<body bgcolor=""#FFFFFF"" topmargin=""0"" leftmargin=""0"">"
			.Write "<div class='topdashed sort'>问答参数配置</div>"
			.Write "<br>"
			.Write "<div class=tab-page id=spaceconfig>"
			.Write "  <form name='myform' id='myform' method=post action="""" onSubmit=""return(CheckForm())"">"
            .Write " <SCRIPT type=text/javascript>"
            .Write "   var tabPane1 = new WebFXTabPane( document.getElementById( ""spaceconfig"" ), 1 )"
            .Write " </SCRIPT>"
             
			.Write " <div class=tab-page id=site-page>"
			.Write "  <H2 class=tab>基本参数</H2>"
			.Write "	<SCRIPT type=text/javascript>"
			.Write "				 tabPane1.addTabPage( document.getElementById( ""site-page"" ) );"
			.Write "	</SCRIPT>"
			.Write "  <table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" class=""ctable"">"
			.Write "<input type=""hidden"" value=""Edit"" name=""Flag"">"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			.Write "      <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>问答系统状态：</strong></div></td>"
			.Write "      <td width=""63%"" height=""30"">" 
			
				.Write " <input type=""radio"" name=""Setting(0)"" value=""1"" "
				If Setting(0) = "1" Then .Write (" checked")
				.Write "> 打开"
				.Write "    <input type=""radio"" name=""Setting(0)"" value=""0"" "
				If Setting(0) = "0" Then .Write (" checked")
				.Write "> 关闭"

			
			.Write "     </td>"
			.Write "    </tr>"
			
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" class=""clefttitle""align=""right""><div><strong>安装目录：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 	.Write " <input type=""text"" name=""Setting(1)"" size=""20"" value=""" & Setting(1) & """>"

			 .Write "<span style='color:#999999'>--如ask等,必须以""/""结束。</span></td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" class=""clefttitle""align=""right""><div><strong>模块名称：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 	.Write " <input type=""text"" name=""Setting(2)"" size=""20"" value=""" & Setting(2) & """>"

			 .Write "<span style='color:#999999'>--如""问吧""等。</span></td>"
			 .Write "   </tr>"
			 
			 .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align='right'> <div><strong>运行模式：</strong></div></td>"
			 .Write "     <td height=""30"">"
			 	
				.Write " <input type=""radio"" name=""Setting(16)"" value=""0"" "
				If Setting(16) = "0" Then .Write (" checked")
				.Write "> 动态"
				.Write "    <input type=""radio"" name=""Setting(16)"" value=""1"" "
				If Setting(16) = "1" Then .Write (" checked")
				.Write "> 伪静态(<font color=red>需要服务器支持Rewrite组件</font>)"

			 .Write "<div>扩展名<input type='text' name='Setting(17)' value='" & Setting(17) & "' size='10'>"
			 .Write "       <span style='color:#999999'>--更改此配置,需要修改ISAPI_Rewrite的配置文件httpd.ini</span></div></td>"
			 .Write "   </tr>"
			 
			
			 .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align='right'> <div><strong>是否开启提问：</strong></div></td>"
			 .Write "     <td height=""30"">"
			 	
				.Write " <input type=""radio"" name=""Setting(3)"" value=""1"" "
				If Setting(3) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(3)"" value=""0"" "
				If Setting(3) = "0" Then .Write (" checked")
				.Write "> 否"

			 
			 .Write "       </td>"
			 .Write "   </tr>"
			 
			 .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" class=""clefttitle"" align=""right""><div><strong>问题描述/回答长度控制：</strong></div></td>"
			  .Write "    <td height=""30"">"
			  
			  .Write "大于等于<input type=""text"" name=""Setting(4)"" size=""5"" value=""" & Setting(4) & """>小于等于<input type=""text"" name=""Setting(5)"" size=""5"" value=""" & Setting(5) & """> "
			  
			  .Write "    <span style='color:#999999'>--不想控制,请填写0</span></td>"
			 .Write "   </tr>"

			 .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>提问题是否启用验证码：</strong></div></td>"
			 .Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(6)"" value=""1"" "
				If Setting(6) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(6)"" value=""0"" "
				If Setting(6) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    </td>"
				.Write "</tr>"
			 .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>提问题是否需要审核：</strong></div></td>"
			 .Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(18)"" value=""1"" "
				If Setting(18) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(18)"" value=""0"" "
				If Setting(18) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "   <span style='color:#999999'>--启用需要审核,则只有审核通过的问题才会及时显示</span></td>"
				.Write "</tr>"
			 .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>允许上传附件：</strong></div></td>"
			 .Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(42)"" onclick=""document.getElementById('fj').style.display='';"" value=""1"" "
				If Setting(42) = "1" Then .Write (" checked")
				.Write "> 允许"
				.Write "    <input type=""radio"" name=""Setting(42)"" onclick=""document.getElementById('fj').style.display='none';"" value=""0"" "
				If Setting(42) = "0" Then .Write (" checked")
				.Write "> 不允许"
				
				.Write "   <span style='color:#999999'>--启用上传附件功能，提问或回答可以附加上传附件</span>"
			 If Setting(42)="1" Then
			  .Write "<div id='fj'>"
			 Else
				.Write "<div id='fj' style='display:none;'>"
			 End If
			 .Write "<font color=green>允许上传的文件类型：<input name=""Setting(43)"" type=""text"" value=""" & Setting(43) &""" size='30'>多个类型用|线隔开<br/>允许上传的文件大小：<input name=""Setting(44)"" type=""text"" value=""" & Setting(44) &""" style=""text-align:center"" size='8'>KB<br/>每天上传文件个数：<input name=""Setting(45)"" type=""text"" value=""" & Setting(45) &""" style=""text-align:center"" size='8'>个,不限制请填0</font><br/><br/>"
			 .Write "<br/><strong>允许在此版本上传附件的用户组:</strong>"
			 .Write KS.GetUserGroup_CheckBox("Setting(46)",Setting(46),5)
			 .Write "<font color=blue>不限制请不要勾选</font></div>"
				
				.Write "</td>"
				.Write "</tr>"
				
				
				
				.Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			    .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>提问题最长可设置的有效天数：</strong></div></td>"
			    .Write "  <td height=""30""><input type='text' name='Setting(41)' value='" & Setting(41) & "' style='text-align:center;width:50px'>天"
				.Write "  </td></tr>"

				
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			    .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>是否允许回答：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(7)"" value=""1"" "
				If Setting(7) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(7)"" value=""0"" "
				If Setting(7) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    </td>"
				.Write "</tr>"
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			    .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>回答问题是否启用验证码：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(8)"" value=""1"" "
				If Setting(8) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(8)"" value=""0"" "
				If Setting(8) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    </td>"
				.Write "</tr>"
				
				
				
				
			 .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>是否只能回答一次：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(9)"" value=""1"" "
				If Setting(9) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(9)"" value=""0"" "
				If Setting(9) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    <span style='color:#999999'>--在每个问题中是否每个人只能回答一次</span></td>"
				.Write "</tr>"
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			    .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>提问者是否允许问题补充：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(10)"" value=""1"" "
				If Setting(10) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(10)"" value=""0"" "
				If Setting(10) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    <span style='color:#999999'>--提问人可以进一步的补充问题</span></td>"
				.Write "</tr>"
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			    .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>提问人可以回答自己提问的问题：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(11)"" value=""1"" "
				If Setting(11) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(11)"" value=""0"" "
				If Setting(11) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    </td>"
				.Write "</tr>"
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			    .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>提问人可以删除用户的回答：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(12)"" value=""1"" "
				If Setting(12) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(12)"" value=""0"" "
				If Setting(12) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    </td>"
				.Write "</tr>"
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			    .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>是否允许游客提问题：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(47)"" value=""1"" "
				If Setting(47) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(47)"" value=""0"" "
				If Setting(47) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    <span style='color:#999999'>--游客提问题的问题只能由管理员设置最佳答案，并且使用系统函数标签查询调用问题时性能有所影响，常规情况下建议不要开启游客提问</span> </td>"
				.Write "</tr>"
				

				
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			    .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>是否允许游客回答问题：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""radio"" name=""Setting(13)"" value=""1"" "
				If Setting(13) = "1" Then .Write (" checked")
				.Write "> 是"
				.Write "    <input type=""radio"" name=""Setting(13)"" value=""0"" "
				If Setting(13) = "0" Then .Write (" checked")
				.Write "> 否"
				
				.Write "    </td>"
				.Write "</tr>"
				
				
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			   .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>列表页每页显示条数：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""text"" name=""Setting(14)"" value=""" & Setting(14) & """ size=""6"">条"
				
				.Write "    <span style='color:#999999'>--对应前台的showlist.asp</span></td>"
				.Write "</tr>"
			    .Write "   <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			   .Write "     <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>问题详情每页显示条数：</strong></div></td>"
				.Write "  <td height=""30"">"
				
				.Write " <input type=""text"" name=""Setting(15)"" value=""" & Setting(15) & """ size=""6"">条"
				
				.Write "    <span style='color:#999999'>--对应前台的q.asp</span></td>"
				.Write "</tr>"
				


			

			 .Write " </table>"
			 .Write "</div>"
			 
			.Write " <div class=tab-page id=template-page>"
			.Write "  <H2 class=tab>问答模板</H2>"
			.Write "	<SCRIPT type=text/javascript>"
			.Write "				 tabPane1.addTabPage( document.getElementById( ""template-page"" ) );"
			.Write "	</SCRIPT>"
			.Write "  <table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" class=""ctable"">"
            .Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			.Write "      <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>问答首页模板：</strong><br />(<a href='../" & KS.ASetting(1) & "index.asp' target='_blank' style='color:blue'>index.asp</a>)</div></td>"
			.Write "      <td width=""63%"" height=""30""> <input name=""Setting(20)"" id=""Setting20"" type=""text"" value=""" & Setting(20) & """ size=""30"">&nbsp;" & KSMCls.Get_KS_T_C("$('#Setting20')[0]") & "</td>"
			.Write "    </tr>"            
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			.Write "      <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>提问问题模板：</strong><br />(<a href='../" & KS.ASetting(1) & "a.asp' target='_blank' style='color:blue'>a.asp</a>)</div></td>"
			.Write "      <td width=""63%"" height=""30""> <input name=""Setting(21)"" id=""Setting21"" type=""text"" value=""" & Setting(21) & """ size=""30"">&nbsp;" & KSMCls.Get_KS_T_C("$('#Setting21')[0]") & "</td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			.Write "      <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>问题列表页模板：</strong><br />(<a href='../" & KS.ASetting(1) & "showlist.asp' target='_blank' style='color:blue'>showlist.asp</a>)</div></td>"
			.Write "      <td width=""63%"" height=""30""> <input name=""Setting(22)"" id=""Setting22"" type=""text"" value=""" & Setting(22) & """ size=""30"">&nbsp;" & KSMCls.Get_KS_T_C("$('#Setting22')[0]") & "</td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			.Write "      <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>问题内容页模板：</strong><br />(<a href='../" & KS.ASetting(1) & "q.asp' target='_blank' style='color:blue'>q.asp</a>)</div></td>"
			.Write "      <td width=""63%"" height=""30""> <input name=""Setting(23)"" id=""Setting23"" type=""text"" value=""" & Setting(23) & """ size=""30"">&nbsp;" & KSMCls.Get_KS_T_C("$('#Setting23')[0]") & "</td>"
			.Write "    </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			.Write "      <td width=""32%"" height=""30"" class=""clefttitle"" align=""right""><div><strong>问题搜索页模板：</strong><br />(<a href='../" & KS.ASetting(1) & "search.asp' target='_blank' style='color:blue'>search.asp</a>)</div></td>"
			.Write "      <td width=""63%"" height=""30""> <input name=""Setting(24)"" id=""Setting24"" type=""text"" value=""" & Setting(24) & """ size=""30"">&nbsp;" & KSMCls.Get_KS_T_C("$('#Setting24')[0]") & "</td>"
			.Write "    </tr>"
			
			
			 .Write " </table>"
			.Write " </div>"

			.Write " <div class=tab-page id=user-page>"
			.Write "  <H2 class=tab>积分设置</H2>"
			.Write "	<SCRIPT type=text/javascript>"
			.Write "				 tabPane1.addTabPage( document.getElementById( ""user-page"" ) );"
			.Write "	</SCRIPT>"
			.Write "  <table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" class=""ctable"">"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>用户回答一个问题所得的积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(30)"" size=""10"" value=""" & Setting(30) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>回答被提问者采纳所额外奖励的积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(31)"" size=""10"" value=""" & Setting(31) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>用户处理问题所得的积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(32)"" size=""10"" value=""" & Setting(32) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>问题被选为精彩推荐提问者所得的积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(33)"" size=""10"" value=""" & Setting(33) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>问题被选为精彩推荐最佳回答者所得的积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(34)"" size=""10"" value=""" & Setting(34) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>用户发表一个问题所获的积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(35)"" size=""10"" value=""" & Setting(35) & """> 分"
			 .Write "     <span style='color:#999999'>设置成负数则表示提问题要消费</span></td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>匿名提问减去积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(36)"" size=""10"" value=""" & Setting(36) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>删除答案减去回答者积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(37)"" size=""10"" value=""" & Setting(37) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>删除最佳答案减去回答者积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(38)"" size=""10"" value=""" & Setting(38) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>删除未解决问题减去积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(39)"" size=""10"" value=""" & Setting(39) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write "    <tr valign=""middle"" class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'"" onMouseOut=""this.className='tdbg'"">"
			 .Write "     <td height=""30"" width=""32%"" class=""clefttitle""align=""right""><div><strong>删除已解决问题减去积分：</strong></div></td>"
			 .Write "     <td height=""30""> "
			 .Write "       <input type=""text"" name=""Setting(40)"" size=""10"" value=""" & Setting(40) & """> 分"
			 .Write "     </td>"
			 .Write "   </tr>"
			.Write " </table>"
			.Write " </div>"
			.Write "<div style=""text-align:center;color:#003300""></div>"
			.Write " </body>"
			.Write " </html>"
			.Write " <Script Language=""javascript"">"
			.Write " <!--" & vbCrLf
			.Write " function CheckForm()" & vbCrLf
			.Write " {" & vbCrLf
			.Write "if ($('#Setting20').val()=='')" & vbCrLf
			.Write "{ alert('请选择问答首页模板!');" & vbCrLf
			.Write "  $('#Setting20').focus();" & vbCrLf
			.Write "  return false;" & vbCrLf
			.Write "}" & vbCrLf

			.Write "     $('#myform').submit();" & vbCrLf
			.Write " }" & vbCrLf
			.Write " //-->" & vbCrLf
			.Write " </Script>" & vbCrLf
			RS.Close:Set RS = Nothing:Set Conn = Nothing
		End With
		End Sub
	
		

End Class
%> 
