message.asp

来自「一个功能强大的黄页查询系统」· ASP 代码 · 共 115 行

ASP

115 行

<%
if request.cookies("okadmin")="" then
  response.redirect "login.asp"
end if
%>
<html>

<head>
<title>娱乐Ａ视网—企业黄页-企业信息分类</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>

message.asp - 源码说明

本页面展示了「一个功能强大的黄页查询系统」中的 message.asp 源码文件，采用 ASP 编程语言编写，共 115 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与页相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?