📄 bl.asp
字号:
sRet=sRet & " </ul>" &vbCrLf
sRet=sRet & " <ul class=""list_edit"">" &vbCrLf
sRet=sRet & " <input type=""hidden"" name=""ArgueId"" value=""" & ArgueId & """ />" &vbCrLf
sRet=sRet & " <input type=""hidden"" name=""cmd"" value=""save"" />" &vbCrLf
sRet=sRet & " <input type=""submit"" value=""提交审核"" />" &vbCrLf
sRet=sRet & " <input type=""reset"" value=""清除重写"" />" &vbCrLf
sRet=sRet & " </ul>" &vbCrLf
sRet=sRet & " </form>" &vbCrLf
sRet=sRet & "</div>" &vbCrLf
MainForm=sRet
sRet=""
End Function
Sub Save()
Dim rs,sRet,sTopic,a_ico,sAction1,sAction2,argueid,sContent,sDays
ArgueId=Request("blid")
If ArgueId<>"" Then ArgueId = CLng(Request("ArgueId"))
If oblog.ChkPost() = False Then
oblog.AddErrStr ("系统不允许从外部提交！")
oblog.showUserErr
Exit Sub
End If
'If oblog.CacheConfig(30) = 1 Then
' If Not oblog.codepass Then
' oblog.AddErrStr ("验证码错误，请刷新后重新输入！")
' oblog.showUserErr
' Else
' Session("code")=""
' End If
'End If
sTopic = Request.Form("topic")
a_ico = Request.Form("a_ico")
sContent=Request.Form("edit")
sAction1 = Request.Form("action1")
sAction2 = Request.Form("action2")
sDays = Request.Form("iDays")
'Check
If sTopic = "" Or oblog.strLength(sTopic) > 100 Then oblog.AddErrStr ("标题不能为空(不能大于100)！")
If sContent = "" Or oblog.strLength(sContent) > 5000 Then oblog.AddErrStr ("内容不能为空且不能大于5000字符")
If oblog.chk_badword(sTopic) > 0 Then oblog.AddErrStr ("标题中含有系统不允许发布的关键字！")
If oblog.chk_badword(sContent) > 0 Then oblog.AddErrStr ("内容中含有系统不允许发布的关键字！")
If sAction1 = "" Or oblog.strLength(sAction1) > 100 Then oblog.AddErrStr ("正方观点不能为空(不能大于100)！")
If sAction2 = "" Or oblog.strLength(sAction2) > 100 Then oblog.AddErrStr ("反方观点不能为空(不能大于100)！")
If Not IsNumeric(sDays) Then oblog.AddErrStr ("请正确输入天数")
If oblog.ErrStr <> "" Then oblog.showUserErr
Set rs=Server.CreateObject("Adodb.Recordset")
If ArgueId<>"" Then
If isManager=false Then
rs.Open "select * From oblog_argue Where argueid=" & ArgueId & " And userid=" & oblog.l_uid,conn,1,3
Else
rs.Open "select * From oblog_argue Where argueid=" & ArgueId,conn,1,3
End If
If rs.Eof Then
rs.Close
Set rs=Nothing
oblog.AddErrStr ("目标数据不存在，请返回重新操作！")
oblog.showUserErr
End If
Else
sTopic=EncodeJP(oblog.filt_astr(stopic, 250))
'Response.Write "select * From oblog_argue Where topic='" & sTopic & "' And userid=" & oblog.l_uid
rs.Open "select * From oblog_argue Where topic='" & sTopic & "' And userid=" & oblog.l_uid,conn,1,3
If Not rs.Eof Then
rs.Close
Set rs=Nothing
oblog.AddErrStr ("您之前发布过同样标题的内容，请重新选择一个新的标题！")
oblog.showUserErr
End If
rs.AddNew
End If
'开始写入操作
rs("topic") = EncodeJP(oblog.filtpath(oblog.filt_badword(sTopic)))
rs("content") = EncodeJP(oblog.filtpath(oblog.filt_badword(sContent)))
rs("a_ico") = a_ico
rs("iDays") = sDays
rs("action1")=sAction1
rs("action2")=sAction2
'仅在添加时增加该字段
If ArgueId="" Then
rs("userid")=oblog.l_uid
rs("username")=oblog.l_uname
rs("istate")=1
rs("istop")=0
End If
rs("addtime") = oblog.ServerDate(Now)
rs.Update
rs.Close
If argueid<>"" Then
oblog.ShowMsg "修改完成","bl.asp?cmd=show&blid=" & argueid
Else
oblog.ShowMsg "已提交辩论，等待管理员审核","bl.asp"
End If
End Sub
Function GetTheme()
Dim oFso,oStream,sRet,objReg
'If Application(cache_name&"_bl_theme_main")="" Then
Application.Lock
Set oFso=Server.CreateObject("Scripting.FileSystemObject")
Set oStream=oFSO.OpenTextFile(Server.Mappath("plus/skins/bl/default/main.htm"),1,False)
sRet = oStream.ReadAll
Application(oblog.cache_name&"_bl_theme_main")=sRet
Application.Unlock
sRet=""
Set oStream=Nothing
Set oFso=Nothing
'End If
GetTheme=Application(oblog.cache_name&"_bl_theme_main")
End Function
Function MakeLeftBar()
Dim sRet
sRet="<div class=""new_top"">最新辩论</div>" & Vbcrlf
sRet=sRet & " <div class=""new"">" & Vbcrlf
Dim rst
Set rst=oblog.Execute("select top 2 * From oblog_argue Where istate=2 Order By argueid Desc")
Do While Not rst.Eof
sRet=sRet & "<div class=""s_Debate"">" & Vbcrlf
sRet=sRet & " <div class=""title""><a href=""bl.asp?cmd=show&blid="&rst("argueid")&""">" & rst("topic") & "</a></div>" & Vbcrlf
sRet=sRet & " <a href=""bl.asp?cmd=show&blid=" & rst("argueid") & """><img src=""" & OB_IIF(rst("a_ico"),"plus/skins/bl/default/ico_bl.gif") & """ /></a>发起人：<a href=""go.asp?userid=" & rst("userid") & """ target=""_blank"">" & rst("username") & "</a>" & Vbcrlf
sRet=sRet & " <div><span class=""red"">正：得票" & rst("actions1") & " </span></div>" & Vbcrlf
sRet=sRet & " <div><span class=""blue"">反：得票" & rst("actions2") & " </span></div>" & Vbcrlf
sRet=sRet & " <div><span class=""green"">第三方：得票" & rst("actions3") & " </span></div>" & Vbcrlf
sRet=sRet & " <div>开始时间：" & rst("addtime") & "</div>" & Vbcrlf
sRet=sRet & " <div>结束时间：" & CheckDays(rst("addtime"),rst("iDays")) & "</div>" & Vbcrlf
sRet=sRet & " <div>关注程度：<span class=""blue"">" & IfHot(rst("actions")) &"</span> (" & rst("actions") & "人次)</div>" & Vbcrlf
sRet=sRet & "</div>" & Vbcrlf
rst.Movenext
Loop
rst.Close
sRet=sRet & "</div>" & Vbcrlf
sRet=sRet & "<div class=""new_end""></div>" & Vbcrlf
sRet=sRet & "<div class=""hot_top"">最热辩论</div>" & Vbcrlf
sRet=sRet & "<div class=""hot"">" & Vbcrlf
Set rst=oblog.Execute("select top 2 * From oblog_argue Where istate=2 Order By actions Desc")
Do While Not rst.Eof
sRet=sRet & " <div class=""s_Debate"">" & Vbcrlf
sRet=sRet & " <div class=""title""><a href=""bl.asp?cmd=show&blid=" & rst("argueid") & """>" & rst("topic") & "</a></div>" & Vbcrlf
sRet=sRet & " <a href=""bl.asp?cmd=show&blid=" & rst("argueid") & """><img src=""" & OB_IIF(rst("a_ico"),"plus/skins/bl/default/ico_bl.gif") & """ /></a>发起人：<a href=""go.asp?userid=" & rst("userid")&""" target=""_blank"">" & rst("username") & "</a>" & Vbcrlf
sRet=sRet & " <div><span class=""red"">正：得票" & rst("actions1") & " </span></div>" & Vbcrlf
sRet=sRet & " <div><span class=""blue"">反：得票" & rst("actions2") & " </span></div>" & Vbcrlf
sRet=sRet & " <div><span class=""green"">第三方：得票" & rst("actions3") & " </span></div>" & Vbcrlf
sRet=sRet & " <div>开始时间：" & rst("addtime") & "</div>" & Vbcrlf
sRet=sRet & " <div>结束时间：" & CheckDays(rst("addtime"),rst("iDays")) & "</div>" & Vbcrlf
sRet=sRet & " <div>关注程度：<span class=""blue"">" & IfHot(rst("actions")) &"</span> (" & rst("actions") & "人次)</div>" & Vbcrlf
sRet=sRet & " </div>" & Vbcrlf
rst.Movenext
Loop
rst.Close
sRet=sRet & "</div>" & Vbcrlf
sRet=sRet & "<div class=""hot_end""></div>" & Vbcrlf
sRet=sRet & "<div class=""old_top"">以前辩论</div>" & Vbcrlf
sRet=sRet & "<ul class=""old"">" & Vbcrlf
Set rst=oblog.Execute("select top 2 * From oblog_argue Where istate=3 Order By actions Desc")
Do While Not rst.Eof
sRet=sRet & "<li><a href=""bl.asp?cmd=show&blid=" & rst("argueid") & """>" & rst("topic") & "</a> <span class=""red"">正" & rst("actions1") & "</span> <span class=""blue"">反" & rst("actions2") & "</span></li>" & Vbcrlf
rst.Movenext
Loop
rst.Close
sRet=sRet & "</ul>" & Vbcrlf
sRet=sRet & "<div class=""old_end""></div>" & Vbcrlf
MakeLeftBar=sRet
sRet=""
End Function
Function AdminList()
Dim sRet,Sql,rs,sState
Set rs=oblog.Execute("select argueid,topic,username,userid,addtime,istate,istop,actions1,actions2 From oblog_argue Order By argueid Desc")
sRet="<div class=""a_option_title1"">"
sRet=sRet & "<ul class=""old"">"
Do While Not rs.Eof
If rs("istate")=1 Then
sState="[待审]"
ElseIf rs("istate")=2 Then
sState="[正常]"
ElseIf rs("istate")=3 Then
sState="[关闭]"
End If
If rs("istop")=1 Then
sState="[置顶]" & sState
End If
sRet=sRet & "<li>" &sState &"<a href=""bl.asp?cmd=show&blid=" & rs(0) & """ target=""_blank"">" & ProTitle(rs(1),20) & "</a> <span class=""red"">正"& rs("actions1")&"</span> <span class=""blue"">反"& rs("actions1") & " "
If rs("istate")<>3 Then
sRet=sRet & "<a href=""bl.asp?cmd=edit&blid=" & rs(0) & """>修改</a> "
End If
If rs("istate")=1 Then
sRet=sRet & "<a href=""bl.asp?cmd=pass1&blid=" & rs(0) & """>通过</a> "
ElseIf rs("istate")=2 Then
sRet=sRet & "<a href=""bl.asp?cmd=pass0&blid=" & rs(0) & """>关闭</a> "
ElseIf rs("istate")=3 Then
sRet=sRet & "<a href=""bl.asp?cmd=pass2&blid=" & rs(0) & """>重开</a> "
End If
If rs("istop")=0 Then
sRet=sRet & "<a href=""bl.asp?cmd=top1&blid=" & rs(0) & """>置顶</a> "
Else
sRet=sRet & "<a href=""bl.asp?cmd=top0&blid=" & rs(0) & """>撤顶</a> "
End If
sRet=sRet & "<a href=""bl.asp?cmd=del&blid=" & rs(0) & """ onclick=""javascript:if (confirm('确认要删除该辩论吗？')==false) return false;"">删除</a> "
sRet=sRet & "</span></li>"
rs.Movenext
Loop
sRet=sRet & "</ul></div>"
AdminList=sRet
End Function
Function ProTitle(title,ilen)
Dim sTitle,len1,i
If IsNull(title) Then
sTitle=""
Else
sTitle=title
End If
len1=Len(title)
If len1>=ilen Then
sTitle=Left(sTitle,ilen)
Else
For i=1 To (ilen-Len1)
sTitle=sTitle & " "
Next
End If
ProTitle=sTitle
End Function
Function IfHot(v)
v=OB_IIF(v,0)
If v<50 Then
IfHot="<span class=""blue"">凉</span>"
Else
IfHot="<span class=""red"">热</span>"
End If
End Function
Function ReturnErr(sErr)
Dim sRet
sRet=sRet & "<div class=""a_option_title0"">" &vbCrLf
sRet=sRet & " <div class=""top""><div class=""title"">辩论模块信息提示</div><div class=""dire""></div><div class=""both""></div></div>" &vbCrLf
sRet=sRet & " <div class=""content"">" & sErr & "</div>" &vbCrLf
sRet=sRet & " <div class=""end""><div class=""username"">Oblog Module</div>" &vbCrLf
sRet=sRet & " <div class=""both""></div>" &vbCrLf
sRet=sRet & "</div>" &vbCrLf
ReturnErr=sRet
sRet=""
End Function
'---------------------------------------------------
'页面逻辑节
'---------------------------------------------------
Dim cmd,PageFrameWork,PageBody,Argueid,sMain,sBody,sCaption
cmd=LCase(Request("cmd"))
Argueid=Request("blid")
If cmd="" and Argueid<>"" Then cmd="show"
'Call MakeHtml
'获取功能页面内容
'页面上主要是两个标签，一是bl_main,一个是bl_replys
select Case cmd
Case "add","edit"
If cmd="add" Then
sCaption="新增辩论"
Else
sCaption="编辑辩论"
End If
If not oblog.checkuserlogined Then
sMain=ReturnErr("<a href=""login.asp?fromurl=bl.asp?cmd=add"">请先登录</a>!")
Else
sMain=MainForm
End If
'OB_Debug oblog.l_uid,1
Case "save"
If not oblog.checkuserlogined Then
sMain=ReturnErr("请先登录!")
Else
Call Save
End If
Case "joinsave"
Call JoinArgue
sMain=ReturnErr(ErrMsg)
Case "mine"
If not oblog.checkuserlogined Then
sMain=ReturnErr("<a href=""login.asp?fromurl=bl.asp?cmd=add"">请先登录</a>!")
Else
sCaption="我发起的辩论"
sMain=GetArgueList(4)
End If
'管理用
Case "pass0"
If isManager=true Then
If argueid<>"" Then
oblog.Execute("Update oblog_argue Set iState=3 Where argueid=" & argueid)
oblog.ShowMsg "已经关闭该辩论","bl.asp?cmd=admin"
End If
End If
Case "pass1"
If isManager=true Then
If argueid<>"" Then
oblog.Execute("Update oblog_argue Set iState=2 Where argueid=" & argueid)
oblog.ShowMsg "已经通过该辩论的审核","bl.asp?cmd=admin"
End If
End If
Case "pass2"
If isManager=true Then
If argueid<>"" Then
oblog.Execute("Update oblog_argue Set iState=2,addtime='" & Now &"' Where argueid=" & argueid)
oblog.ShowMsg "已将该辩论重新设置为活跃状态","bl.asp?cmd=admin"
End If
End If
Case "top0"
If isManager=true Then
If argueid<>"" Then
oblog.Execute("Update oblog_argue Set istop=0 Where argueid=" & argueid)
oblog.ShowMsg "已经取消该辩论的精华资格","bl.asp?cmd=admin"
End If
End If
Case "top1"
If isManager=true Then
If argueid<>"" Then
oblog.Execute("Update oblog_argue Set istop=0")
oblog.Execute("Update oblog_argue Set istop=1 Where argueid=" & argueid)
oblog.ShowMsg "已经设置该辩论为置顶，将在首位显示","bl.asp?cmd=admin"
End If
End If
Case "del"
If isManager=true Then
If argueid<>"" Then
oblog.Execute("Delete From oblog_argue Where argueid=" & argueid)
oblog.Execute("Delete From oblog_arguelist Where argueid=" & argueid)
oblog.ShowMsg "已经删除该辩论的所有信息","bl.asp?cmd=admin"
End If
End If
Case "dela"
If isManager=true Then
If argueid<>"" Then
oblog.Execute("Delete From oblog_arguelist Where id=" & Int(Request("aid")))
'非重复参与减轻一票,重复参与不减,总参与人数不减少
If Cint(Request("re"))=0 Then
select Case Cint(Request("a"))
Case 1
oblog.Execute "Update oblog_argue Set actions1=actions1-1 Where argueid=" & Int(Request("blid"))
Case 2
oblog.Execute "Update oblog_argue Set actions2=actions2-1 Where argueid=" & Int(Request("blid"))
Case 3
oblog.Execute "Update oblog_argue Set actions3=actions3-1 Where argueid=" & Int(Request("blid"))
End select
End If
oblog.ShowMsg "已经删除该讨论信息","bl.asp?cmd=show&blid=" & Int(Request("blid"))
End If
End If
Case "show"
sMain=GetOneArgue(Argueid,"","")
sBody=GetOptions(Argueid,"")
sBody=sBody & JoinForm(Argueid)
Case "admin"
sCaption="系统管理"
sMain=AdminList()
Case Else
sCaption="推荐辩论"
sMain=GetOneArgue(Argueid,"","1")
sBody=GetOptions("","")
End select
'进行页面显示
If sCaption="" Then sCaption="信息提示"
PageFrameWork= GetTheme
PageFrameWork=Replace(PageFrameWork,"$bl_caption$",sCaption)
PageFrameWork=Replace(PageFrameWork,"$bl_main$",sMain)
PageFrameWork=Replace(PageFrameWork,"$bl_body$",sBody)
PageFrameWork=Replace(PageFrameWork,"$bl_left$",MakeLeftBar)
If isManager=true Then
PageFrameWork=Replace(PageFrameWork,"$bl_admin$","<a href=""bl.asp?cmd=admin"">管理</a>")
Else
PageFrameWork=Replace(PageFrameWork,"$bl_admin$","")
End If
Response.Write PageFrameWork
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -