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

📄 more.asp

📁 大家好
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<%@ language="vbscript"%>
<!-- #include file="adovbs.inc" -->
<%
strAction=Request.Form("cmdMove")
if not(straction="前一页" or straction="后一页") then
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
a=request("class")
str1="ABCDEFGHIJKL"
str2="职业旅游奇闻明星健康性爱美食电器美丽汽车家居理财"
s=instr(1,str1,mid(a,2,1),1)
titleyj=midb(str2,(s-1)*4+1,4)
session("classfication")=titleyj
sqltext="Select * from news where upper(classfication)="&a&" order by newsdate desc"
'response.write sqltext
rs.open sqltext,conn,adOpenStatic
rs.pagesize=60
   If rs.RecordCount=0 Then
		Emptyyn=true
		Conn.close
        Set rs=nothing	
        response.write"当前无记录,<a href='index.asp'>返回</a>"
        response.end
   Else
		rs.AbsolutePage=1
		Set Session("rs")=rs
		Session("pg")=1
   End If 
Else    
   Set rs=Session("rs")
   Select Case strAction
      Case "前一页"
          If Session("pg")>1 Then   
             Session("pg")=Session("pg")-1
          Else
             Session("pg")=1
          End if 
          rs.AbsolutePage=Session("pg")
      Case "后一页" 
          If rs.AbsolutePage<rs.PageCount Then   
             Session("pg")=Session("pg")+1
          Else
             Session("pg")=rs.PageCount
          End if 
          rs.AbsolutePage=Session("pg")
      case Else
          Session("pg")=1
          rs.AbsolutePage=Session("pg")
    End Select
