sys_upaffiche.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0735" %>
<!--#include file="conn.asp"-->
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<% 
afficheid=request.querystring("id")
set rs=server.createobject("adodb.recordset")
sql="select * from affiche where id="&afficheid&""
rs.open sql,conn,3,3
%>
<% if request.querystring("cmd")="add" then
affichetop=request.form("affichetop")
affiche=request.form("affiche")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from affiche where id="& request.querystring("id")&""
rs.open sql,conn,3,3
rs("affichetop")=affichetop
rs("affiche")=affiche
rs("date")=date()
rs.update
end if
%>
<table width="80%" border="1" cellspacing="0" cellpadding="5" bordercolor="#6687BA" bgcolor="#EAF1FB" style="border-collapse: collapse" align="center">
  <form name="form" method="post" action="sys_upaffiche.asp?cmd=add&id=<%=afficheid%>">
  <tr>
      <td> 
        <div align="center" class="f1" >首 页 会 告 添 加</div>
    </td>
  </tr>
  <tr>
      <td bgcolor="#FFFFFF" bordercolor="#FFFFFF"> 
        <div align="center">公告标题：   
          <input name="affichetop" type="text" id="affichetop" value="<%=rs("affichetop")%>" size="40">
          <br>
          <br>
          公告内容：   
          <textarea name="affiche" cols="40" rows="18" wrap="VIRTUAL" id="affiche"><%=rs("affiche")%></textarea>
        </div>
    </td>
  </tr>
  <tr>
      <td bgcolor="#FFFFFF" bordercolor="#FFFFFF"> 
        <div align="center">
        <input type="submit" name="Submit" value="修改">
        <input type="reset" name="Submit2" value="重写">
      </div>
    </td>
  </tr>
  </form>
</table>

<%
Call PrintPageBottom
%>
<%
set rs=nothing

%><% set conn=nothing %>