<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
SetFlag=ChkStr(Request("SetFlag"),1)
Sql="Select * From CFCount_SetContent Where SetFlag='"&SetFlag&"'"
Set Rs=Conn.Execute(Sql)

If Rs.Eof Then Call AlertUrl("没有找到相应的配置",Request.ServerVariables("Http_Referer"))
%>

<table class="tb_1">
<tr>
<td class="td_1">
<a href="?Action=setcontentlist&SetBClassFlag=<%=Rs("SetBClassFlag")%>&SetSClassFlag=<%=Rs("SetSClassFlag")%>" class="t_button">返回三级配置列表</a>
<a href="?Action=setsclasslist&SetBClassFlag=<%=Rs("SetBClassFlag")%>" class="t_button">返回二级设置配置列表</a>
<a href="?Action=setbclasslist" class="t_button">返回一级设置配置列表</a>
</td>
</tr>
</table>
	
	
<%If Rs("SetContentType")=1 Then%>

    <form name="form1" method="post" action="AdminUser.aspx?Action=setcontentmodifysave&SetFlag=<%=SetFlag%>&SetBClassFlag=<%=Rs("SetBClassFlag")%>&SetSClassFlag=<%=Rs("SetSClassFlag")%>&CurrUrl=<%=Server.URLEncode(HttpPath(4))%>">

<table class="tb_1"><tr class="tr_1">
      <td colspan="2">设置修改</td>
    </tr>
      <tr>
        <td>设置标识：</td>
        <td><%=Rs("SetFlag")%></td>
      </tr>
      <tr>
        <td>设置副标识：</td>
        <td><%=Rs("SetFlag_2")%></td>
      </tr>
	  <tr>
        <td>设置描述：</td>
        <td><input name="SetDesc" type="text" id="SetDesc" value="<%=Rs("SetDesc")%>" size="80">*</td>
      </tr>
      <tr>
        <td>设置值：</td>
        <td><textarea name="SetValue" cols="78" rows="5"><%=Rs("SetValue")%></textarea></td>
      </tr>
      <tr>
        <td>设置备注：</td>
        <td><textarea name="SetRemark" cols="78" rows="5"<%If Rs("SetType")=1 Then Response.write " readonly style='background-color:#eeeeee'"%>><%=Rs("SetRemark")%></textarea>		</td>
      </tr>
	  <tr>
	    <td>设置的类型：</td>
	    <td><input type="radio" name="SetType" value="1"<%If Rs("SetType")=1 Then Response.write " checked"%>>内部
        <input type="radio" name="SetType" value="2"<%If Rs("SetType")=2 Then Response.write " checked"%>>外部</td>
      </tr>
	  <tr>
	    <td class="td_wauto">设置的内容编辑方式：</td>
	    <td><input type="radio" name="SetContentType" value="1"<%If Rs("SetContentType")=1 Then Response.write " checked"%>>代码方式
        <input type="radio" name="SetContentType" value="2"<%If Rs("SetContentType")=2 Then Response.write " checked"%>>内容方式</td>
      </tr>
	  <tr>
	    <td>排序数字：</td>
	    <td><input name="SetTaxis" type="text" id="SetTaxis" value="<%=Rs("SetTaxis")%>" size="20">*</td>
      </tr>
	  <tr>
        <td>&nbsp;</td>
        <td><input type="submit" name="Submit222" value="修改"></td>
      </tr>
</table></form>
  
<%End If%>

<%If Rs("SetContentType")=2 Then%>
  <table class="tb_1">

	
<script>
function contentmodifycheck()
{
 form.setvalue.value = getHTML();
 form.content.value = "";
 return true;
}
</script>

