📄 myedit.asp

📁 这是一个文章管理的网页源程序
💻 ASP
字号:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="style.css">
</head><%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("admin")<>request("name") then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if

%>
<!--#include file="conn.asp"-->
<%
   	const MaxPerPage=18
   	dim totalPut   
   	dim CurrentPage
   	dim TotalPages
   	dim i,j
   	dim idlist
   	dim title
    dim name
    name=request("name")
	title=request("txtitle")
   	if not isempty(request("page")) then
      		currentPage=cint(request("page"))
   	else
      		currentPage=1
   	end if
  	if not isempty(request("selAnnounce")) then
     		idlist=request("selAnnounce")
     		if instr(idlist,",")>0 then
			dim idarr
			idArr=split(idlist)
			dim id
		for i = 0 to ubound(idarr)
	       		id=clng(idarr(i))
	       		call deleteannounce(id)
		next
     		else
			call deleteannounce(clng(idlist))
     		end if
  	end if 
   	dim sql
   	dim rs
%>

<body>
<center>

  <table border="0" width="95%" cellspacing="0" cellpadding="0">
    <tr>
    <td width="100%">
        <p>&nbsp;</p><table width="80%" border="0" align="center">
          <tr>
            <td><font color=red><%=request("name")%></font>:你好，在这里你可以修改自己发表的文章，具体状态有提示，点击相关文章查看及修改文章资料。删除文章请选中相关文章然后点击删除。</td>
          </tr>
        </table>
        <br>
        <form method=Post action="adminedit.asp">
          <%
	
	sql="select * from article where writer='"&request("name")&"' order by articleid desc"
	
	Set rs= Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1

  	if rs.eof and rs.bof then
       		response.write "<p align='center'> 还 没 有 任 何 文 章 </p>"
   	else
      		totalPut=rs.recordcount
      		if currentpage<1 then
          		currentpage=1
      		end if
      		if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     			currentpage= totalPut \ MaxPerPage
	  		else
	      			currentpage= totalPut \ MaxPerPage + 1
	   		end if

      		end if
       		if currentPage=1 then
           		showpage totalput,MaxPerPage,"myedit.asp"
            		showContent
            		showpage totalput,MaxPerPage,"myedit.asp"
       		else
          		if (currentPage-1)*MaxPerPage<totalPut then
            			rs.move  (currentPage-1)*MaxPerPage
            			dim bookmark
            			bookmark=rs.bookmark
           			showpage totalput,MaxPerPage,"myedit.asp"
            			showContent
             			showpage totalput,MaxPerPage,"myedit.asp"
        		else
	        		currentPage=1
           			showpage totalput,MaxPerPage,"mynedit.asp"
           			showContent
           			showpage totalput,MaxPerPage,"myedit.asp"
	      		end if
	   	end if
   	rs.close
   	end if
	        
   	set rs=nothing  
   	conn.close
   	set conn=nothing
  
   	sub showContent
       	dim i
	   i=0
%>
          <div align="center"><center>
              <table border="1" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" width="100%">
                <tr bgcolor="#F7FDF8"> 
                  <td align="center" width="5%"><b>ID</b></td>
                  <td align="center"><b>文章标题</b></td>
                  <td align="center" bgcolor="#F7FDF8" height="25"><b>文章状态</b></td>
                  <td align="center"><b>作者</b></td>
                  <td align="center"><b>添加时间</b></td>
                  <td align="center"><b>编辑</b></td>
                  <td align="center"><b> 删除</b></td>
                </tr>
                <%do while not rs.eof%> 
                <tr> 
                  <td> 
                    <p align="center"><%=rs("articleid")%> 
                  </td>
                  <td> 
                    <p><a href="myadminedit.asp?id=<%=rs("articleid")%>&classid=<%=rs("classid")%>&Nclassid=<%=rs("Nclassid")%>"><%=rs("title")%></a> 
                  </td>
                  <td align="center"><%if (rs("daifa"))=1 then%>审核通过<%else%><font color=red><%if (rs("daifa"))=2 then%>建议更改</font><%else%>待审核<%end if%><%end if%></td>
                  <td align="center"><%=rs("writer")%></td>
                  <td align="center"><font face="Arial, Helvetica, sans-serif"><%=rs("dateandtime")%></font></td>
                  <td align="center"><a href="myadminedit.asp?name=<%=session("admin")%>&id=<%=rs("articleid")%>&classid=<%=rs("classid")%>&Nclassid=<%=rs("Nclassid")%>">编辑</a></td>
                  <td align="center"><a href="mydel.asp?name=<%=session("admin")%>&articleid=<%=rs("articleid")%>">删除</a> 
                  </td>
                </tr>
                <%
	i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	loop
%> 
              </table>
      </center></div></form>
<%
   end sub 

function showpage(totalnumber,maxperpage,filename)
  dim n
  if totalnumber mod maxperpage=0 then
     n= totalnumber \ maxperpage
  else
     n= totalnumber \ maxperpage+1
  end if
  response.write "<p align='center'>&nbsp;"
  if CurrentPage<2 then
    response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
  else
    response.write "<a href="&filename&"?page=1&name="&name&">首页</a>&nbsp;"
    response.write "<a href="&filename&"?page="&CurrentPage-1&"&name="&name&">上一页</a>&nbsp;"
  end if
  if n-currentpage<1 then
    response.write "<font color='#000080'>下一页 尾页</font>"
  else
    response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&name="&name&">"
    response.write "下一页</a> <a href="&filename&"?page="&n&"&name="&name&">尾页</a>"
  end if
   response.write "<font color='#000080'>&nbsp;页次：</font><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"页</font> "
    response.write "<font color='#000080'>&nbsp;共"&totalnumber&"篇文章 "&maxperpage&"篇/页</font> "
       
end function

  
%>
    
  
</table>
</center>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -