home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / index.asp < prev    next >
Text File  |  2006-07-14  |  9KB  |  319 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="Connections/whnc.asp" -->
  3. <%
  4. Dim qt
  5. Dim qt_numRows
  6.  
  7. Set qt = Server.CreateObject("ADODB.Recordset")
  8. qt.ActiveConnection = MM_whnc_STRING
  9. qt.Source = "SELECT * FROM qt ORDER BY id ASC"
  10. qt.CursorType = 0
  11. qt.CursorLocation = 2
  12. qt.LockType = 1
  13. qt.Open()
  14.  
  15. qt_numRows = 0
  16. %>
  17. <%
  18. Dim caom
  19. Dim caom_numRows
  20.  
  21. Set caom = Server.CreateObject("ADODB.Recordset")
  22. caom.ActiveConnection = MM_whnc_STRING
  23. caom.Source = "SELECT * FROM caom ORDER BY id ASC"
  24. caom.CursorType = 0
  25. caom.CursorLocation = 2
  26. caom.LockType = 1
  27. caom.Open()
  28.  
  29. caom_numRows = 0
  30. %>
  31. <%
  32. Dim yt
  33. Dim yt_numRows
  34.  
  35. Set yt = Server.CreateObject("ADODB.Recordset")
  36. yt.ActiveConnection = MM_whnc_STRING
  37. yt.Source = "SELECT * FROM yt ORDER BY id ASC"
  38. yt.CursorType = 0
  39. yt.CursorLocation = 2
  40. yt.LockType = 1
  41. yt.Open()
  42.  
  43. yt_numRows = 0
  44. %>
  45. <%
  46. Dim chuc
  47. Dim chuc_numRows
  48.  
  49. Set chuc = Server.CreateObject("ADODB.Recordset")
  50. chuc.ActiveConnection = MM_whnc_STRING
  51. chuc.Source = "SELECT * FROM chuc ORDER BY id ASC"
  52. chuc.CursorType = 0
  53. chuc.CursorLocation = 2
  54. chuc.LockType = 1
  55. chuc.Open()
  56.  
  57. chuc_numRows = 0
  58. %>
  59. <%
  60. Dim Repeat1__numRows
  61. Dim Repeat1__index
  62.  
  63. Repeat1__numRows = 6
  64. Repeat1__index = 0
  65. qt_numRows = qt_numRows + Repeat1__numRows
  66. %>
  67. <%
  68. Dim Repeat2__numRows
  69. Dim Repeat2__index
  70.  
  71. Repeat2__numRows = 6
  72. Repeat2__index = 0
  73. caom_numRows = caom_numRows + Repeat2__numRows
  74. %>
  75. <%
  76. Dim Repeat4__numRows
  77. Dim Repeat4__index
  78.  
  79. Repeat4__numRows = 6
  80. Repeat4__index = 0
  81. chuc_numRows = chuc_numRows + Repeat4__numRows
  82. %>
  83. <%
  84. Dim MM_paramName 
  85. %>
  86. <%
  87. ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
  88.  
  89. Dim MM_keepNone
  90. Dim MM_keepURL
  91. Dim MM_keepForm
  92. Dim MM_keepBoth
  93.  
  94. Dim MM_removeList
  95. Dim MM_item
  96. Dim MM_nextItem
  97.  
  98. ' create the list of parameters which should not be maintained
  99. MM_removeList = "&index="
  100. If (MM_paramName <> "") Then
  101.   MM_removeList = MM_removeList & "&" & MM_paramName & "="
  102. End If
  103.  
  104. MM_keepURL=""
  105. MM_keepForm=""
  106. MM_keepBoth=""
  107. MM_keepNone=""
  108.  
  109. ' add the URL parameters to the MM_keepURL string
  110. For Each MM_item In Request.QueryString
  111.   MM_nextItem = "&" & MM_item & "="
  112.   If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
  113.     MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  114.   End If
  115. Next
  116.  
  117. ' add the Form variables to the MM_keepForm string
  118. For Each MM_item In Request.Form
  119.   MM_nextItem = "&" & MM_item & "="
  120.   If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
  121.     MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  122.   End If
  123. Next
  124.  
  125. ' create the Form + URL string and remove the intial '&' from each of the strings
  126. MM_keepBoth = MM_keepURL & MM_keepForm
  127. If (MM_keepBoth <> "") Then 
  128.   MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
  129. End If
  130. If (MM_keepURL <> "")  Then
  131.   MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
  132. End If
  133. If (MM_keepForm <> "") Then
  134.   MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
  135. End If
  136.  
  137. ' a utility function used for adding additional parameters to these strings
  138. Function MM_joinChar(firstItem)
  139.   If (firstItem <> "") Then
  140.     MM_joinChar = "&"
  141.   Else
  142.     MM_joinChar = ""
  143.   End If
  144. End Function
  145. %>
  146. <%
  147. Dim Repeat3__numRows
  148. Dim Repeat3__index
  149.  
  150. Repeat3__numRows = 6
  151. Repeat3__index = 0
  152. yt_numRows = yt_numRows + Repeat3__numRows
  153. %>
  154. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  155. <html xmlns="http://www.w3.org/1999/xhtml">
  156. <head>
  157. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  158. <title>╬▐▒Ω╠Γ╬─╡╡</title>
  159. </head>
  160.  
  161. <body>
  162. <div align="center">
  163.   <table width="700" border="0" cellspacing="0" cellpadding="0">
  164.     <tr>
  165.       <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="700" height="80">
  166.         <param name="movie" value="whncimg/nc-logo.swf" />
  167.         <param name="quality" value="high" />
  168.         <embed src="whncimg/nc-logo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="700" height="80"></embed>
  169.       </object></td>
  170.     </tr>
  171.     <tr>
  172.       <td height="30" background="whncimg/title_left1.gif"> </td>
  173.     </tr>
  174.   </table>
  175.   <table width="700" border="1" cellspacing="0" cellpadding="0">
  176.     <tr>
  177.       <td width="349"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  178.         <tr>
  179.           <td colspan="3">╟┼═╖</td>
  180.         </tr>
  181.         <tr>
  182.           <td width="34%">╟°╩╨</td>
  183.           <td width="27%">╧τ┤σ</td>
  184.           <td width="39%">╚╒╞┌</td>
  185.         </tr>
  186.         <tr>
  187.           <td colspan="3"><% 
  188. While ((Repeat1__numRows <> 0) AND (NOT qt.EOF)) 
  189. %>
  190.               <table width="100%" border="0" cellspacing="0" cellpadding="0">
  191.                 <tr>
  192.                   <td width="31%"><%=(qt.Fields.Item("qs").Value)%></td>
  193.                   <td width="30%"><a href="qtlj.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "id=" & qt.Fields.Item("id").Value %>"><%=(qt.Fields.Item("cun").Value)%></a></td>
  194.                   <td width="39%"><%=(qt.Fields.Item("date").Value)%></td>
  195.                 </tr>
  196.               </table>
  197.             <% 
  198.   Repeat1__index=Repeat1__index+1
  199.   Repeat1__numRows=Repeat1__numRows-1
  200.   qt.MoveNext()
  201. Wend
  202. %>
  203.             ╤≥═ñ</td>
  204.         </tr>
  205.         <tr>
  206.           <td>╟°╩╨</td>
  207.           <td>╧τ┤σ</td>
  208.           <td>╚╒╞┌</td>
  209.         </tr>
  210.         <tr>
  211.           <td colspan="3"><% 
  212. While ((Repeat3__numRows <> 0) AND (NOT yt.EOF)) 
  213. %>
  214.               <table width="100%" border="0" cellspacing="0" cellpadding="0">
  215.                 <tr>
  216.                   <td width="31%"><%=(yt.Fields.Item("qs").Value)%></td>
  217.                   <td width="32%"><%=(yt.Fields.Item("cun").Value)%></td>
  218.                   <td width="37%"><%=(yt.Fields.Item("date").Value)%></td>
  219.                 </tr>
  220.               </table>
  221.               <% 
  222.   Repeat3__index=Repeat3__index+1
  223.   Repeat3__numRows=Repeat3__numRows-1
  224.   yt.MoveNext()
  225. Wend
  226. %>
  227. </td>
  228.         </tr>
  229.       </table></td>
  230.       <td width="345"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  231.         <tr>
  232.           <td colspan="3">▓▌├φ</td>
  233.         </tr>
  234.         <tr>
  235.           <td width="29%">╟°╩╨</td>
  236.           <td width="37%">╧τ┤σ</td>
  237.           <td width="34%">╚╒╞┌</td>
  238.         </tr>
  239.         <tr>
  240.           <td colspan="3"><% 
  241. While ((Repeat2__numRows <> 0) AND (NOT caom.EOF)) 
  242. %>
  243.               <table width="100%" border="0" cellspacing="0" cellpadding="0">
  244.                 <tr>
  245.                   <td width="38%"><%=(caom.Fields.Item("qs").Value)%></td>
  246.                   <td width="31%"><%=(caom.Fields.Item("cun").Value)%></td>
  247.                   <td width="31%"><%=(caom.Fields.Item("date").Value)%></td>
  248.                 </tr>
  249.               </table>
  250.               <% 
  251.   Repeat2__index=Repeat2__index+1
  252.   Repeat2__numRows=Repeat2__numRows-1
  253.   caom.MoveNext()
  254. Wend
  255. %>
  256.             │⌡┤σ</td>
  257.         </tr>
  258.         <tr>
  259.           <td>╟°╩╨</td>
  260.           <td>╧τ┤σ</td>
  261.           <td>╚╒╞┌</td>
  262.         </tr>
  263.         <tr>
  264.           <td colspan="3"><% 
  265. While ((Repeat4__numRows <> 0) AND (NOT chuc.EOF)) 
  266. %>
  267.               <table width="100%" border="0" cellspacing="0" cellpadding="0">
  268.                 <tr>
  269.                     <td width="38%"><%=(chuc.Fields.Item("qs").Value)%></td>
  270.                     <td width="32%"><%=(chuc.Fields.Item("cun").Value)%></td>
  271.                     <td width="30%"><%=(chuc.Fields.Item("date").Value)%></td>
  272.                 </tr>
  273.                 </table>
  274.             <% 
  275.   Repeat4__index=Repeat4__index+1
  276.   Repeat4__numRows=Repeat4__numRows-1
  277.   chuc.MoveNext()
  278. Wend
  279. %></td>
  280.         </tr>
  281.       </table></td>
  282.     </tr>
  283.   </table>
  284.   <table width="700" border="0" cellspacing="0" cellpadding="0">
  285.     <tr>
  286.       <td> </td>
  287.     </tr>
  288.   </table>
  289.   <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="700" height="80">
  290.     <param name="movie" value="whncimg/nc-logo.swf" />
  291.     <param name="quality" value="high" />
  292.     <embed src="whncimg/nc-logo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="700" height="80"></embed>
  293.   </object>
  294. <table width="700" border="1" cellspacing="0" cellpadding="0">
  295.     <tr>
  296.       <td> </td>
  297.       <td> </td>
  298.     </tr>
  299.   </table>
  300. </div>
  301. </body>
  302. </html>
  303. <%
  304. qt.Close()
  305. Set qt = Nothing
  306. %>
  307. <%
  308. caom.Close()
  309. Set caom = Nothing
  310. %>
  311. <%
  312. yt.Close()
  313. Set yt = Nothing
  314. %>
  315. <%
  316. chuc.Close()
  317. Set chuc = Nothing
  318. %>
  319.