www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/xgaddsave.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
menu=request("menu")
id=request("id")
%>

<%
Dim sContent1, i

For i = 1 To Request.Form("47").Count 
	sContent1 = sContent1 & Request.Form("47")(i) 
Next 
%>

<%
sContent1=Replace(sContent1,"'","''")
sContent1=Replace(sContent1,"""","")
%>
<%
if menu="tz" then
sql="update zwtizi set cncount='"&sContent1&"' where id="&id&" and ltbh='"&ltbh&"'"
conn.execute(sql)
end if

if menu="htz" then
sql="update zwhtz set htcount='"&sContent1&"' where id="&id&" and ltbh='"&ltbh&"'"
conn.execute(sql)
end if
%>
<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>帖子修改成功&nbsp; 
							</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%>