End If 
%>
<html>
<head>
<title>新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../html/3508.css">
<style type="text/css">
<!--
.yj {  font-size: 11px; color: #000000; font-style: italic}
.red {  color: #FF0000}
.botton {  font-size: 12px; background-color: #FFFFF8}
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
  <tr> 
    <td width="192" height="39" align="center" valign="bottom"><img src="../images/newzhao1zhao.gif" width="140" height="50"></td>
    <td colspan="2" align="right" height="39" valign="bottom"> 
      <table width="480" border="1" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" bgcolor="#CCCCFF" cellpadding="0" cellspacing="0" height="22">
        <tr align="center"> 
          <td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../html/navigator.asp">本站导航</a></td>
          <td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"> 
            <a href="../sh/search.asp">二手市场</a></td>
          <td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../chat/default.asp">供求信息</a></td>
          <td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="index.asp">精品生活</a></td>
          <td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"> 
            <a href="../lovelife/default.asp">我爱生活</a></td>
          <td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../xhtj/index.asp">笑话天地</a></td>
          <td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../diaocha1/diaocha1.asp">调查生活</a></td>
          <td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../club/Default.asp">生活社区</a></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td colspan="3" height="1" bgcolor="006600"></td>
  </tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="18" bgcolor="#FFCC99">
  <tr> 
    <td width="260">【本站导航】<a href="../default.asp">首页</a> &gt;&gt; <a href="index.asp">精品生活</a>&gt;&gt;<%=titleyj%></td>
    <td width="40">◆<a href="more.asp?class='A'">职业</a> </td>
    <td width="40">◆<a href="more.asp?class='B'">旅游</a></td>
    <td width="40">◆<a href="more.asp?class='C'">奇闻</a></td>
    <td width="40">◆<a href="more.asp?class='D'">明星</a></td>
    <td width="40">◆<a href="more.asp?class='E'">健康</a></td>
    <td width="40">◆<a href="more.asp?class='F'">性爱</a></td>
    <td width="40">◆<a href="more.asp?class='G'">美食</a></td>
    <td width="40">◆<a href="more.asp?class='H'">电器</a></td>
    <td width="40">◆<a href="more.asp?class='I'">美丽</a></td>
    <td width="40">◆<a href="more.asp?class='J'">汽车</a></td>
    <td width="40">◆<a href="more.asp?class='K'">家居</a></td>
    <td width="40">◆<a href="more.asp?class='L'">理财</a></td>
  </tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="740">
  <tr> 
    <td width="163" valign="top" align="center" rowspan="2"> 
      <table border="0" cellpadding="0" cellspacing="0" bgcolor="#FFCCFF" width="100%" >
        <tr valign="middle" align="rigth" bgcolor="#FFCFFF"> 
          <td colspan="2" align="center" height="25">欢迎查找 
        <tr valign="middle" align="center"> 
          <td colspan="2"> 
<%
time0=hour(now)
if (time0>=0) and (time0<6) then
%> 
            <table border="00" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFF0" width="96%">
              <tr> 
                <td>◎<a href="../search/search_class.asp?class1=房屋·地产">房屋·地产</a></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#006600">
                    <tr> 
                      <td><a href="../search/search_class.asp?class1=房屋·地产&class2=售房">售房</a>, 
                        <a href="../search/search_class.asp?class1=房屋·地产&class2=出租">出租</a>, 
                        <a href="../search/search_class.asp?class1=房屋·地产&class2=二手房">二手房</a>, 
                        <a href="../search/search_class.asp?class1=房屋·地产&class2=物业">物业</a>, 
                        <a href="../search/search_class.asp?class1=房屋·地产&class2=房屋中介">房屋中介</a>, 
                        <a href="../search/search_class.asp?class1=房屋·地产&class2=地产">地产</a></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="#FFCCFF"> 
                <td height="15">&nbsp;</td>
              </tr>
              <tr> 
                <td height="15">◎<a href="../search/search_class.asp?class1=车辆">车辆</a></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#006600">
                    <tr> 
                      <td><a href="../search/search_class.asp?class1=车辆&class2=销售">销售</a>, 
                        <a href="../search/search_class.asp?class1=车辆&class2=维修">维修</a>, 
                        <a href="../search/search_class.asp?class1=车辆&class2=装饰">装饰</a>, 
                        <a href="../search/search_class.asp?class1=车辆&class2=租赁">租赁</a>, 
                        <a href="../search/search_class.asp?class1=车辆&class2=车辆保险">车辆保险</a>, 
                        <a href="../search/search_class.asp?class1=车辆&class2=中介">中介</a>, 
                        <a href="../search/search_class.asp?class1=车辆&class2=驾照培训">驾照培训</a>, 
                        <a href="../search/search_class.asp?class1=车辆&class2=服务">服务</a></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="#FFCCFF"> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td>◎<a href="../search/search_class.asp?class1=通讯器材">通讯器材</a></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#006600">
                    <tr> 
                      <td><a href="../search/search_class.asp?class1=通讯器材&class2=通讯设备">通讯设备</a>, 
                        <a href="../search/search_class.asp?class1=通讯器材&class2=传真机">传真机</a>, 
                        <a href="../search/search_class.asp?class1=通讯器材&class2=交换机">交换机</a>, 
                        <a href="../search/search_class.asp?class1=通讯器材&class2=语音产品">语音产品</a>, 
                        <a href="../search/search_class.asp?class1=通讯器材&class2=维修">维修</a></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="#FFCCFF"> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td>◎<a href="../search/search_class.asp?class1=家用电器">家用电器</a></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#006600">
                    <tr> 
                      <td><a href="../search/search_class.asp?class1=家用电器&class2=家电">家电</a>, 
                        <a href="../search/search_class.asp?class1=家用电器&class2=小家电">小家电</a>, 
                        <a href="../search/search_class.asp?class1=家用电器&class2=专卖店">专卖店</a>, 
                        <a href="../search/search_class.asp?class1=家用电器&class2=家庭影院">家庭影院</a>, 
                        <a href="../search/search_class.asp?class1=家用电器&class2=游戏机">游戏机</a>, 
                        <a href="../search/search_class.asp?class1=家用电器&class2=厨房电器">厨房电器</a>, 
                        <a href="../search/search_class.asp?class1=家用电器&class2=家电维修">家电维修</a></td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
<%
elseif (time0<12) then
%> 
            <table border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFF0" width="96%" align="center">
              <tr> 
                <td height="19">◎<a href="../search/search_class.asp?class1=电脑·配件">电脑·配件</a></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#006600">
                    <tr> 
                      <td><a href="../search/search_class.asp?class1=电脑·配件&class2=台式机">台式机</a>, 
                        <a href="../search/search_class.asp?class1=电脑·配件&class2=笔记本">笔记本</a>, 
                        <a href="../search/search_class.asp?class1=电脑·配件&class2=服务器">服务器</a>, 
                        <a href="../search/search_class.asp?class1=电脑·配件&class2=工控机">工控机</a>, 
                        <a href="../search/search_class.asp?class1=电脑·配件&class2=单片机">单片机</a>, 
                        <a href="../search/search_class.asp?class1=电脑·配件&class2=电脑配件">电脑配件</a>, 
                        <a href="../search/search_class.asp?class1=电脑·配件&class2=显示器">显示器</a></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="#FFCCFF"> 
                <td height="16">&nbsp;</td>
              </tr>
              <tr> 
                <td height="16">◎<a href="../search/search_class.asp?class1=外设·耗材">外设·耗材</a></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#006600">
                    <tr> 
                      <td><a href="../search/search_class.asp?class1=外设·耗材&class2=机房外设">机房外设</a>, 
                        <a href="../search/search_class.asp?class1=外设·耗材&class2=电脑外设">电脑外设</a>, 
                        <a href="../search/search_class.asp?class1=外设·耗材&class2=多媒体产品">多媒体产品</a>, 
                        <a href="../search/search_class.asp?class1=外设·耗材&class2=耗材">耗材</a>, 
                        <a href="../search/search_class.asp?class1=外设·耗材&class2=电脑字典">电脑字典</a></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="#FFCCFF"> 
                <td height="16">&nbsp;</td>
              </tr>
              <tr> 
                <td height="16">◎<a href="../search/search_class.asp?class1=网络产品·系统集成">网络产品·系统集成</a></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#006600">
                    <tr> 
                      <td><a href="../search/search_class.asp?class1=网络产品·系统集成&class2=网络产品">网络产品</a>, 
                        <a href="../search/search_class.asp?class1=网络产品·系统集成&class2=光设备">光设备</a>, 
                        <a href="../search/search_class.asp?class1=网络产品·系统集成&class2=UPS">UPS</a>, 

⌨️ 快捷键说明

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