📄 lanmugl.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统

💻 ASP

字号:

<!--#include file="dbpath/dbpath.asp"-->
<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if
%>
<html>
<head>
<title>网站链接类别管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>

<body bgcolor="#FFFFFF">
<div align="center">网站链接类别管理 </div>
<table border="1" width="40%" bordercolorlight="#000000" cellspacing="3" cellpadding="0"
bordercolordark="#FFFFFF" align="center">
  <%
dim rst
	set rst=server.CreateObject("ADODB.RecordSet")

%> 
  <tr> 
    <td width="50%" valign="top"> <%
	rst.open "select * from linktype",conn,1
 if rst.EOF then
	response.write "没有栏目：（"
	else
%><br>
 
        <p align=center> <%do while NOT rst.EOF%> <%=rst("type")%> <a  HREF="deletefile.asp?typeid=<%=rst("typeid")%>&name=del">删除</a> 
          <a HREF="editfile.asp?typeid=<%=rst("typeid")%>&name=edit">修改</a> 
          <br>
          <%
	rst.MoveNext
	loop
	end if
rst.close
%> 
 
<br></tr>
</table>
<p align="center"><a href="changepass.asp">返回网站链接管理系统界面</a></p>
<p align="center"><!--#include file="function/ads.inc"--></p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -