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

📄 message.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" target="_parent">回到首页</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 + -