admin_masterlog.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="admin_conn.asp"-->
<!--#include file="../include/admin_setting.asp"-->
<!--#include file="admin_function.asp"-->
<!--#include file="../include/md5.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
Call admin_top()
Call navMenu()
Select Case LCase(Request("action"))
	Case LCase("maosin_appLog")
		appLog
	Case LCase("maosin_saveLog")
		saveLog
	Case LCase("maosin_editLog")
		editLog
	Case LCase("maosin_saveEdit")
		saveEdit
	Case LCase("maosin_delLog")
		delLog
	Case Else
		logList
End Select
Call admin_foot()
Sub navMenu()%>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
  <tr><td colspan="2" class="td_titleM">站长管理日志</td></tr>
  <tr><td width="95" height="30" class="td_bgcolor">管理快捷导航：</td><td class="td_bgcolor">
  <a href="admin_masterLog.asp">日志管理</a>&nbsp;|&nbsp;
  <a href="admin_masterLog.asp?action=maosin_appLog">添加新日志</a>&nbsp;
  </td></tr>
</table>
<%table(5)
End Sub
Sub logList()
%>
<table width="100%" border="0" cellpadding="4" cellspacing="1"  class="text table_border mainTable">
  <tr class="td_titleT"> 
    <td width="30" height="22" align="center" valign="middle">选定</td>
    <td width="*" align="center" valign="middle">内容</td>
    <td width="130" align="center" valign="middle">添加时间</td>
    <td width="100" align="center" valign="middle">操作选项</td>
  </tr>
<%
dim rs,strTemp(4)
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from ms_masterLog",connstr,1,1
if not rs.eof and not rs.bof then
dim url:url="admin_cms.asp?"
nextpage=pagetitle(rs,16,url,"条记录")
lineNo=1
do while not rs.eof and lineNo<=rs.pagesize
strTemp(0)="<div>"&rs(1)&"</div>"
if rs(2)="" or isNull(rs(2)) then
	strTemp(1)="<div style=""color:#ff4400;""><img src=""images/l-.gif"">还没解决</div>"
else	
	strTemp(1)="<div style=""padding:4px;color:#FF4400;cursor:hand;word-break:break-all;"" onClick=""show(this)""><img src=""images/l+.gif""> 已经解决</div>"
	strTemp(2)="<div style=""padding-left:15px;color:#6D6D6D;word-break:break-all;display:none;"">"&rs(2)&"</div>"
	
end if
strTemp(3)=strTemp(0)&strTemp(1)&strTemp(2)
%><form action="?action=maosin_delLog" method="post" name="form1">
  <tr class="td_bgcolor"> 
    <td height="22" align="center" valign="middle"><input type="checkbox" value="<%=rs(0)%>" name="id"></td>
    <td valign="middle"><%=strTemp(3)%></td>
    <td align="center" valign="middle"><%=rs(3)%></td>
    <td align="center" valign="middle"><a href="?action=maosin_editLog&id=<%=rs(0)%>">编辑</a> <a href="?action=maosin_delLog&id=<%=rs(0)%>">删除</a></td>
  </tr>
<%
strTemp(3)=""
rs.movenext
lineNo=lineNo+1 
loop
else%>
  <tr class="td_bgcolor"><td height="22" colspan="4" valign="middle">暂时没有添加记录</td></tr>
<%end if%>
  <tr class="td_bgcolor"> 
    <td height="22" colspan="4" valign="middle"><input type="checkbox" name="checkall" id="checkall" value="checkbox" onclick="checkalldele(this.form)"><label for="checkall">选择所有</label>
      <input type="submit" name="Submit" value="删除所选">
    </td>
  </tr>
  </form>
  <tr class="td_titleB"> 
    <td height="22" colspan="4" valign="middle"><%=nextpage%></td>
  </tr>
</table>
<script type="text/javascript">
function checkalldele(obj){
	var len=obj.elements.length;
	for(var i=0;i<len-2;i++){
		obj.elements(i).checked=obj.checkall.checked;
	}
}
</script>
<%
End Sub
Sub appLog()%>
<table width="100%" border="0" cellpadding="4" cellspacing="1"  class="text table_border mainTable">
  <tr> 
    <td height="22" colspan="2" valign="middle" class="td_titleT">添加新的日志</td>
  </tr>
  <form action="?action=maosin_saveLog" name="form1" method="post">
  <tr class="td_bgcolor"> 
    <td width="100" height="22" valign="middle" align="right">日志内容：</td>
    <td width="*" valign="middle"><textarea name="question" rows="4" style="width:100%;"></textarea></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="22" valign="middle" align="right">解决方法：</td>
    <td valign="top"><textarea name="settle" rows="4" style="width:100%;"></textarea></td>
  </tr>
  <tr align="center" valign="middle"> 
    <td height="22" colspan="2" class="td_titleB"> 
      <input type="submit" name="Submit" value="添加新的日志"></td>
  </tr>
  </form>
</table>
<%End Sub
Sub editLog()
dim rs,id
id=trim(Request("id"))
set rs=conn.execute("select * from ms_masterLog where id="&id)%>
<table width="100%" border="0" cellpadding="4" cellspacing="1"  class="text table_border mainTable">
  <tr> 
    <td height="22" colspan="2" valign="middle" class="td_titleT">添加新的日志</td>
  </tr>
  <form action="?action=maosin_saveEdit" name="form1" method="post">
  <tr class="td_bgcolor"> 
    <td width="100" height="22" valign="middle" align="right">日志内容：</td>
    <td width="*" valign="middle"><textarea name="question" rows="4" style="width:100%;"><%=replace(rs(1),"<br>",CHR(10))%></textarea><input type="hidden" value="<%=rs(0)%>" name="id"></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="22" valign="middle" align="right">解决方法：</td>
    <td valign="top"><textarea name="settle" rows="4" style="width:100%;"><%=replace(rs(2),"<br>",CHR(10))%></textarea></td>
  </tr>
  <tr align="center" valign="middle"> 
    <td height="22" colspan="2" class="td_titleB"> 
      <input type="submit" name="Submit" value="更新日志"></td>
  </tr>
  </form>
</table>
<%End Sub
Sub saveLog()
dim question,settle
question=trim(Request("question"))
settle=trim(Request("settle"))
conn.execute("insert into ms_masterLog(question,settle,joinDate) values('"&htmlencode(question)&"','"&htmlencode(settle)&"',#"&now()&"#)")
adminShowMsg "成功信息","恭喜恭喜，日志添加成功"
End Sub
Sub saveEdit()
dim id,question,settle
id=trim(Request("id"))
question=trim(Request("question"))
settle=trim(Request("settle"))
conn.execute("update ms_masterLog set question='"&htmlencode(question)&"',settle='"&htmlencode(settle)&"' where id="&id)
adminShowMsg "成功信息","恭喜恭喜，日志修改保存成功"
End Sub
Sub delLog()
dim id,idArr
id=trim(replace(Request("id")," ",""))
idArr=split(id,",")
for i=0 to ubound(idArr)
	if isInteger(idArr(i))=false then
		idArr(i)=0
	end if
next
if ubound(idArr)<0 then
	adminShowMsg "出错信息","请选择至少一个进行操作"
	exit sub
end if
dim operateNum
conn.Execute "delete from ms_masterLog where id in ("&id&")",operateNum
adminShowMsg "操作成功信息","恭喜恭喜,本次操作共删除 <font color=""#ff0000"">"&operateNum&"</font> 条记录！"
End Sub
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: [e-mail] , [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>