<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<!--#include file="Ex_Cls/Ex_CommonCls.asp"-->
<!--#include file="Ex_Cls/Ex_XmlCls.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<link rel="stylesheet" href="Admin_Style.css">
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor">
<%
Dim DefaultCls
Set DefaultCls=new LogDefault
DefaultCls.execute
Class LogDefault
Private ExComm,IsHide,IsTop,IsCmt,IsCreator,ShowNum
Private Sub class_initialize
	Set ExComm=new Ex_CommonCls
	ExComm.IsAdLogin 
	ExComm.IsIpAllow
End Sub
Private Sub class_terminate
	Set ExComm=Nothing 
	Rs.close
	Set Rs=Nothing 
End Sub
Public  Sub execute
	dim action
	action=request.QueryString("action")
	if action="change" then
		call change()'修改数据
	else
		call show()
	end If
End Sub
Private sub show()
%>
<center>
<form name="form1" method="post" action="?action=change" onSubmit="return Check()">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
    <tr>
      <th class="topbg"><p><a href="#u"></a>日志高级选项默认值设置</p>        </th>
      </tr>
    <tr>
      <td class="tdbg"><div align="center"></div>        <div align="center">&nbsp;</div></td>
      </tr>
	<%
	Dim DefaultRs
		DefaultRs=Conn.execute("select ishide,istop,iscmt,copyright,textnum from Ex_LogDefault where classid=0")
	%>
    <tr>
      <td class="tdbg"><div align="center">查看级别
        <select name="ishide0" id="ishide">
          <option value="游客" <%If InStr(Trim(DefaultRs(0)),"游客")<>0 Then response.write "selected"%>>游客</option>
          <option value="会员" <%If InStr(Trim(DefaultRs(0)),"会员")<>0 Then response.write "selected"%>>会员</option>
          <option value="隐藏" <%If InStr(Trim(DefaultRs(0)),"隐藏")<>0 Then response.write "selected"%>>隐藏</option>
        </select>
        &nbsp;&nbsp;&nbsp;置顶
        <input name="istop0" type="checkbox" id="istop" value="1" <%If DefaultRs(1)=True Then Response.write"checked"%>>
        &nbsp;&nbsp;&nbsp;回复级别
        <select name="iscmt0" id="iscmt">
          <option value="游客" <%If InStr(Trim(DefaultRs(2)),"隐藏")<>0 Then response.write "selected"%>>游客</option>
          <option value="会员" <%If InStr(Trim(DefaultRs(2)),"会员")<>0 Then response.write "selected"%>>会员</option>
          <option value="禁止" <%If InStr(Trim(DefaultRs(2)),"禁止")<>0 Then response.write "selected"%>>禁止</option>
        </select>
        &nbsp;&nbsp;&nbsp;原创
        <input name="copyright0" type="checkbox" id="copyright" value="1"  <%If DefaultRs(3)=True Then Response.write"checked"%>>        
      </div></td>
      </tr>
    <tr>
      <td class="tdbg"><div align="center">
        <input type="submit" name="Submit" value="保存">
      &nbsp;&nbsp;</div></td>
      </tr>
  </table>
</form></center>
<a href="http://www.ex123.net/bbs" target="_blank"><font color="red">如果您对高级选项的设置还有什么疑问,点此查看易心博客使用教程</font></a>
<%end sub%>
<%
Private sub change()
Dim ishide,istop,iscmt,copyright,textnum,strsql,num
		ishide=EXComm.G(request("ishide0"))
		istop=EXComm.G(request("istop0"))
		iscmt=EXComm.G(request("iscmt0"))
		copyright=EXComm.G(request("copyright0"))
		textnum=EXComm.G(request("textnum0"))
		If istop="" Then
			istop="0"
		End If
		If copyright="" Then
			copyright="0"
		End If
			strsql="update Ex_LogDefault set ishide='"&ishide&"',istop="&istop&",iscmt='"&isCmt&"',copyright="&copyright&" where classid=0"
		Conn.execute strsql
ExComm.ShowMsg "操作成功",""
end Sub
End Class 
%>
</body>
</html>
