<% dim xxid dim exec, rs xxid=encodestr(request.querystring("id")) if xxid="" or not theUser.reged then connclose() session("errmsg")="非法操作！！！" response.redirect "admin_error.asp" end if %> <%=sitetitle%>
<% exec="select * from ly where id="&xxid set rs=conn.execute(exec) if rs.eof and rs.bof then rsclose() connclose() session("errmsg")="该留言不存在！！！" response.redirect "admin_error.asp" end if if rs("bl")<>1 and not theUser.master then rsclose() connclose() session("errmsg")="这个留言不是注册用户发的！！！" response.redirect "admin_error.asp" end if if rs("name")<>theUser.name and not theUser.master then rsclose() connclose() session("errmsg")="这个留言不是你发的！！！" response.redirect "admin_error.asp" end if %>
发 言 标 题： " maxlength=40> *（标题限制 20 个汉字以内）
发  表  人： <%=rs("name")%>
电 子 邮 件： ">
　　Q Q　　： ">
主 页 地 址： " class="input1">
Ubb标签 (开)：
Q 帖图： Q帖图一 　Q帖图二 　Q帖图三

留
言
内
容

","</textarea>")%> "> <% rsclose() connclose() %>

　　　　　　     (Ctrl+Enter提交)