<form name="form" method="post" action="AdminUser.aspx?Action=setcontentmodifysave&SetFlag=<%=SetFlag%>&SetBClassFlag=<%=Rs("SetBClassFlag")%>&SetSClassFlag=<%=Rs("SetSClassFlag")%>&CurrUrl=<%=Server.URLEncode(HttpPath(4))%>" onsubmit="contentmodifycheck();">


    <tr class="tr_1">
      <td colspan="2">设置修改</td>
    </tr>
      <tr>
        <td>设置标识：</td>
        <td><%=Rs("SetFlag")%></td>
      </tr>
      <tr>
        <td>设置副标识：</td>
        <td><%=Rs("SetFlag_2")%></td>
      </tr>
	  <tr>
        <td>设置描述：</td>
        <td><input name="SetDesc" type="text" id="SetDesc" value="<%=Rs("SetDesc")%>" size="80">*</td>
      </tr>
      <tr>
        <td>设置值：</td>

<td>
<input type="hidden" id="SetValue" name="SetValue" value="<%=server.HTMLEncode(Rs("SetValue"))%>" style="display:none" /><input type="hidden" id="FCKeditor1___Config" value="" style="display:none" /><iframe id="FCKeditor1___Frame" src="FckEditor/editor/fckeditor.html?InstanceName=SetValue&amp;Toolbar=Default" width="580" height="350" frameborder="0" scrolling="no"></iframe>
</td>
      </tr>
      <tr>
        <td>设置备注：</td>
        <td><textarea name="SetRemark" cols="80" rows="5"><%=Rs("SetRemark")%></textarea>		</td>
      </tr>
<tr>
	    <td>设置的类型：</td>
	    <td><input type="radio" name="SetType" value="1"<%If Rs("SetType")=1 Then Response.write " checked"%>>内部
        <input type="radio" name="SetType" value="2"<%If Rs("SetType")=2 Then Response.write " checked"%>>外部</td>
    </tr>
	  <tr>
	    <td class="td_wauto">设置的内容编辑方式：</td>
	    <td><input type="radio" name="SetContentType" value="1"<%If Rs("SetContentType")=1 Then Response.write " checked"%>>代码方式
        <input type="radio" name="SetContentType" value="2"<%If Rs("SetContentType")=2 Then Response.write " checked"%>>内容方式</td>
      </tr>
	  <tr>
	    <td>排序数字：</td>
	    <td><input name="SetTaxis" type="text" id="SetTaxis" value="<%=Rs("SetTaxis")%>" size="20">*</td>
      </tr>
	  <tr>
        <td>&nbsp;</td>
        <td><input type="submit" name="Submit222" value="修改"></td>
      </tr>
    </form>
	<tr>
	 <td></td>
	 <td></td>
	</tr>
</table>
  <%end if%>  
  
<br /><br />
<script language=javascript>
function copy(ob){
var obj=findObj(ob); if (obj) { 
obj.select();js=obj.createTextRange();js.execCommand("Copy");}
alert('成功将代码复制到剪贴板中！');
}
function cut(ob){
var obj=findObj(ob); if (obj) { 
obj.select();js=obj.createTextRange();js.execCommand("Cut");}
}
function findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}
//-->
</script>
<table class="tb_1">
<tr class="tr_1">
  <td>导出此项配置的Sql语句</td>
</tr>
<tr>
<td class="td_1">
<textarea name="SetOutSql" cols="100" rows="5">insert into cfcount_setcontent(
setbclassflag,setsclassflag,setflag,setflag_2,setdesc,setvalue,setremark,settype,setcontenttype,settaxis
)
select 
'<%=Rs("setbclassflag")%>','<%=Rs("setsclassflag")%>','<%=Rs("setflag")%>','<%=Rs("setflag_2")%>','<%=ChkStr(Rs("setdesc"),1)%>','<%=ChkStr(Rs("setvalue"),1)%>','<%=ChkStr(Rs("setremark"),1)%>',<%=Rs("settype")%>,<%=Rs("setcontenttype")%>,<%=Rs("settaxis")%></textarea>
<br /><input type="submit" name="Submit4" value="复制" onClick=copy('SetOutSql')>
</td>
</tr>
</table>
