b_xiugai.asp

是个论坛,使用过还可以.

<!--#include file="d_tou.asp" -->
<%
	tiezi=clng(Request("tiezi"))
	set querenfatie=lj.execute("select mingzi from tiezi where xuhao="& tiezi &"")
		if mingzi="" or mima="" then
			response.Redirect("b_bankuai.asp")
		elseif touyz.eof then
			response.Redirect("b_bankuai.asp")
		elseif touyz("mima")<>mima then
			response.Redirect("b_bankuai.asp")
		elseif touyz("mima")<>mima then
			response.Redirect("b_bankuai.asp")
		elseif querenfatie("mingzi")<>mingzi then
			response.Redirect("b_bankuai.asp")
		end if
	set zhutie=lj.execute("select bankuai from tiezi where xuhao="& tiezi &"")
	xuhao=zhutie("bankuai")
	if request("dongzuo")="xiugai" then
	set zhutie=lj.execute("select biaoti,neirong,bankuai from tiezi where xuhao="& tiezi &"")
	xuhao=zhutie("bankuai")
	set bankuai=lj.execute("select mingzi from bankuai where xuhao="& xuhao &"")
%>
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
  <tr>
    <td bordercolor="#F6F6F6" bgcolor="#FBFBFB"><img src="tupian/weizhi.gif" width="9" height="9"> <a href="b_bankuai.asp">论坛版块</a>  →
    <a href="b_luntan.asp?bankuai=<%=xuhao%>"><%=server.HTMLEncode(bankuai("mingzi"))%></a> → <a href="b_kantie.asp?tiezi=<%=tiezi%>">您的帖子</a> → 修改帖子</td>
  </tr>
</table>
<table width="95%" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
<tr><td bordercolor="#EBEBEB" bgcolor="#EFEFEF"><div align="center"> 
<%
		if request("fanhui")="" then
			response.Write("修改帖子")
		elseif request("fanhui")="kong" then
			response.Write("您刚才的表单没填完，请填好以后再提交。")
		elseif request("fanhui")="duo" then
			response.Write("帖子内容不能超过65535个文字。")
		end if
%>
</div></td></tr></table><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td><form method="post" action="c_xiugai.asp?tiezi=<%=tiezi%>">
<table width="100%" border="1" align="center" cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#EBEBEB">
<tr><td width="20%" bordercolor="#F0F0F0" bgcolor="#F5F5F5"><div align="center">心情</div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"> <input type="radio" name="xinqing" value="1"> 
<img src="xinqing/1.gif" width="19" height="19"> <input type="radio" name="xinqing" value="2"> 
<img src="xinqing/2.gif" width="19" height="19"> <input type="radio" name="xinqing" value="3"> 
<img src="xinqing/3.gif" width="19" height="19"> <input type="radio" name="xinqing" value="4"> 
<img src="xinqing/4.gif" width="19" height="19"> <input type="radio" name="xinqing" value="5"> 
<img src="xinqing/5.gif" width="19" height="19"> <input type="radio" name="xinqing" value="6"> 
<img src="xinqing/6.gif" width="19" height="19"> <input type="radio" name="xinqing" value="7"> 
<img src="xinqing/7.gif" width="19" height="19"> <input name="xinqing" type="radio" value="8" checked> 
<img src="xinqing/8.gif" width="19" height="19"> </td></tr><tr> 
<td bordercolor="#F0F0F0" bgcolor="#F5F5F5"><div align="center">标题</div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><input name="biaoti" type="text" id="biaoti" value="<%=zhutie("biaoti")%>" size="70" maxlength="50"></td>
</tr><tr><td bordercolor="#F0F0F0" bgcolor="#F5F5F5"><div align="center">插入</div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><input name="button" type="button" onClick="neirong.value=neirong.value+'[url][/url]'" value="链接"> 
<input name="Input" type="button" onClick="neirong.value=neirong.value+'[mail][/mail]'" value="邮件"> 
<input name="Input" type="button" onClick="neirong.value=neirong.value+'[img][/img]'" value="图片"> 
<input name="Input" type="button" onClick="neirong.value=neirong.value+'[fly][/fly]'" value="跳动"> 
</td></tr><tr><td bordercolor="#F0F0F0" bgcolor="#F5F5F5"><div align="center">上传</div></td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><iframe border=0 frameborder=0 framespacing=0 height=25 marginheight=0 marginwidth=0 name=iframe noResize scrolling=no src="b_boaisc.asp" width="100%"></iframe>
</td></tr><tr><td bordercolor="#F0F0F0" bgcolor="#F5F5F5"><div align="center">内容</div></td><td bordercolor="#F5F5F5" bgcolor="#FAFAFA">
<textarea name="neirong" cols="70" rows="15" wrap="VIRTUAL" id="neirong"><%=zhutie("neirong")%></textarea></td>
</tr><tr><td bordercolor="#F0F0F0" bgcolor="#F5F5F5">&nbsp;</td>
<td bordercolor="#F5F5F5" bgcolor="#FAFAFA"><input type="submit" value="修改"></td>
</tr></table></table>
<%
	elseif request("dongzuo")="shanchu" then
		lj.execute("delete from tiezi where xuhao="& tiezi &"")
		lj.execute("delete from tiezi where tiezi='"& tiezi &"'")
		response.Redirect("b_luntan.asp?bankuai="& xuhao &"")
	end if
%>
<!--#include file="d_wei.asp" -->