www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/addsave.asp
<!--#include file="conn.asp"--> <!--#include file="gyhs.asp"--> <head> <title><%=request.cookies("mc")%></title> <meta name="keywords" content="<%=request.cookies("gjz")%>"> </head> <body topmargin=0> <!--#include file="gyym.asp"--> <% wbfz ltbqxh=request("ltbqxh") d_title=trim(request("d_title")) zz=request.cookies("username") %> <% Dim sContent1, i For i = 1 To Request.Form("47").Count sContent1 = sContent1 & Request.Form("47")(i) Next %> <% sContent1=Replace(sContent1,"'","''") sContent1=Replace(sContent1,"""","") d_title=Replace(d_title,"'","''") d_title=Replace(d_title,"""","") %> <% sqltj="INSERT INTO zwtizi (cnbkid,ltbh,cntitle,cncount,cnuser)values("<bqxh&",'"<bh&"','"&d_title&"','"&sContent1&"','"&zz&"')" conn.execute(sqltj) sql="select id from zwtizi where cnuser='"&zz&"'order by id desc" set zh=conn.execute(sql) ids=zh("id") zh.close set zh=nothing '修改用户发帖子数目 sqlyhzt="select fabtzzs from zwuser where cnuser='"&zz&"'" set rsyh=conn.execute(sqlyhzt) fabtzzs=rsyh("fabtzzs") fabtzzs=fabtzzs+1 rsyh.close set rsyh=nothing yhzt="update zwuser set fabtzzs="&fabtzzs&" where cnuser='"&zz&"'" conn.execute(yhzt) '修改最新前台版面帖子显示 sqlbkzt="select ztzs,jrfat from zwbk where id="<bqxh&"" set rs1=conn.execute(sqlbkzt) jrfat=rs1("jrfat") jrfat=jrfat+1 ztzs=rs1("ztzs") ztzs=ztzs+1 rs1.close set rs1=nothing sqlzt="update zwbk set ztzs="&ztzs&",jrfat="&jrfat&",zxtitle='"&d_title&"',zxuser='"&zz&"' where id="<bqxh&"" conn.execute(sqlzt) %> <table class="a2" cellSpacing="1" cellPadding="4" width="97%" align="center" border="0"> <tr class="a3"> <td height="25"> <img src="imgs/Forum_nav.gif" width="9" height="9"> <a href="index.asp?ltbh=<%=ltbh%>"><%=request.cookies("mc")%></a> >> 帖子发布成功 </td> </tr> </table> </p> <SCRIPT>valigntop()</SCRIPT> <table class="a2" cellSpacing="0" cellPadding="0" width="97%" align="center" border="0"> <tr> <td height="106"> <table cellSpacing="1" cellPadding="6" width="100%" border="0"> <tr> <td class="a1" align="middle" width="100%" height="20"><b>论坛提示信息</b></td> </tr> <tr bgColor="#ffffff"> <td vAlign="top" align="left" height="122"><b> </b> <table cellSpacing="0" cellPadding="5" width="100%" border="0"> <tr> <td width="83%"><ul> <li>新主题发表成功 </li> <li> <a href="ShowPost.asp?ids=<%=ids%><bh=<%=ltbh%>&id=<%=ltbqxh%>"> 返回主题</a> </li> <li><a href="index.asp?ltbh=<%=ltbh%>"> 返回论坛首页</a> </li> </ul> </td> <td width="17%"> <img height="97" src="imgs/succ.gif" width="95"></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> <SCRIPT>valignbottom()</SCRIPT> </p> <% call bq dbjl.close set dbjl=nothing %> <%dbclose%>