📄 index.asp

📁 不错的一个网站哦, 不错的一个网站哦
💻 ASP
字号:
<%@ ENABLESESSIONSTATE = FALSE %>
<!--#include file="config.asp" -->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>鹏城交友</title>
<style type="text/css">
<!--
#Layer1 {
	position:absolute;
	width:47px;
	height:45px;
	z-index:1;
}
#Layer2 {
	position:absolute;
	width:200px;
	height:115px;
	z-index:4;
	left: 91px;
	top: -2px;
}
#Layer3 {
	position:absolute;
	width:396px;
	height:280px;
	z-index:7;
	left: 417px;
	top: 299px;
}
#Layer4 {
	position:absolute;
	width:200px;
	height:40px;
	z-index:3;
	left: 106px;
	top: 228px;
}
#Layer5 {
	position:absolute;
	width:401px;
	height:30px;
	z-index:9;
	left: 435px;
	top: 286px;
}
#Layer6 {
	position:absolute;
	width:257px;
	height:30px;
	z-index:8;
	left: 612px;
	top: 247px;
}
-->
</style>
<link href="INDEX.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
#Layer7 {
	position:absolute;
	width:165px;
	height:19px;
	z-index:10;
	left: 157px;
	top: 251px;
}
#Layer8 {
	position:absolute;
	width:165px;
	height:16px;
	z-index:11;
	left: 158px;
	top: 287px;
}
#Layer9 {
	position:absolute;
	width:165px;
	height:15px;
	z-index:12;
	left: 159px;
	top: 325px;
}
#Layer10 {
	position:absolute;
	width:76px;
	height:16px;
	z-index:13;
	left: 178px;
	top: 211px;
}
#Layer11 {
	position:absolute;
	width:166px;
	height:16px;
	z-index:14;
	left: 159px;
	top: 362px;
}
#Layer12 {
	position:absolute;
	width:165px;
	height:21px;
	z-index:2;
	left: 170px;
	top: 414px;
}
#Layer13 {
	position:absolute;
	width:81px;
	height:16px;
	z-index:15;
	left: 215px;
	top: 583px;
}
#Layer14 {
	position:absolute;
	width:79px;
	height:19px;
	z-index:16;
	left: 215px;
	top: 537px;
}
#Layer15 {
	position:absolute;
	width:34px;
	height:19px;
	z-index:17;
	left: 217px;
	top: 626px;
}
#Layer16 {
	position:absolute;
	width:74px;
	height:17px;
	z-index:18;
	left: 218px;
	top: 674px;
}
#Layer17 {
	position:absolute;
	width:76px;
	height:19px;
	z-index:19;
	left: 218px;
	top: 723px;
}
-->
</style>
</head>

<body>
<div id="Layer1">
  <div id="Layer2"><img src="love.jpg" width="760" height="800" border="0" usemap="#Map" />
<map name="Map" id="Map"><area shape="rect" coords="206,211,243,231" href="news/index.asp" target="_blank" />
</map></div>
  <div id="Layer3">
    <table width="100%"  border="0" cellpadding="4" cellspacing="0">
      <tr>
        <td height="380" align="center" valign="top"><table width="399" border="0" cellspacing="0" cellpadding="6" align="center" bgcolor="#FFFFFF">
  <tr> 
  <td align="center" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="8">
    <tr>
      <td width="396" height="348" align="center" valign="top" class="link2">
<%
Dim ipagecount 
Dim ipagecurrent 
Dim strorderBy 
Dim irecordsshown 
if request.querystring("page")="" then 
ipagecurrent=1 
else 
ipagecurrent=cint(request.querystring("page")) 
end if   
      
sql = "SELECT minipic,ck,name,id FROM desktop ORDER BY id DESC"   
Set rs = Server.CreateObject("ADODB.Recordset")  
rs.pagesize =4 
rs.cachesize =4
rs.OPEN sql,Conn,1,1 
ipagecount = rs.pagecount  
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='3' class='x'><tr><td>最新更新情况，截止到"&now()&"共有 "&rs.RecordCount&" 个文件</td><td width='50%'><marquee scrollamount=2 >"&bbs&"</marquee></td></tr></table>"  
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"  
top=1  
if rs.bof and rs.eof then   
response.write "<tr><td align='center'>没有任何文件</tr></td>"   
else 
rs.absolutepage = ipagecurrent 
irecordsshown = 0   
do while not rs.eof and irecordsshown<16
Response.Write"<tr align='center'>"  
Response.Write"<td width='25%'>"  
if not rs.eof then  
Response.Write"<table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a href='display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("minipic")&"' border='0' width=150 height=113></a></td></tbody></table><br><a href='display.asp?id="&rs("id")&"' target='_blank'>"&rs("name")&"</a> | 点击："&rs("ck")&"</td>"  
top=top+1  
irecordsshown=irecordsshown+1
rs.movenext   
end if  
  
