sys_addaffiche.asp

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

<% ModuleCode="M0735" %>
<!--#include file="conn.asp"-->
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->

<% if request.querystring("cmd")="add" then
affichetop=request.form("affichetop")
affiche=request.form("affiche")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from affiche"
rs.open sql,conn,3,3
rs.addnew
rs("affichetop")=affichetop
rs("affiche")=affiche
rs("date")=date()
rs.update
end if
if request.querystring("cmd")="del" then
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from affiche where id="& id &""
rs.open sql,conn,3,3
rs.delete
end if
%>
<div align="center">
  <center>
<table width="90%" border="1" cellspacing="0" cellpadding="3" bordercolor="#6687BA" style="border-collapse: collapse">
  <form name="form" method="post" action="sys_addaffiche.asp?cmd=add">
  <tr>
      <td bgcolor="#EAF1FB"> 
        <div align="center" class="f1" >首 页 会 告 添 加</div>
    </td>
  </tr>
  <tr>
      <td bgcolor="#FFFFFF" bordercolor="#FFFFFF"> 
        <div align="center">公告标题：    
          <input name="affichetop" type="text" id="affichetop" size="40">
          <br>
          <br>
          公告内容：    
          <textarea name="affiche" cols="40" rows="8" wrap="VIRTUAL" id="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>
  </center>
</div>
<br>
<%
myself=request.servervariables("path_info")
set rs=server.createobject("adodb.recordset")
sql="select * from affiche order by id desc"
rs.open sql,conn,3,3
if rs.eof then 
response.write"<div align=center> 暂 时 没 有 首 页 公 告</div>"
else
 rs.Pagesize=8
page=clng(request("page"))

if page<1 or page=empty then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page%>
<br>
<div align="center">
  <center>
<table width="90%" border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
  <tr> 
    <form action=<%=myself%> method=get>
      <td> 
        <%
if page<>1 then %>
        <div align="center"><a href=<%=myself%>?page=1>第一页</a> 
          <a href=<%=myself%>?page=<%=(page-1)%>>上一页</a> 
          <%
end if
if page<>rs.pagecount then
%>
          <a href=<%=myself%>?page=<%=(page+1)%>>下一页</a> 
          <a href=<%=myself%>?page=<%=rs.pagecount%>>最后一页</a> 
          <% end if %>
          <font style="font-size:9pt">&nbsp;输入页次:</font> 
          <input type=text name=page22 size=3 class="border">
          <font style="font-size:9pt">页次:</font><font color=red style="font-size:9pt"><%=page%>/<%=rs.pagecount%></font> 共有记录<font color=red style="font-size:9pt"><%=rs.recordcount %></font>条</div>
      </td>
    </form>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">　</td>
  </tr>
</table>
  </center>
</div>
<table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse" align="center">
  <tr> 
    <td height="17" bgcolor="#EAF1FB"> 
      <div align="center" class="f1" >已 发 布 的 首 页 会 告</div>
    </td>
  </tr>
  <tr>
    <td height="17" bgcolor="#FFFFFF" bordercolor="#FFFFFF"> 
      <% i=1
	  do while not rs.eof%>
      <table width="100%" border="0" align="center" cellpadding="3">
          <tr> 
            <td> <%=rs("id")%>.<span class="f2"><%=rs("affichetop")%></span></td>
            <td bgcolor="#EAF1FB" width="60"> <div align="center">&nbsp;&nbsp;<a href="sys_addaffiche.asp?cmd=del&id=<%=rs("id")%>"><font color="#FF0000">删除</font></a></div></td>
            <td bgcolor="#EAF1FB" width="60"> <div align="center"> <a href="sys_upaffiche.asp?id=<%=rs("id")%>" class="f1">修改</a></div></td>
          </tr>
        <% i=i+1
		  if i>8 then exit do
          RS.MoveNext
          Loop
          rs.close
         %>
      </table>
    </td>
  </tr>
</table>
<% end if %>
<%
Call PrintPageBottom
%>
<%
set rs=nothing
%>
<% set conn=nothing %>