editwrite.asp

音乐类型的好网站

<!-- #include file="../sys/inc/char.asp" -->
<!-- #include file="top.asp" --> 
<!-- #include file=../chkuser.asp -->
<%
'====================================================
'程序制做:迅捷网络.          http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:[e-mail]
'请保留以上版权信息，谢谢合作！
'====================================================  
call top()
dim id,action,i,auid
id =request("id")
bid=request("bid")
auid=request.cookies("soonhostmember")("auid")

set rs=server.createobject("adodb.recordset")

if id <> "" then 
	id=(id)
	sql="select * from content where id="&id	
	action=1
else 
	id = (bid)
	sql="select * from revert where id="&id
	action=2
end if
'response.write (sql)
rs.open sql,conn,1,3
'response.write rs("bauid")
if rs("bauid") <> cint(auid) then 
errmsg="<br>"+"<li>您不是本文章的作者，没有权利编辑!"
call error()
response.end
end if

%>
<form action=editwrite2.asp method="POST"  name="write">
  <div align="center"> 
    <center>
      <script src="../sys/inc/ubbcode.js"></script>
      <table cellpadding=0 cellspacing=0 border=1 width=95% bordercolor="#0099cc">
        <tr> 
          <td class=td width="100%" colspan=2> 
            <p><strong>编辑文章 </strong>
          </td>
        </tr>
        <tr> 
          <td class=td1 width=220> 
            <div align="center"><b>主题标题</b> </div>
          </td>
          <td class=td2 width=*> 
            <input name="subject" size=60 maxlength=50 value=<% =rs("bsubject") %>>
            <input name="action" type=hidden  value=<% =action %>>
            <input name="id" type=hidden  value=<% =id %>>
          </td>
        </tr>
        <tr> 
          <td class=td1 width=220 valign="top"> 
            <div align="center"><b>当前心情</b><br>
            </div>
            <div align="center">将放在帖子的前面</div>
            <div align="center"></div>
            <br>
          </td>
          <td class=td2 width=*> <%for i=1 to 9%> 
            <input type="radio" value="<%=i%>" name="Express" >
            <img src="express/<%=i%>.gif" width="15" height="15">&nbsp;&nbsp; 
            <%next%> <br>
            <%for i=10 to 18%> 
            <input type="radio" value="<%=i%>" name="Express">
            <img src="express/<%=i%>.gif" width="15" height="15">&nbsp;&nbsp; 
            <%next%> </td>
        </tr>
        <tr> 
          <td  class=td1 width="220" valign=top> 
            <div align="center"><b>内容</b> <br>
              <br>
            </div>
            <div align="center">可以使用UBB标签 </div>
          </td>
          <td class=td2 width="*"> <!--#include file="getubb.asp"--> <br>
             <textarea class="smallarea" cols="80" name="Content" rows="12" wrap="VIRTUAL" ><%=rs("bcontent")%></textarea>
          </td>
        </tr>
        <tr> 
          <td  class=td valign=middle colspan=2 align=center> 
            <input type=Submit value="确定" name=Submit>
            &nbsp; &nbsp; 
            <input type="reset" name="Submit2" value="清 除">
          </td>
      </table>
    </center>
  </div>
</form>
<tr> 
<!-- #include file="../foot.inc" -->