⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 list.asp

📁 花钱买的毕业设计。企业网络管理系统
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim iPage,i
if Request.QueryString("page") <> "" then
  iPage = CInt(Request.QueryString("page"))
else
  iPage = 1
end if
if session("sqlString") <> "" then
	session("rs").pagesize = 10
	session("rs").cursorlocation = adUseClient
	session("rs").open session("sqlString"),session("conn"),adOPenForwardOnly,adLockReadOnly
	
	if not session("rs").eof then
  	if iPage = 0 or iPage > session("rs").pagecount then
  		session("rs").absolutepage = session("rs").pagecount
  	else
  		session("rs").absolutepage = iPage
  	end if
%>
<table width="450" border="0" align="center" cellpadding="1" cellspacing="1">
<%
  	if session("rs").pagecount > 1 then
  		response.write "  <tr align=""center""> " & vbCrLf
  		response.write "    <td>&nbsp;</td>" & vbCrLf
  		response.write "    <td align=""right"">" & vbCrLf
  		for i= 1 to session("rs").pagecount
  			if i = iPage then
  				Response.Write("[<strong>"&i&"</strong>] ")
  			else
  				Response.Write("[<a href='"&request.ServerVariables("PATH_INFO")&"?page="&i&"'>"&i&"</a>] ")
  			end if
  		next
  		response.write "    &nbsp;</td>" & vbCrLf
  		response.write "    <td>&nbsp;</td>" & vbCrLf
  		response.write "  </tr>" & vbCrLf
  	end if
%>
  <tr align="center"> 
    <td>　</td>
    <td> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<% 
  	for i = 1 to session("rs").pagesize
  		if not session("rs").eof then
%>
        <tr> 
          <td width="5%" align="center">&nbsp;<font color="#0000FF"><strong>*</strong></font></td>
          <td width="49%">&nbsp;&nbsp;<a href="#" onClick="window.open('../news/show_news.asp?id=<%= session("rs")("id") %>','','scrollbars=yes,width=400,height=300')"><%=CutString( session("rs")("title"),18) %></a></td>
          <td width="26%"><%= CutDate(session("rs")("time")) %></td>
          <% If session("mode") = "admin" Then %>
          <td width="10%"><input name="&deg;&acute;&Aring;&yen;" type="button" onClick="window.open('../admin/edit_news.asp?id=<%= session("rs")("id") %>','_self')" value="修　改"></td>
          <td width="10%"><input name="&deg;&acute;&Aring;&yen;" type="button" onClick="if(window.confirm('确定要删除该新闻？')) window.open('../admin/del_news.asp?id=<%= session("rs")("id") %>','_self');" value="删　除"></td>
          <% End If %>
        </tr>
<% 
  			session("rs").MoveNext
  		end if
  	next
%>
      </table></td>
    <td>　</td>
  </tr>
<%
  	if session("rs").pagecount > 1 then
  		response.write "  <tr align=""center""> " & vbCrLf
  		response.write "    <td>&nbsp;</td>" & vbCrLf
  		response.write "    <td align=""right"">" & vbCrLf
  		for i= 1 to session("rs").pagecount
  			if i = iPage then
  				Response.Write("[<strong>"&i&"</strong>] ")
  			else
  				Response.Write("[<a href='"&request.ServerVariables("PATH_INFO")&"?page="&i&"'>"&i&"</a>] ")
  			end if
  		next
  		response.write "    &nbsp;</td>" & vbCrLf
  		response.write "    <td>&nbsp;</td>" & vbCrLf
  		response.write "  </tr>" & vbCrLf
  	end if
%>
</table>
<%
  end if
  session("rs").close
end if
%>
</body>
</html>

⌨️ 快捷键说明

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