Response.Write"<td width='25%'>"  
if not rs.eof then  
Response.Write"<table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a href='display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("minipic")&"' border='0' width=150 height=113 class='bk1'></a></td></tbody></table><br><a href='display.asp?id="&rs("id")&"' target='_blank'>"&rs("name")&"</a> | 点击："&rs("ck")&"</td>"  
top=top+1  
rs.movenext   
end if  

  
Response.Write"</tr>"  
if top>4 then exit do  
loop  
end if  
rs.Close  
set rs=nothing  
Response.Write"</table>"  
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5' ><tr><td height='20'>共有 "&ipagecount&" 页 当前为第 "&ipagecurrent&" 页 " 
if ipagecurrent=1 then 
Response.Write"首页 | " 
else 
Response.Write"<a href='index.asp?&page=1'>首页</a> | " 
end if 
if ipagecurrent=1 then 
Response.Write"上一页 | " 
else 
Response.Write"<a href='index.asp?page="&ipagecurrent-1&"'>上一页</a> | " 
end if 
if ipagecount>ipagecurrent then 
Response.Write"<a href='index.asp?page="&ipagecurrent+1&"'>下一页</a> " 
else 
Response.Write"下一页"  
end if 
if ipagecount>ipagecurrent then 
Response.Write"| <a href='index.asp?page="&ipagecount&"'>末页</a> " 
else 
Response.Write"| 末页 " 
end if 
Response.Write"</td></tr></table>" 

%></td>
    </tr>
  </table></td>
  </tr>  
</table>  </td>
      </tr>
    </table>
  </div>
  <div id="Layer5">
    <table width="399" height="24" border="0" align="center" cellpadding="3" cellspacing="0" >
      <tr>
        <td bgcolor="" width="500"><span class="link3"><a href="index.asp"> 网站首页</a>
              <%
sql = "SELECT * FROM type ORDER BY id ASC" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if rs.eof and rs.bof then
Response.Write"还没有分类"
else
do while not rs.eof
Response.Write"| <a href='type.asp?typeid="&rs("id")&"'>"&rs("name")&"</a>"
rs.movenext
loop
end if
rs.close
Set rs=Nothing
%>
          | <a href="ly/index.asp" target="_blank">留言</a> | <a href="LOGIN.ASP">管理</a></span> </td>
      </tr>
    </table>
  </div>
  <div id="Layer6">
    <table border="0" cellpadding="3" cellspacing="0">
      <form action="search.asp" method="get" name="form1" id="form1">
        <tr>
          <td>搜索文件 </td>
          <td align="center">　</td>
          <td align="left"><input type="text" name="key" size="15" />
              <input type="submit" name="Submit" value="确定" />
          </td>
        </tr>
      </form>
    </table>
  </div>
  <div class="cp2" id="Layer7"><a href="news/index.asp" target="_blank">网络书库 -----博而精</a></div>
  <div class="cp2" id="Layer8">BLOG(博客)---网络写手</div>
  <div class="cp2" id="Layer9">在线音乐-----最新最酷音乐</div>
  <div class="cp-biaoti" id="Layer10">网站导航</div>
  <div class="cp2" id="Layer11">同城约会-----深圳</div>
  <div class="cp2" id="Layer13">QQ:109837388</div>
  <div class="cp2" id="Layer14">游荡的心</div>
  <div class="cp2" id="Layer15">深圳</div>
  <div class="cp2" id="Layer16">邮编:518000</div>
  <div class="cp2" id="Layer17"><a href="mailto:taiyanzhang@163.com">邮件互通</a></div>
</div>
<div class="cp2" id="Layer12">商务合作-----互利原则</div>
</body>
</html>
💿 文件大小 4046 K
👤 上传用户 baorong216
📂 所属分类 OA系统
🏷️ 相关标签

#网站
⌨️ 快捷键说明

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