📄 adminlogoshow.asp

📁 学生管理功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除
💻 ASP
字号:
<%  response.Buffer=true %>
<!--#include file="a25175_top.asp"-->
<link href="../25175css_pro.css" rel="stylesheet" type="text/css">

<!--#include file="a25175_conn.asp"-->
<script language="JavaScript">
function checkdata() {
	if (document.frm.title.value=='') {
		window.alert ("请输入主题！")
		return false}
		if (document.frm.body.value=='') {
		window.alert ("请输入您的内容！")
		return false}
		if (document.frm.password.value=='') {
		window.alert ("请输入密码！")
		return false}
	return true
}

</script>
<HTML>
<HEAD>
<TITLE>教务处欢迎您！</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">

</HEAD>
<BODY BGCOLOR=#FFFFFF>
<table width="970" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="178" rowspan="3" align="center" valign="top" background="images/left.gif"><!--#include file="adminleft.asp"--></td>
    <td align="left" valign="top" bgcolor="#FFFFFF">
	
	
	
	
	
	
	
	

	
	</td>
  </tr>
  <tr>
    <td align="center" valign="top" background="images/leftbgadmin.gif" class="W12pt"><br>
    友情链接管理：
    <%
	Dim rs,strSql
	
	Set rs=Server.CreateObject("ADODB.Recordset")
	strsql="select * from logo order by id desc"
	rs.Open strSql,db,3
	'查询记录
	If Not rs.Bof And Not rs.Eof Then
		'以下主要为了分页显示
		dim page_size                            '定义每页多少条记录变量
		dim page_no                             '定义当前是第几页变量
		dim page_total                           '定义总页数变量
		page_size=fenye                           '每页显示2条记录
		'如果第一次打开，则page_no为1，否则由传回的参数决定
		if Request.QueryString("page_no")="" then   
			page_no=1
		else
			page_no=Cint(Request.QueryString ("page_no"))  '用Cint将字符串变为整数
		end if
		rs.PageSize=page_size               '设置每页多少条记录
		page_total=rs.PageCount          '返回总页数
		rs.AbsolutePage=page_no           '设置当前显示第几页
		'下面一段显示当前页的所有记录
		Dim I
		I=page_size  
		%>      
    <span class="W12pt"><a href="Adminlogo.asp" target="_self">
    </a></span><span style="font-size: 12pt; font-style: normal; line-height: normal; font-weight: normal; font-family: &quot;宋体&quot;;"><a href="Adminlogo.asp" target="_self"><span style=""> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;添加友情链接</span></a></span></td>
  </tr>
  <tr>
    <td align="left" valign="top" background="images/leftbgadmin.gif" class="W12pt"><table width="100%" border="0" align="center" background="images/leftbgadmin.gif">
      <tr>
        <td background="images/Line.gif">网站名称：</td>
        <td background="images/Line.gif">网站URL</td>
        <td background="images/Line.gif">&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
      <% 
		 do while NOt rs.eof and I>0
		 I=I-1
		  %>
      <tr>
        <td width="31%" background="images/Line.gif"><a  href="<%=rs("linkURL")%>" target="_blank"><font color="#663399">
          <%
				  dim judge
		  judge=rs("linkname")
		  if len(judge)>40 then
		  judge=left(judge,40)
		  judge=judge&"¨¨"
		  end if
		  response.Write judge
		  %>
        </font></a></td>
        <td width="48%" background="images/Line.gif"><%=rs("linkURL")%></td>
        <td width="10%" background="images/Line.gif">&nbsp;</td>
        <td width="11%"><a  href="AdminlogoDelete.asp?id=<%=rs("id")%>" target="_self">【删除】</a></td>
      </tr>
      <% rs.movenext
		 Loop
		 
		 %>
      <tr align="right" valign="top" background="images/leftbgadmin.gif">
        <td height="59" colspan="4">
          <%
		
		'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接
		For I=1 To page_total                        
			If I=page_no Then                        
				Response.Write "【"& I &"】" & "&nbsp"
			Else
				Response.Write "<a href='AdminlogoShow.asp?page_no=" & I & "'>" &"【"& I &"】"& "</a>&nbsp"
			End If
		Next
	End if
	'关闭对象就省略了 
	%>
        </td>
      </tr>
    </table></td>
  </tr>
</table>
</BODY>
</HTML>
<!--#include file="../foot.asp"-->
⌨️ 快捷键说明

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