edit.asp

ASP编写的网站

<% Option Explicit %>
<%response.buffer=true%>
<!--#include file="Inc_common.asp"-->
<%
'**************************************
'**    Edit.asp
'**
'** 文件说明：留言修改页面
'** 修改日期：2004-11-12
'** 作者：HACKer007
'** Email：[e-mail]
'**************************************

if not session("login")="true" then
  errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
  call error()
end if

select case request("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="frmAnnounce">
  <table align="center" cellpadding="3" cellspacing="1" class="table1" width="95%">
    <tr>
      <td width="20%" class="tablebody3" align="right" height="19">
      <font FACE="宋体" COLOR="red">**</font> <b>标题</b></td>
      <td width="80%" class="tablebody2" height="19">
      <input name="usertitle" size="40" maxlength="100" value="<%=rs("usertitle")%>"></td>
    </tr>
    <tr>
      <td width="20%" valign="top" class="tablebody3" align="right" height="160">
      <font FACE="宋体" COLOR="red">**</font> <b>正文</b></td>
      <td width="80%" class="tablebody2" height="160">
      <!--#include file="Inc_ubb.asp"-->
      <textarea class="smallarea" cols="60" name="usercontent" title="Ctrl+Enter提交" rows="12" onkeydown="ctlent()"><%=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"" 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" height="21">
      <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" height="21"><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 usertitle="" then
    errinfo=errinfo & "<li>未填写标题"
    elseif 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>self.close();</script>
<%
end sub
%>