bbs_edit_add.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<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

dim EditID,EditType
EditId=clng(request("editid"))
EditType=request("edittype")
  
'dim ForwardPage,StrPage,StrPage2
'forwardpage=request.servervariables("HTTP_REFERER")
'strpage="http://127.0.0.1/032508/bbs/bbs_edit.asp?BoardID="&boardid&"&EditID="&editid&"&EditType="&edittype
'if forwardpage<> strpage and forwardpage<> strpage 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")
	
	if EditType=1 then
		topicid=editid
		strSQL="select * from bbs_topic where topic_id="& editid 
	else 
		strSQL="select * from bbs_reply where reply_id="& editid   	
	end if
	objrs.open strsql,objConn,1,3	
	
	topicid=objrs("topic_id")
	if edittype=2 then anchor=objrs("anchor")
	objrs("title")=title
	objrs("content")=content
	objrs("emimage")=emimage
	objrs("isedit")=true
	objrs("lastedittime")=now()
	objrs.update
	
	%>
	<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=2;url="../bbs/bbs_show.asp?BoardID=<%=boardid%>&TopicID=<%=topicid%>#<%=Anchor%>">
<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->