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

📄 manage.asp

📁 娱乐A视网企业黄页程序 1.首页 index.asp 2.管理页 login.asp 管理员admin 密码admin
💻 ASP
字号:
<%
if request.cookies("okadmin")="" then
  response.redirect "login.asp"
end if
%>
<html>

<head>
<title>娱乐A视网—企业黄页-企业信息管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css"><!-- td           { font-size: 12px; line-height: 17px }
body         { font-size: 12px; line-height: 17px }
a:link       { text-decoration: none; color: blue }
a:visited    { text-decoration: none; color: #993333 }
a:active     { text-decoration: none }
a:hover      { text-decoration: underline; color: red }
-->
</style>
<script language="JavaScript">
function click(e) {
if (document.all) {
if (event.button==2||event.button==3) {
oncontextmenu='return false';
}
}
if (document.layers) {
if (e.which == 3) {
oncontextmenu='return false';
}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown=click;
document.oncontextmenu = new Function("return false;")
</script>
</head>

<body leftmargin="0" topmargin="0">

<div align="center">
<table border="0" width="71%" cellspacing="0" cellpadding="0">
<center>
<tr>
</center>
<td bgcolor="#FFFFFF" width="100%" valign="top">
<table border="2" width="100%" cellspacing="0" cellpadding="0" bordercolor="#FFFFFF">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
</center>
<tr>
<td valign="top" width="100%">
                      <p align="right"><font class="d"><a href="index.asp">回到首页</a></font> 
                      | <a href="new.asp" target="_blank">最新企业信息</a> |  
                      <a href="addgq.asp" target="_parent">发布企业信息</a>           
                        | <a href="login.asp" target="_parent">企业信息管理  
                      </a> &nbsp;        
                    </td>        
</tr>        
<tr>        
<td width="100%" valign="top">        
<table border="0" width="100%" cellspacing="0" cellpadding="0">        
<%        
        
connstr="DBQ="+server.mappath("database/20020122.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"        
     set conn=server.createobject("ADODB.CONNECTION")        
     conn.open connstr         
 set rst=server.createobject("adodb.recordset")        
  sqlt="select * from gqlb"        
 rst.open sqlt,conn,1,1        
i=1        
			  %>        
<tr>        
<td width="100%">        
<table border="0" cellpadding="0" cellspacing="0" width="100%" hspace="0">        
<tr>        
<%        
        do while not rst.eof        
       %>        
<td width="100%"><a href="glgq860.asp?lbid=<%=rst("lbid")%>"><%=rst("lbmc")%></a></td>        
        <%if i mod 1 = 0 then%>        
</tr>        
<% end if        
	             rst.movenext        
                    i=i+1        
    		          loop        
			rst.close        
%>           
             
</table>        
</td>        
</tr>        
</table>        
</td>        
</tr>        
</table>        
</div>        
<center>        
</center></td>     
</tr>     
</table>     
</td>     
</tr>     
</table>     
</div>     
</body>     
     
</html>     

⌨️ 快捷键说明

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