bbs_newtopic_add.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<% 
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/refresh.asp"-->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<%
if UserName=empty then
	response.Redirect("../common/showerr.asp?ErrType=1")
end if

'if request.servervariables("HTTP_REFERER")<>"http://127.0.0.1/032508/bbs/bbs_newtopic.asp?BoardID="&boardid then
'	response.Redirect("../common/showerr.asp?ErrType=2")
'end if
%>
	<%
	dim Title,EmImage,Content
	Title=trim(request.Form("title"))
	Emimage=trim(request.Form("emimage"))
	Content=request.Form("content")
	content=replace(content,"<","&lt")
	content=replace(content,">","&gt")
	
	strSQL="insert into bbs_topic(user_id,board_id,user_Name,title,content,emimage,pubtime) values ('" & userid& "','" &boardid & "','" &username & "','" & title &"'" &",'"&  content &"','"& emimage &"','"& Now() &"')"
	objConn.execute(strSQL)
	
	strSQL="select * from webcount"
	objrs.open strsql,objconn,1,3
	objrs("BBS_TtlCnt")=objrs("BBS_TtlCnt")+1
	objrs("BBS_TtlposCnt")=objrs("BBS_TtlposCnt")+1
	objrs("BBS_TdyPosCnt")=objrs("BBS_TdyPosCnt")+1
	objrs.update
	objrs.close
		
	strSQL="select topic_id from bbs_topic where title='"& title &"' order by pubtime desc"
	objrs.open strsql,objconn,1,1
	objrs.movefirst
  	TopicId=objRS("topic_id")
	objrs.close
	
	strSQL="select * from bbs_topic where topic_id="& topicid
	objrs.open strsql,objconn,1,3
	objrs("lastreplyuserid")=userid
	objrs("lastreplyusername")=username
	objrs("lastreplytime")=now()
	objrs.update
	objrs.close
	
	strSQL="select * from bbs_board where board_id="& boardid
	objrs.open strsql,objconn,1,3
	objrs("Last_userid")=userid
	objrs("Last_userName")=username	
	objrs("Last_pubtime")=now()
	objrs("Last_topicid")=topicid
	objrs("Last_topicname")=title
	objrs("TdyCnt")=objrs("TdyCnt")+1
	objrs("TtlCnt")=objrs("TtlCnt")+1
	objrs("TtlPosCnt")=objrs("TtlPosCnt")+1
	objrs.update
	objrs.close		
	
	strSQL="select bbs_pubcount from user_info where user_id="&userid
	objrs.open strsql,objconn,1,3
  	objrs("bbs_pubcount")=objrs("bbs_pubcount")+1
	objrs.update
	objrs.close

	%>
    <table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle" bordercolor="#FFFFFF" >
      <tr>
        <td bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead"><img src="../resource/images/bbs/li.gif" width="9" height="9"><a href="../blog/main.asp">56Blog</a>→<a href="bbs_main.asp">论坛</a>→发表帖子结果</td>
      </tr>
    </table>
    <br>
    <table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
      <tr>
        <td align="center"   bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">帖子发表成功</td>
      </tr>
      <tr>
        <td bordercolor="#4C4C4C"><table width="100%"  border="0" cellspacing="5" cellpadding="5">
          <tr>
            <td><li><a href="../blog/main.asp">返回56Blog首页</a></td>
          </tr>
		  <tr>
            <td><li><a href="../bbs/bbs_main.asp">返回论坛首页</a></td>
          </tr>
          <tr>
            <td><li><a href="bbs_list.asp?BoardID=<%=boardid%>">返回帖子列表</a></td>
          </tr>
          <tr>
            <td><li><a href="bbs_show.asp?BoardID=<%=boardid%>&TopicID=<%=topicid%>">返回您发表的帖子</a></td>
          </tr>
        </table>
		</td>
      </tr>
      <tr>
        <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif">&nbsp;</td>
      </tr>
    </table>
<meta http-equiv='refresh' content=3;url='bbs_show.asp?BoardID=<%=boardid%>&TopicID=<%=topicid%>'>
<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->