📄 refile.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="UserPost_Const.asp"-->
<!--#include file="char.asp"-->
<!--#include file="BTBBS_FUN.asp"-->
<%
Dim err
Call JCC_Board_TOP
username=Request.Cookies("username")
login=Request.Cookies("login")
boardname=Request.QueryString("boardname")
titleid=Request.QueryString("titleid")'主题ID
titlename=Request.Form("titlename")'回复标题
if Request.Form("htmlable")="yes" then nl=htmlencode2(Request.Form("nl")) else nl=ubbcode(Request.Form("nl")) end if'回复的内容
if Request.Form("ftbq")<>"" then nl="<img src=../../images/ftbq/"+Request.Form("ftbq")+">"+nl end if
err=""
if login<>"Y" then err="尚未登陆或用户名/密码错误!<br>" end if
if len(titlename)>TitleLen then login="n":err=err+"标题过长,超过规定"&cstr(TitleLen)&"个字符的长度<br>" end if
if len(nl)>FileLen then login="n":err=err+"文件内容过长,超过规定"&cstr(FileLen)&"个字符的长度<br>" end if
if login<>"Y" then
Response.Write "<center><table width=743><tr><td><a href=index.asp><font class=NavColor>首页</a> >> 回复帖子</font></td></tr></table>"
Response.Write "<br><br><br> "&err&" <a href=# onclick=history.go(-1)>返回</a> <a href=exit.asp>登陆</a><br><br><br><br>"
else
'------------------------编辑login用户信息-----
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select top 1 id,UserPage,头像ID,注册时间,权限,等级,声望,积分,经验,金钱,主题数,回复数,签名 from 用户资料 where 用户名='"&username&"' "
rs3.open sql3,conn,1,3
if rs3.BOF and rs3.EOF then
Response.Write "没有这个用户"
else
rs3("声望")=rs3("声望")+usersw_p
rs3("积分")=rs3("积分")+userjf_p
rs3("经验")=rs3("经验")+userjy_p
rs3("金钱")=rs3("金钱")+usermoney_p
rs3("回复数")=rs3("回复数")+1
rs3.Update
'处理用户等级
Set rsdj = Server.CreateObject("ADODB.Recordset")
rsdj2="select * from 论坛等级 where 所需积分<="&rs3("积分")&" and 所需经验<="&rs3("经验")&" and 所需声望<="&rs3("声望")&" and 所需发帖量<="&rs3("主题数")+rs3("回复数")&" "
rsdj.open rsdj2,conn,1,1
rsdj.MoveLast
rs3("等级")=rsdj("等级名称")
rsdj.close
set rsdj=nothing'----------------
rs3.Update
UserPage=rs3("UserPage")
imageid=rs3("头像ID")
regtime=cstr(rs3("注册时间"))
If rs3("权限")="admin" Then userqx="<img src=../../images/admin_.gif>" Else If rs3("权限")="bbsadmin" Then userqx="<img src=../../images/bbsadmin.gif>" Else userqx="<img src=../../images/reguser.gif>" End If End If
userdj=rs3("等级")
qm=rs3("签名") '处理签名
if qm<>"" then
qm=ubbcode(qm)
qm="<br><br><br>------------------签名-------------------<br>"+qm
else
qm=""
end if
end if
rs3.Close
set rs3=nothing
'--------------------------
'编辑好回复内容
Set rs=conn.execute("select top 1 id,BoardName,BoardID,PostNum from BT_Topic where ID="&titleid&" ") '统计回复数
BoardID=rs("BoardID") '版面ID
BoardName=rs("BoardName")
renum=rs("PostNum")+1 '主题总数
Set rs=nothing
htmltext="<!--BeginPost"&cstr(renum)&"--><center><table border=1 width=743 cellspacing=0 cellpadding=2 align=center class=table1 style='table-layout:fixed; word-break:break-all'>"
retitle=titlename
if len(titlename)>20 then
retitle=left(titlename,16)
retitle=htmlencode(retitle+"...")
else
retitle=htmlencode(titlename)
end if
htmltext1=htmltext1+"<tr><td width=170 valign=top class=light> <a href=../LookUserInfo.asp?username="+username+"><img src=../../images/userpic/"+imageid+" border=0 onload=""javascript:if(this.width>150)this.width=150"" alt='查看该用户资料'></a><br> <a href=../LookUserInfo.asp?username="+username+" title='查看该用户资料'><font class=TBtwofont><b>"+username+"</b></font></a><br><br> "+userqx+"<br> 用户等级:"+userdj+"<br><br> 注册:"+regtime+"</td><td style='LEFT: 0px; WIDTH: 555; WORD-WRAP: break-word' valign=top class=light><table width=100% border=0><tr><td class=light1><table width=100% border=0><tr><td width=65% > <b>"+retitle+"</b> "+cstr(date()+time())+"</td><td align=right><a href=../retitle.asp?BoardID="&BoardID&"&titleid="&titleid&"&titlename="&titlename&"><img src=../../images/re.gif border=0 alt='回复'></a> <a href=javascript:openScript('../readsms.asp?username="&username&"&sjr="&username&"',500,400)><img src=../../images/message.gif border=0 alt='给该用户发送消息'></a> <a href=../addfd.asp?fdname="&username&"><img src=../../images/friend.gif border=0 alt='加为好友'></a> <a href="&UserPage&"><img src=../../images/home.gif border=0 alt='用户主页'></a> <a href=../EditPost.asp?BoardID="&BoardID&"&Post="&renum&"&File=fileid"&titleid&".html&PostUser="&UserName&"><img src=../../images/edit.gif border=0 alt='编辑该帖子'></a> <a href=../DelPost.asp?BoardID="&BoardID&"&Post="&renum&"&File=fileid"&titleid&".html&PostUser="&UserName&"><img src=../../images/del.gif border=0 alt='删除该回复'></a> <b>第<script>document.write(addnum())</script>楼</b></td></tr></table></td></tr></table><br>"+"<span id=""BodyLabel"" class=""content"" style=""display:block;padding:0px 10px""><!--BeginNl"&renum&"-->"+nl+"<!--EndNl"&renum&"--></span>"+qm+"</td></tr>"
htmltext=htmltext+htmltext1+"</table></center><!--EndPost"&cstr(renum)&"-->"
'--------------读取页面模板文件
tom1="<script language=""JavaScript"" src=""../../inc/Tom1_bbs.js""></script>"
'--------------
'将新的回复内容添加到主题列表的回复内容当中
filename="fileid"+titleid+".html"'主题文件名
sql="SELECT top 1 id,BoardID,FileName,PostNum,LastPostTime,LastPostUser FROM BT_Topic where id="&clng(titleid)&" "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Write "没有找到相应的主题"
else
rs("PostNum")=rs("PostNum")+1
rs("LastPostTime")=date()+time()
rs("LastPostUser")=username
rs.update
boardid=rs("BoardID")'读取主题的版面ID
'读取原来的内容
dim myFile1
Const ForReading = 1 Const Forwriting = 2
Const ForAppending = 8
myFile1 = Server.MapPath("bbs"&boardid&"/"&filename&"")
Set fileStreamObj = CreateObject("Scripting.FileSystemObject") Set textStream = fileStreamObj.OpenTextFile(myFile1,ForReading,False) myFile1=textStream.ReadAll() textStream.Close()
Set fileStreamObj=Nothing
Set textStream=Nothing
wz=InStr(1,myFile1,"<!--FileBZ-->")
myFile1=left(myFile1,wz-1)
nl=myFile1+htmltext '加入新的内容
'-------------------------------------
'回复内容框;
fromto="<table border=1 width=743 cellspacing=0 cellpadding=2 align=center class=table1><tr><td width=170 class=light> *快速回复<br><br> 默认支持UBB,如果你不希望<br><br> 支持UBB或要其它功能你可<br><br> 以用<a href=../retitle.asp?boardid="&boardid&"&titleid="&cstr(rs("id"))&"&titlename="&titlename&"><FONT color=#990000>高级回复</font></a>进行编辑</td><td class=light><form name=refile method=post action=../refile.asp?titleid="&titleid&"><br> 标题 <INPUT class=fminpt name=titlename type=text size=50 value="&titlename&"><br> 内容 <TEXTAREA class=fminpt ROWS=10 COLS=50 name=nl></textarea><br><br> <input type=Submit value=完成 name=add> <input type=reset name=Clear value=重写></td></tr></form></td></tr></table><br><script src=../filetom.asp?BoardID="&BoardID&"&filename="&filename&"></script>"
nl="<center>"+nl+"<!--FileBZ-->"+fromto+tom1+"</center>" '编辑好html内容
end if
rs.close
set rs=nothing
'写入到Html文档中
DIM myFile
myFile="bbs"+cstr(boardid)+"/fileid"+titleid+".html"
myFolder="bbs"+cstr(boardid)myFile = Server.MapPath(myFile)
myFolder=server.MapPath(myFolder)
Application.lockSET fileStreamObj = CreateObject("Scripting.FileSystemObject")if fileStreamObj.FolderExists(myFolder) then Response.Write "" else fileStreamObj.CreateFolder(myFolder) end if
fileStreamObj.CreateTextFile(myFile)Set textStream = fileStreamObj.OpenTextFile(myFile,ForWriting,False)
textStream.Write(nl)textStream.Close()
Set fileStreamObj=nothing
Application.unlock
'-------版面回帖总数加1--------------------------------
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT top 1 id,版面名称,回复总数 FROM 版面分类 where 版面名称='"&boardname&"' "
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Write "没有找到这个版面名称"
else
rs("回复总数")=rs("回复总数")+1
rs.update
end if
rs.close
set rs=nothing
Application.Lock
Application(BBSname&"index")="" '清除首页缓存
Application(BBSname&boardname)=""
Application(BBSname&boardname+"bs")=Application(BBSname&boardname+"bs")+1
Application.UnLock
Set rs=conn.execute("select id,所属分类ID,所属分类,版面名称,版面状态,访问控制,版面介绍,版主,主题总数,回复总数,版面标记图片,版面最后发帖,认证论坛用户 from 版面分类 ")
if not (rs.bof and rs.eof) then Application(BBSname&"BT_Board")=rs.GetRows(-1) end if
rs.close
set rs=nothing
AccessNum=AccessNum+1
'------------------------------------------------------%>
<center><br><br><br>
<meta HTTP-EQUIV=refresh Content='3;url=bbs<%=boardid%>/fileid<%=titleid%>.html'>
帖子回复完成 <a href=dislist.asp?boardname=<%=boardname%>&boardid=<%=boardid%>>返回主题列表</a> <a href=bbs<%=boardid%>/fileid<%=titleid%>.html>返回到发表的主题</a>
<br><br><br><br></center><%
end if
%><!--#include file="../inc/tom1.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -