ATB ソース・コード

南西農業情報ネットワーク 表示する index.aspソースコード

戻る ダウンロード南西農業情報ネットワーク: 個別にダウンロードindex.aspソースコード - 全体をダウンロード南西農業情報ネットワークソースコード - タイプ:.asp
  1. <!--#include file="../inc/conn.asp"-->
  2. <%set rs=server.CreateObject("adodb.recordset")
  3.                            
  4. city= request("city")
  5. content=trim(request("content"))
  6. if request("actio")<>""then
  7.  
  8.  
  9. if request("city")<>"" then
  10. sql="select * from powercode where city="&request("city")&"  and   typer=3 and  (title like '%"&content&"%' or text like '%"&content&"%' or  author like '%"&content&"%' )  order by  addtime desc"
  11.  
  12. else
  13. sql="select * from powercode  where  typer=3 and  title like '%"&content&"%' or text like '%"&content&"%' or  author like '%"&content&"%'   order by  addtime desc"
  14.  
  15. 'sql="select * from news  and typer=1 order by  adddate desc"
  16. end if
  17. else
  18. if request("city")<>"" then
  19. sql="select * from powercode where city="&request("city")&" and typer=3 order by  addtime desc"
  20. else
  21. sql="select * from powercode  where  typer=3 order by  addtime desc"
  22. end if
  23. end if
  24. 'response.Write sql
  25. 'response.end
  26. rs.open sql,conn,1,3
  27. rs.pagesize=15
  28. page=clng(request("page"))
  29.       if page<1 then page=1 end if
  30.       if page>rs.pagecount then page=rs.pagecount end if
  31.           if not (rs.bof or rs.eof) then
  32.       rs.absolutepage=page
  33.           end if
  34. %><!--#include file="../ico/head.asp"-->
  35.  
  36. <script language="JavaScript" type="text/JavaScript">
  37. <!--
  38. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  39.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  40.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  41.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  42. }
  43. MM_reloadPage(true);
  44.  
  45. function MM_openBrWindow(theURL,winName,features) { //v2.0
  46.   window.open(theURL,winName,features);
  47. }
  48. //-->
  49. </script>
  50. <div align="center">
  51.   <table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  52.     <tr>
  53.       <td width="196" valign="top" bgcolor="#FFFFFF">
  54.         <!--#include file="../ico/left.asp"-->
  55.       </td>
  56.       <td width="574" valign="top" bgcolor="#FFFFFF">
  57.         <table width="100%" border="0" cellspacing="0" cellpadding="0">
  58.           <tr>
  59.             <td><img src="../img/bt_6.jpg" width="573"></td>
  60.           </tr>
  61.         </table>
  62.         <table width="574" border="0" cellspacing="0" cellpadding="3">
  63.           <form action="index.asp?actio=search&city=<%=request("city")%>" method="post">
  64.             <tr>
  65.               <td> <div align="right"> 搜索关键字</div></td>
  66.               <td width="56"> <input name="content" type="text" class="big-lv" size="10"></td>
  67.               <td width="56"><input type="image" src="../img/dl3.gif" width="56" height="21"></td>
  68.             </tr>
  69.           </form>
  70.         </table>
  71.        
  72.         <hr>
  73.         <%if rs.eof then response.Write "还没有乡镇动态"
  74.            for i=0 to 14
  75.            if rs.eof then exit for%>
  76.         <table width="100%" height="15" border="0" cellpadding="3" cellspacing="0">
  77.           <tr>
  78.             <td width="4%" ><img src="../img/dot_ar.gif" width="12" height="9"></td>
  79.             <td width="83%" ><a href="#" onClick="MM_openBrWindow('../../xzdt/yer.asp?id=<%=rs("id")%>','','scrollbars=yes,width=677,height=450')"><%=rs("title")%><%if rs("tuwen")<>"" then response.write "[图]"%></a>-[<font color="#FF0000"><%select case rs("city")
  80.                                                                         case 1
  81.                                                                         response.Write "碧湖镇"
  82.                                                                         case 2
  83.                                                                         response.Write "联城镇"
  84.                                                                         case 3
  85.                                                                         response.Write "老竹镇"
  86.                                                                         case 4
  87.                                                                         response.Write "大港头镇"
  88.                                                                         case 5
  89.                                                                         response.Write "双溪镇"
  90.                                                                         case 6
  91.                                                                         response.Write "富岭乡"
  92.                                                                         case 7
  93.                                                                         response.Write "太平乡"
  94.                                                                         case 8
  95.                                                                         response.Write "仙渡乡"
  96.                                                                         case 9
  97.                                                                         response.Write "双黄乡"
  98.                                                                         case 10
  99.                                                                         response.Write "黄村乡"
  100.                                                                         case 11
  101.                                                                         response.Write "高溪乡"
  102.                                                                         case 12
  103.                                                                         response.Write "严鸟乡"
  104.                                                                         case 13
  105.                                                                         response.Write "峰源乡"
  106.                                                                         case 14
  107.                                                                         response.Write "郑地乡"
  108.                                                                         case 15
  109.                                                                         response.Write "泄川乡 "
  110.                                                                         case 16
  111.                                                                         response.Write "西溪乡"
  112.                                                                         case 17
  113.                                                                         response.Write "巨溪乡"
  114.                                                                         case 18
  115.                                                                         response.Write "西新乡"
  116.                                                                         end select%></font>]
  117.              
  118.               </td>
  119.             <td width="13%" ><font color="#669933"><%=rs("addtime")%></font></td>
  120.           </tr>
  121.           <tr>
  122.             <td colspan="3" ><img src="../img/dian_bg.gif" width="565" height="1"></td>
  123.           </tr>
  124.         </table><%rs.movenext
  125.                 next%>
  126.         <table width="100%" border="0" cellspacing="0" cellpadding="5">
  127.         <form name="form2" method="post" action="?city=<%=city%>">  <tr>
  128.             <td><div align="right">共 <font color="#009900"><%=rs.pagecount%></font>
  129.                 页,当前第 <font color="#009900"><%=page%></font> 页&nbsp;
  130.                 <%if page=1 or page=0 then%>
  131.                 上一页
  132.                 <%else%>
  133.                 <a href="?city=<%=city%>&page=<%=page-1%>">上一页</a>
  134.                 <%end if%>
  135.                 <%if page=rs.pagecount then%>
  136.                 下一页
  137.                 <%else%>
  138.                 <a href ="?city=<%=city%>&page=<%=page+1%>">下一页</a>
  139.                 <%end if%>
  140.                  直接到
  141.                 <input type="text" name="page" maxlength="4" size="3" style=" BORDER-BOTTOM: #9a9999 1px solid; BORDER-LEFT: #9a9999 1px solid; BORDER-RIGHT: #9a9999 1px solid; BORDER-TOP: #9a9999 1px solid; FONT-SIZE: 9pt;" value="<%=page%>">
  142.                 页
  143.                 <input type="submit" value="确定" class="textfield2" name="button223">
  144.               </div></td>
  145.             <td>&nbsp;</td>
  146.           </tr></form>
  147.         </table> </td>
  148.     </tr>
  149.   </table>
  150. </div>
  151. <!--#include file="../ico/foot.asp"-->
個別にダウンロードindex.aspソースコード - 全体をダウンロード南西農業情報ネットワークソースコード
関連するソース/ソフトウェア:
ZWMOBI 3 G ウェブサイト システムの構築 - モバイル B2C のモバイル ショッピングを含む、強力なビジネス モジュール ダウンロード機能モジュ... 3.89KB
キャンパス サイト システム v2.0 として - ほとんどの学校には、キャンパスのウェブサイトの便利なメンテナンスの強力な機能を構築する私は、簡単な物... 44.88KB
シーティング システム 7 夜学生 - シーティング システム夜学生が促進クラスのすべての教師は、もはやように「こんにちはこんにちはこんにち... 26.4KB
94KK には消極的ネットワーク コミュニティ美化 bate3 (新しい年版) - カーネル KB 94kkBBS フォーラム、新しい造園、速度と機能がさらに強化 !新しいスタ... 24.82KB
QQ のフラッシュの言葉 - 1。 今計り知れないほど、ネットワーク上の他のプログラムでは、強力な DIY の機能ほど厳密ではどの... 67KB
系統のひずみの美しい個人の家の Build20061004 をページします。 - -----------修正部分-------------1: PPsTREAM 映画オンライ... 7.7KB
梅 Windows ネットワーク - 機能をについて説明します。Windows のホーム | 垂直方向と水平方向のニュース | 電... 34.61KB
中国のソースをダウンロード システム v1.0 - この 3-イノベーション システムでダウンロードしたプログラムを美化するには、独立した管理の背景を広... 5.26KB
南西農業情報ネットワーク - 南西農業情報ネットワーク、農業システム 98.89KB
Zoomla ! Eall CMS v2.0 - Eall CMS のウェブ マスターが最適なカーネルを開いている、無料で強力な Web サイト管理サ... 11.31KB

 トップへ戻る