ajaxserver.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 637 行 · 第 1/2 页
ASP
637 行
If Not rs.EOF Then
If log_blogteam<>rs ("mainuserid") Then
oblog.adderrstr ("请勿尝试非法提交日志！")
End if
Else
log_blogteam = oblog.l_uId
End If
rs.close
End if
set rs=Nothing
If oblog.errstr <> "" Then
restr=split(replace(oblog.errstr,"_","<br />")&"$$$0","$$$")
ajax.re(restr)
response.end
end if
' log_Abstract=oblog.filt_html_b(log_Abstract)
' If log_Abstract = "" Then
' log_Abstract = trimlog(log_text, Int(Trim(log_showword)))
' If request("isubb") = "1" Then
' log_Abstract = UBBCode(log_Abstract, 1)
' log_Abstract = Replace(log_Abstract, Chr(10), "<br /> ")
' End If
' log_Abstract = Replace(log_Abstract, "#isubb#", "")
' log_Abstract = filtimg(log_Abstract)
' If oblog.cacheConfig(45) = 1 Then log_Abstract = profilthtm(log_Abstract)
' End If
'更新摘要
Set blog = New class_blog
Set rs = Server.CreateObject("adodb.recordset")
If log_modiid > 0 Then
rs.open "select * from oblog_log where logid=" & log_modiid, conn, 2, 2
Else
'增加积分
Call oblog.GiveScore("",oblog.cacheScores(3),"")
rs.open "select top 1 * from oblog_log", conn, 2, 2
rs.addnew
'日志积分增加
rs("scores")=oblog.cacheScores(3)
End If
'开始写入操作
rs("topic") = EncodeJP(oblog.filt_astr(log_topic, 50))
log_text = Replace(log_text, "#isubb#", "")
If request("isubb") = "1" Then
log_text = "#isubb#" & log_text
rs("EditorType") = 1
Else
rs("EditorType") = 0
End If
log_text = EncodeJP(oblog.filtpath(oblog.filt_badword(log_text)))
'进行脚本控制
If oblog.l_Group(12,0)=0 Then log_text=FilterJS(log_text)
rs("logtext") = log_text
rs("face") = log_face
rs("addtime") = log_time
rs("classid") = log_classid
' log_blogteam = oblog.l_uId
if log_teamsubject>0 then log_subjectid=clng(log_teamsubject)
If rs("subjectid") <> Int(log_subjectid) And log_modiid > 0 Then
oblog.Execute ("update oblog_subject set subjectlognum=subjectlognum+1 where subjectid=" & Int(log_subjectid))
oblog.Execute ("update oblog_subject set subjectlognum=subjectlognum-1 where subjectid=" & Int(rs("subjectid")))
End If
rs("subjectid") = Int(log_subjectid)
rs("showword") = Int(Trim(log_showword))
If log_modiid = 0 Then
rs("authorid") = oblog.l_uId
rs("author") = EncodeJP(oblog.l_uName)
End If
rs("userid") = log_blogteam
'rs("state")=isblog '是否在blog显示
rs("ishide") = log_ishide
rs("istop") = log_istop
If log_modiid > 0 Then log_oldtb = rs("tburl")
rs("tburl") = log_tb
rs("logpics") = log_pics
rs("logtype") = 0
rs("isencomment") = log_isencomment
rs("Abstract") = log_Abstract
If rs("ispassword") = log_password Then
Else
If log_password <> "" Then
rs("ispassword") = md5(Trim(log_password))
Else
log_password = ""
rs("ispassword") = ""
End If
End If
If oblog.l_Group(11,0) = 1 Then
rs("passcheck") = 0
log_Abstract = "此日志需要管理员审核后才可见。"
Else
rs("passcheck") = 1
End If
rs("isdraft") = log_isdraft
rs("filename") = log_filename
If log_specialid="" Then log_specialid=0
rs("specialid") = log_specialid
If log_modiid = 0 Then
rs("iis") = 0
rs("commentnum") = 0
rs("trackbacknum") = 0
rs("blog_password") = 0
rs("truetime") = Now()
End If
rs("addip")=oblog.userip
rs("istrouble")=log_isTrouble
rs.Update
rs.Close
'---------------------------------------------------------------
If (log_modiid = 0 And log_isdraft = 0) Or todraft = -1 Then
oblog.Execute ("update [oblog_user] set log_count=log_count+1 where userid=" & log_blogteam)
If log_classid > 0 Then
oblog.Execute ("update [oblog_logclass] set classlognum=classlognum+1 where id=" & log_classid)
End If
If log_subjectid > 0 Then
oblog.Execute ("update [oblog_subject] set subjectlognum=subjectlognum+1 where subjectid=" & log_subjectid)
End If
oblog.Execute ("update [oblog_setup] set log_count=log_count+1")
oblog.Execute ("update [oblog_myurl] set isupdate=1 where mainuserid="&oblog.l_uid)
End If
If log_modiid = 0 Then
Set rs = oblog.Execute("select max(logid) from oblog_log where userid=" & log_blogteam)
tid = rs(0)
rs.Close
Else
tid = log_modiid
End If
'Tag处理
Call Tags_UserAdd(log_tags, oblog.l_uId, tid)
If isdraft = 0 Then
'非审核状态下允许专题和群组处理
If oblog.l_Group(11,0) = 0 or 1=1 Then
'---------------------------------------------------------------
'专题处理
if log_specialid >0 Then
log_specialid=Int(log_specialid)
rs.Open "Select * From oblog_SpecialList Where logid=" & tid & " And specialid=" & log_specialid,conn,1,3
If rs.Eof Then
rs.Addnew
oblog.Execute("Update oblog_Special Set s_count=s_count+1 Where specialid=" & log_specialid)
End If
rs("specialid")=log_specialid
rs("userid")=oblog.l_uid
rs("logid")=tid
rs("author")=oblog.l_uname
rs("topic")=log_topic
rs("abstract")=log_abstract
rs("addtime")=ServerDate(Now)
rs("ispass")=0
rs("istop")=0
rs.Update
rs.Close
End If
'群组处理
teamid=FilterIds(Request.Form("teamid"))
If teamId<>"" Then
teamId=Split(teamid,",")
For i=0 To Ubound(teamId)
rs.Open "Select * From oblog_teampost Where logid=" & tid & " And teamid=" & teamid(i),conn,1,3
If rs.Eof Then
rs.Addnew
oblog.Execute "Update oblog_team Set icount1=icount1+1 Where teamId=" & teamid(i)
rs("istop")=0
rs("isbest")=0
rs("ispass")=1
rs("addtime")=log_time
rs("addip")=oblog.userip
rs("views")=0
rs("replys")=0
rs("scores")=1
Call oblog.GiveScore("",oblog.cacheScores(13),"")
End If
rs("userid")=oblog.l_uid
rs("author")=oblog.l_uname
rs("teamid")=teamid(i)
rs("logid")=tid
rs("topic")=log_topic
rs("content")=log_text
rs("lastupdate")=ServerDate(Now)
rs.Update
rs.close
Next
End If
End If
'---------------------------------------------------------------
blog.userid = oblog.l_uid
blog.isMulti=0
blog.CreateFunctionPage
blog.Update_log tid, 0
If log_modiid = 0 Then
set rs=oblog.execute("select top 1 logid from oblog_log where logid<"&tid&" and userid="&log_blogteam&" and logtype=0 order by addtime desc")
If Not rs.EOF Then blog.Update_log rs(0), 0
End If
blog.Update_calendar (tid)
blog.Update_newblog (oblog.l_uid)
blog.Update_Subject (oblog.l_uid)
blog.Update_index 0
blog.Update_info oblog.l_uid
'生成团队日志
If log_blogteam<>oblog.l_uid Then
blog.userid=log_blogteam
blog.CreateFunctionPage
blog.update_calendar(tid)
blog.update_newblog(log_blogteam)
blog.update_subject(log_blogteam)
blog.update_index 0
blog.update_info log_blogteam
End If
'向目标链接发送Ping指令
If log_tb <> "" And log_tb <> log_oldtb Then
Dim objTrackBack
Set objTrackBack = New Class_TrackBack
objTrackBack.logid = tid
objTrackBack.Blog_Name = blog.BlogName
objTrackBack.title = log_topic
objTrackBack.url = oblog.cacheConfig(3) & "go.asp?logid=" & tid
objTrackBack.Excerpt = log_topic & "<br />oBlog Created"
Call objTrackBack.ProcessMultiPing(log_tb)
Set objTrackBack = Nothing
'response.Write("<script src="""&log_tb&"&url="&trim(oblog.cacheConfig(3))&blog.gourl&"&topic="&oblog.filt_astr(unHtml(log_topic),250)&"&tbuser="&oblog.l_uname&"""><script>")
End If
restr="提交完成!$$$1"
Else
If todraft = 1 Then
logtodraft (tid)
End If
restr="已在"&Hour(now())&":"&Minute(now())&"保存到草稿箱。$$$2$$$"&tid
' response.Write("<li><a href=""user_post.asp?logid="&tid&""">已经保存到草稿箱，点击继续修改日志</a></li>")
End If
'发布或修改日志后重新生成功能页面
Set rs = Nothing
Set blog = Nothing
'response.Write(restr)
ajax.re(split(restr,"$$$"))
response.End()
End Sub
Sub logtodraft(logid)
logid = Int(logid)
Dim uid, delname, subjectfile, sdate, edate, fso, sid, rs, readme
Set rs = Server.CreateObject("adodb.recordset")
rs.open "select userid,logfile,issave,subjectfile,subjectid,isdraft from oblog_log where logid=" & logid, conn, 1, 3
If Not rs.EOF Then
uid = rs(0)
delname = Trim(rs(1))
subjectfile = rs(3)
sid = rs(4)
If true_domain = 1 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
If oblog.l_ulevel = 9 Then
Set rst1 = oblog.Execute("select user_dir,user_folder from oblog_user where userid=" & Int(uid))
If Not rst1.EOF Then
delname = rst1(0) & "/" & rst1(1) & "/" & delname
End If
Set rst1 = Nothing
Else
delname=oblog.l_udir&"/"&oblog.l_ufolder&"/"&delname
End If
End If
If delname <> "" Then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(delname)) Then fso.deleteFile Server.MapPath(delname)
End If
rs("logfile") = ""
rs("isdraft") = 1
rs.Update
rs.Close
'oblog.Execute ("update oblog_user set log_count=log_count-1 where userid=" & uid)
'oblog.Execute ("update oblog_subject set subjectlognum=subjectlognum-1 where subjectid=" & Int(sid))
Dim blog
Set blog = New class_blog
blog.userid = uid
'blog.update_index_subject 0,0,0,""
blog.Update_index 0
blog.Update_newblog (uid)
Set blog = Nothing
Set fso = Nothing
Set rs = Nothing
Else
rs.Close
Set rs = Nothing
Exit Sub
End If
End Sub
sub get_draft()
dim rs,userid,draft_num,del_num,ajax
userid=clng(request("userid"))
set rs=oblog.execute("select count(logid) from oblog_log where isdraft=1 and isdel=0 and userid="&userid)
draft_num=rs(0)
if draft_num>0 then draft_num="("&draft_num&")" else draft_num=""
set rs=oblog.execute("select count(logid) from oblog_log where isdel=1 and userid="&userid)
del_num=rs(0)
if del_num>0 then del_num="("&del_num&")" else del_num=""
set rs=nothing
set ajax=new AjaxXml
ajax.re(split(draft_num&"$$$"&del_num,"$$$"))
end Sub
Function Replace_Plus(str)
Dim strTemp
If str = "" Or IsNull(str) Then
Replace_Plus= ""
Exit Function
End if
strTemp=Replace (str,Chr(25),"+")
Replace_Plus=strTemp
End Function
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?