📄 m_userdigg.asp
字号:
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<%
If CheckAccess("r_user_digg")=False Then Response.Write "无权操作":Response.End
dim rs, sql
dim id,cmd,Keyword,sField,sDate1,sDate2
keyword=Trim(Request("keyword"))
if keyword<>"" then
keyword=oblog.filt_badstr(keyword)
end if
sField=Trim(Request("Field"))
cmd=Trim(Request("cmd"))
Action=LCase(Trim(Request("Action")))
id=Trim(Request("id"))
sDate1=Request("date1")
sDate2=Request("date2")
If sDate1<>"" Then sDate1=Int(sDate1)
If sDate2<>"" Then sDate2=Int(sDate2)
if cmd="" then
cmd=0
else
cmd=CLng(cmd)
end if
G_P_FileName="m_userdigg.asp?cmd=" & cmd & "&field=" & sField & "&keyword=" & keyword & "&date1=" & sDate1 & "&date2=" &sDate2
if Request("page")<>"" then
G_P_This=cint(Request("page"))
else
G_P_This=1
end if
%>
<SCRIPT language=javascript>
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</SCRIPT>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>oBlog--后台管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">DIGG 管 理</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<form name="form1" action="m_userdigg.asp" method="get">
<tr class="tdbg">
<td width="100" height="30"><strong>快速查找：</strong></td>
<td width="687" height="30"><select size=1 name="cmd" onChange="javascript:submit()">
<option value=>请选择查询条件</option>
<option value="-1">用户推荐日志排行</option>
<option value="0">最新500篇用户推荐日志</option>
<option value="1">已审核用户推荐日志</option>
<option value="2">未通过审核的用户推荐日志</option>
</select>
<a href="m_userdigg.asp">管理首页</a></td>
</tr>
</form>
<form name="form2" method="post" action="m_userdigg.asp">
<tr class="tdbg">
<td width="120"><strong>高级查询：</strong></td>
<td >
<select name="Field" id="Field">
<option value="author" selected>用户名称</option>
<option value="logid" >日志ID</option>
<option value="diggid" >DIGGID</option>
<option value="authorid" >用户ID</option>
<option value="ip">发表IP</option>
<option value="title" >标题内容</option>
<option value="content" >摘要内容</option>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
<input type="submit" name="Submit2" value=" 查 询 ">
<input name="cmd" type="hidden" id="cmd" value="10">
若为空，则查询所有</td>
</tr>
</table>
</form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
If id<>"" Then
If Instr(id,",") Then
id=FilterIds(id)
Else
id=Int(Id)
End If
End If
If action = "del" Or action = "best0" Or action = "best1" Or action = "pass0" Or action = "pass1" Or action = "move" Or action = "moveclass" Then
If id = "" Then
oblog.ShowMsg "请至少选择一个ID进行操作" , ""
End If
End If
select Case LCase(action)
Case "del"
oblog.execute("DELETE FROM oblog_userdigg where diggid In ("&id & ")")
delblogs id
WriteSysLog "进行了用户推荐日志删除操作，目标ID："&id&"",oblog.NowUrl&"?"&OB_IIF(Request.QueryString,Request.Form)
oblog.ShowMsg "删除成功！",""
Case "pass0"
oblog.execute("update oblog_userdigg Set iState=0 Where diggid In (" & id & ")")
'进行日志更新
' Response.Redirect "m_userdigg.asp"
WriteSysLog "进行了用户推荐日志取消审核操作，目标ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
oblog.ShowMsg "已设置日志为未审核状态！",""
Case "pass1"
oblog.execute("update oblog_userdigg Set iState=1 Where diggid In (" & id & ")")
'进行日志更新
' Response.Redirect "m_userdigg.asp"
WriteSysLog "进行了用户推荐日志通过审核操作，目标ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
oblog.ShowMsg "已设置日志为审核状态！",""
Case "move"
oblog.execute("update oblog_userdigg Set specialid=" & Int(Request("SpecialId")) &" Where diggid In (" & id & ")")
' Response.Redirect "m_userdigg.asp"
WriteSysLog "进行了用户推荐日志转移操作，目标ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
oblog.ShowMsg "日志转移成功！",""
Case "moveclass"
oblog.execute("update oblog_userdigg Set classid=" & Int(Request("classid")) &" Where diggid In (" & id & ")")
' Response.Redirect "m_userdigg.asp"
WriteSysLog "进行了用户推荐日志分类转移操作，目标ID："&id&"",oblog.NowUrl&"?"&Request.QueryString
oblog.ShowMsg "日志分类转移成功！",""
Case Else
call main()
end select
if FoundErr=true then
call WriteErrMsg()
end if
sub main()
Dim sQryFields
sQryFields="top 500 authorid,diggtitle,diggurl,addtime,diggID,classid,diggdes,author,iState,diggnum,addip,logid"
select case cmd
case -1
sql="select " & sQryFields & " from oblog_userdigg order by diggnum desc"
sGuide=sGuide & "用户推荐日志排行"
case 0
sql="select " & sQryFields & " from oblog_userdigg order by diggid desc"
sGuide=sGuide & "最新500篇用户推荐日志"
case 1
sql="select " & sQryFields & " from oblog_userdigg where iState=1 order by diggid desc"
sGuide=sGuide & "通过审核的用户推荐日志"
case 2
sql="select " & sQryFields & " from oblog_userdigg where iState=0 order by diggid desc"
sGuide=sGuide & "未通过审核的用户推荐日志"
case 10
if Keyword="" then
sql="select " & sQryFields & " from oblog_userdigg order by diggid desc"
sGuide=sGuide & "所有用户推荐日志"
else
select case sField
case "diggid"
if Not IsNumeric(Keyword) then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>ID必须是整数！</li>"
else
sql="select " & sQryFields & " from oblog_userdigg where diggid =" & CLng(Keyword)
sGuide=sGuide & "DIGGID等于<font color=red> " & CLng(Keyword) & " </font>的用户推荐日志"
end If
case "logid"
if Not IsNumeric(Keyword) then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>ID必须是整数！</li>"
else
sql="select " & sQryFields & " from oblog_userdigg where logid =" & CLng(Keyword)
sGuide=sGuide & "LOGID等于<font color=red> " & CLng(Keyword) & " </font>的用户推荐日志"
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -