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("&ltbqxh&",'"&ltbh&"','"&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="&ltbqxh&""
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="&ltbqxh&""
conn.execute(sqlzt)
%>
<table class="a2" cellSpacing="1" cellPadding="4" width="97%" align="center" border="0">
	<tr class="a3">
		<td height="25">&nbsp;<img src="imgs/Forum_nav.gif" width="9" height="9">&nbsp;<a href="index.asp?ltbh=<%=ltbh%>"><%=request.cookies("mc")%></a>&nbsp;>>&nbsp;帖子发布成功
		</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>&nbsp;</b>
				<table cellSpacing="0" cellPadding="5" width="100%" border="0">
					<tr>
						<td width="83%"><ul>
							<li>新主题发表成功
							</li>
							<li>
							<a href="ShowPost.asp?ids=<%=ids%>&ltbh=<%=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%>