m_blog.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 466 行 · 第 1/2 页
ASP
466 行
End If
case else
FoundErr=true
ErrMsg=ErrMsg & "<br><li>错误的参数！</li>"
end select
if FoundErr=true then exit sub
if not IsObject(conn) then link_database
Set rs=Server.CreateObject("Adodb.RecordSet")
'Response.Write sql
If Trim(Sql)="" Then
oblog.showok "请输入正确的查询条件！",""
End If
rs.Open sql,Conn,1,1
Call oblog.MakePagebar(rs,"篇日志")
end sub
sub showContent()
dim i
i=0
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left"><%=sGuide%></li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<style type="text/css">
<!--
td {padding:3px 0!important;}
-->
</style>
<form name="myform" method="Post" action="m_blog.asp" onSubmit="return confirm('确定要执行选定的操作吗？');">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" style="word-break:break-all;">
<form name="myform" method="Post" action="m_blog.asp" onsubmit="return confirm('确定要执行选定的操作吗？');">
<%do while not rs.EOF %>
<tr>
<td align="center" style="background:#B3D1EA;border-bottom:1px #000 dotted;" width="30">
<input name='id' type='checkbox' onclick="unselectall()" id="id" value='<%=cstr(rs("logid"))%>'>
</td>
<td style="background:#D6EBFF;border-bottom:1px #000 dotted;">
<a href="../go.asp?logid=<%=rs("logid")%>" target="_blank" style="margin:0 0 0 10px;color:#333;"><%=oblog.Filt_html(RemoveHtml(rs("topic")))%></a>
</td>
<td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="290"><a href="../go.asp?userid=<%=rs("userid")%>" target="_blank"><font color=#0d4d89><%=rs("author")%></font></a> 发表于
<span style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;">
<%
response.write rs("addtime") & "</span> <span style=""font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;color:#777;"">IP:" & rs("addip")
%></span>
</td>
<td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="60">
<%
select case rs("passcheck")
case 0
response.write "<span style=""font-weight:600;color:#f30;"">等待审核</span>"
case 1
response.write "<span style=""font-weight:600;color:#090;"">通过审核</span>"
end select
%>
</td>
<td style="background:#D6EBFF;border-bottom:1px #000 dotted;" width="78">
<% If rs("isbest")=1 Then
response.write "<a href='m_blog.asp?Action=best0&id=" & rs("logid") & "' onClick='return confirm(""确定要取消该日志的精华设置吗？"");'><font color=red>取消精华</font></a> "
Else
response.write "<a href='m_blog.asp?Action=best1&id=" & rs("logid") & "' onClick='return confirm(""确定要设置该日志为精华吗？"");'>设置精华</a> "
End If
response.write "<a href='m_blog.asp?Action=Del&id=" & rs("logid") & "' onClick='return confirm(""确定要删除此日志吗？"");'>删除</a> "
%>
</td>
</tr>
<tr>
<td align="center" valign="top"><span style="font-family:Century Gothic,verdana,tahoma,Arial,Helvetica,sans-serif;font-size:10px;font-weight:600;"><%=rs("logid")%></span></td>
<td colspan="4" valign="top" style="word-wrap: break-word; word-break: break-all;color:#555;"><%=Left(oblog.Filt_html(RemoveHtml(rs("logtext"))),200)%></td>
</tr>
<tr>
<td height="8" colspan="5"></td>
</tr>
<%
i=i+1
if i>=G_P_PerMax then exit do
rs.movenext
loop
rs.Close
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="140" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页所有日志</td>
<td> <strong>操作：</strong>
<input name="Action" type="radio" value="Del">
删除
<input name="Action" type="radio" value="pass0">
待审
<input name="Action" type="radio" value="pass1"">
通过
<input name="Action" type="radio" value="best1">
精华
<input name="Action" type="radio" value="best0">
撤销
<input name="Action" type="radio" value="Move" onClick="document.myform.SpecialId.disabled=false">
<select name="SpecialId" id="SpecialId" disabled>
<option value=0>取消专辑设置</option>
<%
Set rs = oblog.Execute("Select specialid,s_name From oblog_Special Where isActive=1 Order By SpecialId Desc")
Do While Not rs.Eof
%>
<option value=<%=rs(0)%>><%=Left(rs(1),7)%></option>
<%
rs.Movenext
Loop
Set rs=Nothing
%>
</select>
<input type="submit" name="Submit" value="执行"> </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>
<%
end sub
'更新日志
Sub DoUpdatelog(ids)
Server.ScriptTimeOut = 999999999
Dim rs, blog, i
Set rs = oblog.execute("select userid,logid from oblog_log where logid in (" & ids & ")")
Set blog = New class_blog
Do While Not rs.Eof
blog.userid = rs(0)
blog.update_log rs(1), 0
rs.movenext
Loop
Set rs = Nothing
Set blog = Nothing
End Sub
Sub delblogs(ids)
Dim uid, delname, rst, fso, sid,i,logid,blog
Set fso = Server.CreateObject("Scripting.FileSystemObject")
logid=Split(ids,",")
Set rst = Server.CreateObject("adodb.recordset")
Set blog = New class_blog
For i=0 To UBound(logid)
rst.open "select a.userid,a.logfile,a.subjectid,a.logtype,a.scores,a.isdel,b.user_dir,b.user_folder from oblog_log a ,oblog_user b where a.userid=b.userid And logid="&logid(i),conn,1,3
If Not rst.Eof Then
uid = rst(0)
delname = Trim(rst(1))
sid = rst(2)
'清理图片记录
'If rst("logtype") = 1 Then
' Call DeletePhotos(logid)
'End If
'真实域名需要重新整理文件数据
'物理文件即时删除
'If true_domain = 1 And delname <> "" Then
If InStr(delname, "archives") Then
delname = Right(delname, Len(delname) - InStrRev(delname, "archives") + 1)
Else
delname = Right(delname, Len(delname) - InStrRev(delname, "/"))
End If
delname=blogdir & rst("user_dir")& "/" & rst("user_folder")&"/"&oblog.l_ufolder&"/"&delname
'End If
If delname <> "" Then
delname=Replace(delname,"//","/")
If fso.FileExists(Server.MapPath(delname)) Then fso.DeleteFile Server.MapPath(delname)
End If
'--------------------------------------------
'更新计数器,删除积分
If rst("isdel")=1 Then
Call Tags_UserDelete(logid(i))
oblog.Execute ("update oblog_user set log_count=log_count-1 where userid=" & uid)
oblog.Execute ("Update oblog_comment Set isdel=1 where mainid=" & Int(logid(i)))
oblog.Execute ("update oblog_subject set subjectlognum=subjectlognum-1 where subjectid=" & Int(sid))
End If
'--------------------------------------------
rst.Close
blog.userid = uid
blog.Update_Subject uid
blog.Update_index 0
blog.Update_newblog (uid)
End If
Next
Set blog = Nothing
Set fso = Nothing
Set rst = Nothing
End Sub
Sub BestScore(id)
Dim rs,i
Dim tid
tid=id
If InStr(tid,",")<0 Then
Set rs = oblog.Execute ("SELECT userid FROM oblog_log WHERE logid = " &tid)
oblog.GiveScore "" ,oblog.CacheScores(9),rs(0)
rs.close
Else
tid = Split (tid ,",")
For i = 0 To UBound(tid)
Set rs= oblog.execute ("SELECT userid FROM oblog_log WHERE logid = " &tid(i))
oblog.GiveScore "" ,oblog.CacheScores(9),rs(0)
rs.close
Next
End if
End Sub
Sub DelScore(id)
Dim rs,i
Dim tid,sScore
tid=id
sScore=-1*Abs(CLng(oblog.CacheScores(3))+CLng(oblog.CacheScores(4)))
If InStr(tid,",")<0 Then
Set rs = oblog.Execute ("SELECT userid FROM oblog_log WHERE logid = " &tid)
oblog.GiveScore "",sScore,rs(0)
rs.close
Else
tid = Split (tid ,",")
For i = 0 To UBound(tid)
Set rs= oblog.execute ("SELECT userid FROM oblog_log WHERE logid = " &tid(i))
oblog.GiveScore "",sScore,rs(0)
rs.close
Next
End if
End Sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?