www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > Admin_LogDefault.asp
<%@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"> </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> 置顶 <input name="istop0" type="checkbox" id="istop" value="1" <%If DefaultRs(1)=True Then Response.write"checked"%>> 回复级别 <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> 原创 <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="保存"> </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="©right&" where classid=0" Conn.execute strsql ExComm.ShowMsg "操作成功","" end Sub End Class %> </body> </html>