ATB Source Codes

Lin Ganxin Yu personal Flash home page source code Show ZTPhoto.asp Source code

Return Download Lin Ganxin Yu personal Flash home page source code: download ZTPhoto.asp Source code - Download Lin Ganxin Yu personal Flash home page source code Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!-- #include file="conn.asp" -->
  3. <%
  4. what=Request("what")
  5. set rs=server.CreateObject("ADODB.Recordset")
  6. SQL="select * from ZhuanTiPhoto Order By ZTorderDate Desc"
  7. rs.open SQL,conn,1,1
  8.  
  9. if not rs.eof then
  10.   '主页发送的变量
  11.   if what=1 then
  12.     '发送加载成功
  13.     Response.Write("ZTphoto=1&")
  14.     rs.MoveFirst
  15.         i=1    
  16.         do while i<=5  
  17.         if rs("ZTdate")=date() then
  18.           '显示新
  19.           ZTtitle=rs("ZTtitle")&" <FONT COLOR='#D31919'>新</FONT>&"
  20.         else
  21.           ZTtitle=rs("ZTtitle")
  22.         end if
  23.         Response.Write("ZTtitle"&i&"="& ZTtitle &"&")
  24.         Response.Write("ZTid"&i&"="&rs("ZTid")&"&HYname"&i&"="&rs("HYname")&"&")
  25.         Response.Write("ZTdate"&i&"="&FormatDateTime(rs("ZTdate"),2)&"&ZTeditDate"&i&"="&rs("ZTeditDate")&"&ZTcount"&i&"="&rs("ZTcount")&"&")
  26.         i=i+1
  27.     rs.MoveNext
  28.         if rs.eof then exit do end if
  29.         loop
  30.   else
  31.     '设计专题  
  32.         maxPerPage=19 '每页显示数
  33.     page=Request("page") '页数
  34.     if (page="" or isempty(page)) then page=1
  35.         rs.pagesize=maxPerPage
  36.         i=1
  37.         if not (rs.eof or err) then rs.move (page-1)*maxPerPage
  38.         do while not (rs.eof or err)
  39.           if rs("ZTdate")=date() then
  40.             '显示新
  41.             ZTtitle=Left(trim(rs("ZTtitle")),21)&" <FONT COLOR='#D31919'>新</FONT>&"
  42.           else
  43.             ZTtitle=Left(trim(rs("ZTtitle")),21)
  44.           end if
  45.         Response.Write("ZTtitle"&i&"="& ZTtitle &"&")
  46.         Response.Write("ZTid"&i&"="&rs("ZTid")&"&HYname"&i&"="&rs("HYname")&"&")
  47.         Response.Write("ZTdate"&i&"="&FormatDateTime(rs("ZTdate"),2)&"&ZTeditDate"&i&"="&rs("ZTeditDate")&"&ZTcount"&i&"="&rs("ZTcount")&"&")
  48.         i=i+1  
  49.         if i>maxPerPage then exit do
  50.         rs.movenext
  51.     Loop
  52.         Response.Write("recordCount="& rs.recordCount &"&page="& page &"&pageCount="& rs.pageCount &"&maxPerPage="&maxPerPage&"&")
  53.     '发送加载成功
  54.     Response.Write("ZTphoto=1&")
  55.   end if
  56. else
  57.   '发送没有数据
  58.   Response.Write("ZTphoto=0&")
  59. end if
  60. rs.close
  61. set rs=Nothing
  62. CloseDataConn()
  63. %>
downloadZTPhoto.asp Source code - Download Lin Ganxin Yu personal Flash home page source code Source code
Related Source Codes/Software:
Stay at Union Hotel reservation procedures V8.0 - Data localizationCaches the data address inter... 74.93KB
What city Special Edition v6.0 static network hotel reservation procedures - Stay at Hotel distribution Alliance is what networ... 3.61KB
What network of hotels in the city for private v6.0 dynamic editions - Stay at Hotel distribution Alliance is what networ... 2.33KB
Thunder download whole website in China (with data collected + 30,000) - Program kernel uses ECMS4.6 GBK version of Empire.... 150.68KB
Chinese women's network the entire station source code - A woman's Web site package download, and a present... 22.95KB
NBA Live program with a database of SEO beta - NBA Live program with a database of SEO! Unzip int... 2.52KB
Legendary private servers home page - Perfect technology friendship with: http://www.931... 7.02KB
Zhejiang quhua hospital - Zhejiang quhua hospital LDU www.zjqhyy.com"Pro... 24.42KB
Zhejiang education training network - Education and training network in Zhejiang Provinc... 109.86KB
Knowing local portal system v3.2 - Known local city portal website management system ... 37.49KB
China source download System v1.0 - This 3-to beautify the program downloaded by the i... 5.26KB
Ganzhou Windows network - Cover feature:Windows Home | News vertical and... 34.61KB
Strains of strain of beautiful personal home page Build20061004 - -----------Modified part-------------1: added ... 7.7KB
Southwest agricultural information network - Southwest agricultural information network, an agr... 98.89KB
ZWMOBI 3G mobile station system - Powerful business modules, including mobile B2C mo... 3.89KB
As a campus site system v2.0 - For most school,, to built features powerful of ma... 44.88KB
Evening student seating system 7 - Evening student seating system is facilitated the ... 26.4KB
94KK be reluctant network community beautification bate3 (new year Edition) - Kernel KB 94kkBBS Forum, new landscaping, further ... 24.82KB
QQ Flash Word - 1. powerful DIY feature, which is now immeasurably... 67KB
Zoomla! Eall CMS v2.0 - Waves CMS is committed to providing our webmasters... 11.31KB

 Back to top