📄 newpoll.asp
字号:
rs("PostTime")=date()+time()
rs("LastPostTime")=date()+time()
rs("LastPostUser")="------"
rs("PollID")=cstr(pollid)
rs.Update
titleid=cstr(rs("id"))
titlefilename="fileid"+titleid+".html"
rs("FileName")=titlefilename
rs.Update
'--------------读取页面模板文件
top1="<script language=""JavaScript"" src=""../../inc/Top1_bbs.js""></script>"
tom1="<script language=""JavaScript"" src=""../../inc/Tom1_bbs.js""></script>"
'--------------编辑好Html文件内容
'------------------------编辑login用户信息-----
AccessNum=AccessNum+1
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
qm=rs3("签名") '处理签名
if qm<>"" then
qm=ubbcode(qm)
qm="<br><br><br>------------------签名-------------------<br>"+qm
else
qm=""
end if
rs3("声望")=rs3("声望")+usersw
rs3("积分")=rs3("积分")+userjf
rs3("经验")=rs3("经验")+userjy
rs3("金钱")=rs3("金钱")+usermoney
rs3("主题数")=rs3("主题数")+1
rs3.Update
'处理用户等级
AccessNum=AccessNum+1
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=cstr(rs3("等级"))
'usersw=cstr(rs3("声望"))
'userjf=cstr(rs3("积分"))
'userjy=cstr(rs3("经验"))
'titlenum=cstr(rs3("主题数")+rs3("回复数"))
end if
rs3.Close
set rs3=nothing
'-------------------------------------------编辑好内容nl
AccessNum=AccessNum+1
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select top 1 id,所属分类,版面名称,主题总数,版面最后发帖 from 版面分类 where id="&Bmid&" "
rs1.open sql1,conn,1,3
rs1("主题总数")=rs1("主题总数")+1
rs1("版面最后发帖")=rs("id")
if len(titlename)>15 then
titlename=left(titlename,12)
titlename=titlename+"..."
end if
'下面代码文件导航处
top="<script src=../online.asp?userwz="&titlename&"&dis=NO></script><table width=743><tr><td height=30 class=light> <img src=../../images/nav.gif> <a href=../index.asp><font class=NavColor>论坛首页</a> >></font> <a href=../index.asp?bbsid="&bbsid&"><font class=NavColor>"&Flname&"</a> >> </font> <a href=../dislist.asp?boardid="+Bmid+"><font class=NavColor>"+boardname+"</font></a> >> <a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a> >> <font class=NavColor><b><!--Title1-->"+titlename+"<!--Title2--></b></font></td></tr><tr><td><a href=../newfile.asp?boardid="&Bmid&"><img src=../../images/newtitle.gif border=0></a> <a href=../newpoll.asp?boardname="&boardname&"&boardid="&Bmid&"><img src=../../images/newpoll.gif border=0></a> <a href=../retitle.asp?boardid="&Bmid&"&titleid="&cstr(rs("id"))&"&titlename="&titlename&"><img src=../../images/reanc.gif border=0></a></td></tr></table>"
'下面代码回复处
nl=top+"<table border=1 width=743 cellspacing=0 cellpadding=2 align=center class=table1 style='table-layout:fixed; word-break:break-all'><tr><td width=170 valign=top class=light> <a href=../LookUserInfo.asp?username="+rs("PostUser")+"><img src=../../images/userpic/"+imageid+" border=0 onload=""javascript:if(this.width>150)this.width=150"" alt='查看该用户资料'></a><br> <a href=../LookUserInfo.asp?username="+rs("PostUser")+" title='查看该用户资料'><font class=TBtwofont><b>"+rs("PostUser")+"</b></font></a><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=TBhead><table width=100% border=0><tr><td width=65% ><font class=HeadFont><b> 主题: <!--Title3-->"+titlename+"<!--Title4--></b> "+cstr(rs("PostTime"))+"</font></td><td align=right><a href=../retitle.asp?BoardID="&BmID&"&titleid="&titleid&"&titlename="&titlename&"><img src=../../images/re.gif border=0 alt='回复'></a> <a href=javascript:openScript('../readsms.asp?username="&username&"&sjr="&rs("PostUser")&"',500,400)><img src=../../images/message.gif border=0 alt='给该用户发送消息'></a> <a href=../addfd.asp?fdname="&rs("PostUser")&"><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="&BmID&"&Post=0&File=fileid"&titleid&".html&PostUser="&UserName&"><img src=../../images/edit.gif border=0 alt='编辑该帖子'></a> <a href=../addsc.asp?pathfilename=bbs"+bmid+"/"+titlefilename+"&titlename="+titlename+"><img src=../../images/sc.gif border=0 alt=加入到你的帖子收藏夹></a> <b>楼主</b></td></tr></table></td></tr></table><br>"+"<span id=""BodyLabel"" class=""content"" style=""display:block;padding:0px 10px""><!--BeginNl0-->"+nl+"<!--EndNl0--></span>"+qm+"</td></tr></table>"
rs.Update
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="&Bmid&"&titleid="&cstr(rs("id"))&"&boardname="&boardname&"&titlename="&titlename&"><FONT color=#990000>高级回复</font></a>进行编辑</td><td class=light><form name=refile method=post action=../refile.asp?titleid="&cstr(rs("id"))&"><br> 标题 <INPUT class=fminpt name=titlename type=text size=50 value=Re:"&titlenamew&"><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="&Bmid&"&filename="&titlefilename&"></script>"
nl="<center>"+top1+nl+"<!--FileBZ-->"+fromto+tom1+"</center>"'完成html文件的编辑
rs1.Update
rs1.close
set rs1=nothing
'--------------添加html文件
rs.Close
DIM myFile
Const ForReading = 1
Const Forwriting = 2
Const ForAppending = 8
myFile="bbs"+Bmid+"/"+titlefilename
myFolder="bbs"+Bmid
myFile = Server.MapPath(myFile)
myFolder=server.MapPath(myFolder)
Application.lock
set 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()
Application.unlock
'---------------清除首页缓存页面
Application.Lock
Application(BBSname&boardname+"bs")=Application(BBSname&boardname+"bs")+1
Application(BBSname&"index")=""
Application(BBSname&boardname)=""
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<%=Bmid%>/<%=titlefilename%>'>
<a href=dislist.asp?boardname=<%=boardname%>&boardid=<%=Bmid%>>返回到主题列表</a>
<a href=bbs<%=Bmid%>/<%=titlefilename%>>返回到主题</a>
<br><br><br><br></center>
<%
else
if login="Y" then
%>
<script>
var ValidationPassed = true;
function ctlkey()
{
if(event.ctrlKey && window.event.keyCode==13){if(ValidationPassed)document.newfile.submit();}
if(event.altKey && (window.event.keyCode==83 || window.event.keyCode==115)){if(ValidationPassed)document.newfile.submit();}
}
function changemode(mode)
{
if(ValidationPassed == true)
{
document.newfile.submit();
}
}
var ie = (document.all)? true:false
if (ie)
{
window.document.onkeydown=ctlkey;
}
</script>
<form name=newfile method="post" action="newpoll.asp?boardid=<%=Bmid%>&boardname=<%=boardname%>">
<table width=743><tr><td><a href=index.asp><font class=NavColor>论坛首页</a> >></font> <a href=index.asp?bbsid=<%=bbsid%>><font class=NavColor><%=Flname%></a> >> </font><a href=dislist.asp?boardid=<%=Bmid%>><font class=NavColor><%=boardname%></font></a> >> 新帖子</font></td></tr></table>
<table border=1 width=743 cellspacing=0 cellpadding=0 align=center class=table1>
<tr><td class=light1> <b>*帖子类型</b></td><td class=light>
<form name="myform">
<select name="select" size="1" onchange="location=this.options[this.selectedIndex].value">
<option value="NewPoll.asp?boardid=<%=Bmid%>">投票帖子</option>
<option value="newfile_news.asp?boardid=<%=Bmid%>">新闻格式</option>
<option value="newfile.asp?boardid=<%=Bmid%>">普通论坛帖子</option>
</select>
</td></tr>
<tr><td class=light1> <b>*用户名</b></td><td class=light><INPUT class=fminpt name=username type=text size=30 value=<%=username%>></td></tr>
<tr><td class=light1> <b>密 码</b></td><td class=light> <INPUT class=fminpt name=password type=password size=30></td></tr>
<tr><td width=150 class=light1>
<table border=0><tr><td><b>*主 题</b></td><td>
<SELECT name=font onchange="document.newfile.titlename.value=this.value+document.newfile.titlename.value;">
<OPTION selected value="">选择话题<OPTION value=[原创]>[原创]
<OPTION value=[转帖]>[转帖] <OPTION value=[灌水]>[灌水]
<OPTION value=[讨论]>[讨论] <OPTION value=[求助]>[求助]
<OPTION value=[推荐]>[推荐] <OPTION value=[公告]>[公告]
<OPTION value=[注意]>[注意] <OPTION value=[贴图]>[贴图]
<OPTION value=[建议]>[建议] <OPTION value=[下载]>[下载]
<OPTION value=[分享]>[分享]
</SELECT></td></tr></table>
</td><td class=light>
<INPUT class=fminpt name=titlename type=text size=60> 最长<%=TitleLen%>个字符</td></tr>
<tr><td class=light1> <b>*投票选项</b><br><br> 选择是单选还是多<br><br> 选投票<br><br> 投票的内容选项<br><br> 最多不超过10项,多<br><br> 出的格子空下</td><td class=light> <input name=tptype type=radio value=1>单选 <input name=tptype type=radio value=2>多选<br>
选项1 <INPUT class=fminpt name=tpnl1 type=text size=50><br>
选项2 <INPUT class=fminpt name=tpnl2 type=text size=50><br>
选项3 <INPUT class=fminpt name=tpnl3 type=text size=50><br>
选项4 <INPUT class=fminpt name=tpnl4 type=text size=50><br>
选项5 <INPUT class=fminpt name=tpnl5 type=text size=50><br>
选项6 <INPUT class=fminpt name=tpnl6 type=text size=50><br>
选项7 <INPUT class=fminpt name=tpnl7 type=text size=50><br>
选项8 <INPUT class=fminpt name=tpnl8 type=text size=50><br>
选项9 <INPUT class=fminpt name=tpnl9 type=text size=50><br>
选项10<INPUT class=fminpt name=tpnl10 type=text size=50><br>
</td></tr>
<tr><td class=light1> <b>发帖表情</b></td><td class=light>
<table><tr><td><input name=ftbq type=radio value=FACE1.gif></td><td><img src=../images/ftbq/FACE1.gif> </td><td><input name=ftbq type=radio value=FACE2.gif></td><td><img src=../images/ftbq/FACE2.gif> </td><td><input name=ftbq type=radio value=FACE3.gif></td><td><img src=../images/ftbq/FACE3.gif> </td><td><input name=ftbq type=radio value=FACE5.gif></td><td><img src=../images/ftbq/FACE5.gif> </td><td><input name=ftbq type=radio value=FACE6.gif></td><td><img src=../images/ftbq/FACE6.gif> </td><td><input name=ftbq type=radio value=FACE7.gif></td><td><img src=../images/ftbq/FACE7.gif> </td><td><input name=ftbq type=radio value=FACE15.gif></td><td><img src=../images/ftbq/FACE15.gif> </td><td><input name=ftbq type=radio value=FACE16.gif></td><td><img src=../images/ftbq/FACE16.gif> </td></tr><tr><td><input name=ftbq type=radio value=FACE8.gif></td><td><img src=../images/ftbq/FACE8.gif> </td><td><input name=ftbq type=radio value=FACE9.gif></td><td><img src=../images/ftbq/FACE9.gif> </td><td><input name=ftbq type=radio value=FACE12.gif></td><td><img src=../images/ftbq/FACE12.gif> </td><td><input name=ftbq type=radio value=FACE13.gif></td><td><img src=../images/ftbq/FACE13.gif> </td><td><input name=ftbq type=radio value=FACE14.gif></td><td><img src=../images/ftbq/FACE14.gif> </td><td><input name=ftbq type=radio value=FACE4.gif></td><td><img src=../images/ftbq/FACE4.gif> </td><td><input name=ftbq type=radio value=FACE11.gif></td><td><img src=../images/ftbq/FACE11.gif> </td><td><input name=ftbq type=radio value=FACE10.gif></td><td><img src=../images/ftbq/FACE10.gif> </td></tr></table>
</td></tr>
<tr>
<td width="150" height="30" class=light1> <b>UBB标签：</b></td>
<td height="30" class=light>
<img onclick=bold() src="pic/icon_editor_bold.gif" width="22" height="22" alt="粗体" border="0">
<img onclick=italicize() src="pic/icon_editor_italicize.gif" width="23" height="22" alt="斜体" border="0">
<img onclick=underline() src="pic/icon_editor_underline.gif" width="23" height="22" alt="下划线" border="0">
<img onclick=center() src="pic/icon_editor_center.gif" width="22" height="22" alt="居中" border="0">
<img onclick=hyperlink() src="pic/icon_editor_url.gif" width="22" height="22" alt="超级连接" border="0">
<img onclick=email() src="pic/icon_editor_email.gif" width="23" height="22" alt="Email连接" border="0">
<img onclick=image() src="pic/icon_editor_image.gif" width="23" height="22" alt="图片" border="0">
<img onclick=flash() src="pic/swf.gif" width="23" height="22" alt="Flash图片" border="0">
<img onclick=showcode() src="pic/icon_editor_code.gif" width="22" height="22" alt="编号" border="0">
<img onclick=quote() src="pic/icon_editor_quote.gif" width="23" height="22" alt="引用" border="0">
<img onclick=list() src="pic/icon_editor_list.gif" width="23" height="22" alt="目录" border="0">
<IMG onclick=setfly() height=22 alt=飞行字 src="pic/fly.gif" width=23 border=0>
<IMG onclick=move() height=22 alt=移动字 src="pic/move.gif" width=23 border=0>
<IMG onclick=glow() height=22 alt=发光字 src="pic/glow.gif" width=23 border=0>
<IMG onclick=shadow() height=22 alt=阴影字 src="pic/shadow.gif" width=23 border=0>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -