edit.asp

XXX档案美女图片站适合给图片广告的站长下载使用

<% option explicit %>
<%response.buffer=true%>
<!--#include file="common.asp"-->
<!--#include file="session.asp"-->
<%
if not session("userkey")=4 then
	errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
	call error()
end if

select case request.querystring("act")
	case "addnew"
	call addnew()
	case else
	call main()
end select

sub main()

dim id
	id=request.querystring("id")
	pagename="编辑留言"
	call pageinfo()
	
	sql="select usertitle,usercontent,checked from topic where id="&id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3

	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		errinfo="<li>该留言不存在。"
		call error()
	end if

'---------------以下显示页面主体--------
%>
<br>
<script src="UBB.js"></script>
<form action="?act=addnew" method="post" name="lw_form">
	<table align="center" cellpadding="3" cellspacing="1" class="table1" width="95%">
		<tr>
			<td width="12%" class="tablebody3" align="right">
			<font face="宋体" color="red">***</font> <b>标题</b></td>
			<td width="88%" class="tablebody2">
			<input name="usertitle" size="40" maxlength="100" value="<%=rs("usertitle")%>"></td>
		</tr>
		<tr>
			<td valign="top" class="tablebody3" align="right">
			<font face="宋体" color="red">***</font> <b>正文</b></td>
			<td class="tablebody2">
			<!--#include file="inc_UBB.asp"-->
			<textarea class="smallarea" cols="60" name="usercontent" title="ctrl+enter提交" rows="12" onkeydown="ctlent()"><%=back_filter(rs("usercontent"))%></textarea><br>
			<br>
			点击表情符号可以将其加入正文（正文内容不能大于300字符）。<br>
			<%
dim ii,i
for i=1 to 42
	if len(i)=1 then ii="0" & i else ii=i
	response.write "<img src=""images/faces/"&ii&".gif"" width=20 height=20 border=0 onclick=""insertsmilie('[face"&ii&"]')"" style=""cursor: hand"">&nbsp;"
	if i=17 or i=34 then response.write "<br>"
next
%> </td>
		</tr>
		<tr>
			<td valign="middle" colspan="2" align="center" class="tablebody1">
			<input type="hidden" name="id" value="<%=id%>">
			<input type="submit" value="提 交" name="submit">&nbsp;&nbsp;
			<input type="reset" name="submit2" value="清 除"></td>
		</tr>
<%
if not rs(2)=1 then
%>
		<tr>
			<td colspan="2" align="center" class="tablebody1"><b>
			提示：</b>如果留言被编辑，将会自动通过审核。</td>
		</tr>
<%
end if
%>
	</table>
	</div>
</form>
<%
'--------------页面主体显示结束--------
end sub

sub addnew()

	dim id,username,userURL,usermail,userqq,usertitle,usercontent
	id=request.form("id")
	usertitle=trim(request.form("usertitle"))
	usercontent=request.form("usercontent")

	if len(usertitle)>50 then
		errinfo=errinfo & "<li>过长的标题"
	end if

	if usercontent="" then
		errinfo=errinfo & "<li>未填写留言内容"
	end if

call error()

	set rs= server.createobject("adodb.recordset")
	sql="select * from topic where id="&id
	rs.open sql,conn,3,2
	rs.update

	rs("usertitle")=usertitle
	rs("usercontent")=usercontent
	rs("checked")=1
	rs.update
	rs.close
%>
<script>self.opener.location.reload();</script>
<script language=javascript>  
alert( "留言修改成功！"  );
location.href = "manage.asp"  
</script>
<%
end sub
%>