📄 newpoll.asp
字号:
tpnl=tpnl+"<input name=tp type=checkbox value="&pollid+5&">"+tpnl5+"<br>"
rs.addnew
rs("主题ID")=pollid
rs("选项内容")=tpnl5
end if
if tpnl6<>"" then
tpnl=tpnl+"<input name=tp type=checkbox value="&pollid+6&">"+tpnl6+"<br>"
rs.addnew
rs("主题ID")=pollid
rs("选项内容")=tpnl6
end if
if tpnl7<>"" then
tpnl=tpnl+"<input name=tp type=checkbox value="&pollid+7&">"+tpnl7+"<br>"
rs.addnew
rs("主题ID")=pollid
rs("选项内容")=tpnl7
end if
if tpnl8<>"" then
tpnl=tpnl+"<input name=tp type=checkbox value="&pollid+8&">"+tpnl8+"<br>"
rs.addnew
rs("主题ID")=pollid
rs("选项内容")=tpnl8
end if
if tpnl9<>"" then
tpnl=tpnl+"<input name=tp type=checkbox value="&pollid+9&">"+tpnl9+"<br>"
rs.addnew
rs("主题ID")=pollid
rs("选项内容")=tpnl9
end if
if tpnl10<>"" then
tpnl=tpnl+"<input name=tp type=checkbox value="&pollid+10&">"+tpnl10+"<br>"
rs.addnew
rs("主题ID")=pollid
rs("选项内容")=tpnl10
end if
tpnl=tpnl+"<input type=Submit value=提交 name=okpoll> <a href=javascript:openScript('../poll.asp?lookpollid="&pollid&"',500,400)>查看結果</a></form>"
end if
rs.update
rs.close
set rs=nothing
nl=tpnl+"<br><br>"+nl
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT top 1 * FROM BT_Topic "
rs.open sql,conn,1,3
rs.AddNew
rs("BoardName")=boardname
rs("BoardID")=Bmid
rs("Subject")=titlename
rs("PostUser")=username
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("注册时间"))
'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> 注冊:"+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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -