home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / lyb / book.asp < prev    next >
Text File  |  2007-08-29  |  17KB  |  600 lines
  1. <%@LANGUAGE="VBSCRIPT"%>
  2. <!--#include file="Connections/lyb.asp" -->
  3. <%
  4. Dim ly
  5. Dim ly_numRows
  6.  
  7. Set ly = Server.CreateObject("ADODB.Recordset")
  8. ly.ActiveConnection = MM_lyb_STRING
  9. ly.Source = "SELECT * FROM lyb1 ORDER BY id DESC"
  10. ly.CursorType = 0
  11. ly.CursorLocation = 2
  12. ly.LockType = 1
  13. ly.Open()
  14.  
  15. ly_numRows = 0
  16. %>
  17. <%
  18. Dim Repeat1__numRows
  19. Dim Repeat1__index
  20.  
  21. Repeat1__numRows = 10
  22. Repeat1__index = 0
  23. ly_numRows = ly_numRows + Repeat1__numRows
  24. %>
  25. <%
  26. '  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
  27.  
  28. Dim ly_total
  29. Dim ly_first
  30. Dim ly_last
  31.  
  32. ' set the record count
  33. ly_total = ly.RecordCount
  34.  
  35. ' set the number of rows displayed on this page
  36. If (ly_numRows < 0) Then
  37.   ly_numRows = ly_total
  38. Elseif (ly_numRows = 0) Then
  39.   ly_numRows = 1
  40. End If
  41.  
  42. ' set the first and last displayed record
  43. ly_first = 1
  44. ly_last  = ly_first + ly_numRows - 1
  45.  
  46. ' if we have the correct record count, check the other stats
  47. If (ly_total <> -1) Then
  48.   If (ly_first > ly_total) Then
  49.     ly_first = ly_total
  50.   End If
  51.   If (ly_last > ly_total) Then
  52.     ly_last = ly_total
  53.   End If
  54.   If (ly_numRows > ly_total) Then
  55.     ly_numRows = ly_total
  56.   End If
  57. End If
  58. %>
  59.  
  60. <%
  61. ' *** Recordset Stats: if we don't know the record count, manually count them
  62.  
  63. If (ly_total = -1) Then
  64.  
  65.   ' count the total records by iterating through the recordset
  66.   ly_total=0
  67.   While (Not ly.EOF)
  68.     ly_total = ly_total + 1
  69.     ly.MoveNext
  70.   Wend
  71.  
  72.   ' reset the cursor to the beginning
  73.   If (ly.CursorType > 0) Then
  74.     ly.MoveFirst
  75.   Else
  76.     ly.Requery
  77.   End If
  78.  
  79.   ' set the number of rows displayed on this page
  80.   If (ly_numRows < 0 Or ly_numRows > ly_total) Then
  81.     ly_numRows = ly_total
  82.   End If
  83.  
  84.   ' set the first and last displayed record
  85.   ly_first = 1
  86.   ly_last = ly_first + ly_numRows - 1
  87.   
  88.   If (ly_first > ly_total) Then
  89.     ly_first = ly_total
  90.   End If
  91.   If (ly_last > ly_total) Then
  92.     ly_last = ly_total
  93.   End If
  94.  
  95. End If
  96. %>
  97. <%
  98. Dim MM_paramName 
  99. %>
  100. <%
  101. ' *** Move To Record and Go To Record: declare variables
  102.  
  103. Dim MM_rs
  104. Dim MM_rsCount
  105. Dim MM_size
  106. Dim MM_uniqueCol
  107. Dim MM_offset
  108. Dim MM_atTotal
  109. Dim MM_paramIsDefined
  110.  
  111. Dim MM_param
  112. Dim MM_index
  113.  
  114. Set MM_rs    = ly
  115. MM_rsCount   = ly_total
  116. MM_size      = ly_numRows
  117. MM_uniqueCol = ""
  118. MM_paramName = ""
  119. MM_offset = 0
  120. MM_atTotal = false
  121. MM_paramIsDefined = false
  122. If (MM_paramName <> "") Then
  123.   MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
  124. End If
  125. %>
  126. <%
  127. ' *** Move To Record: handle 'index' or 'offset' parameter
  128.  
  129. if (Not MM_paramIsDefined And MM_rsCount <> 0) then
  130.  
  131.   ' use index parameter if defined, otherwise use offset parameter
  132.   MM_param = Request.QueryString("index")
  133.   If (MM_param = "") Then
  134.     MM_param = Request.QueryString("offset")
  135.   End If
  136.   If (MM_param <> "") Then
  137.     MM_offset = Int(MM_param)
  138.   End If
  139.  
  140.   ' if we have a record count, check if we are past the end of the recordset
  141.   If (MM_rsCount <> -1) Then
  142.     If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
  143.       If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
  144.         MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
  145.       Else
  146.         MM_offset = MM_rsCount - MM_size
  147.       End If
  148.     End If
  149.   End If
  150.  
  151.   ' move the cursor to the selected record
  152.   MM_index = 0
  153.   While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
  154.     MM_rs.MoveNext
  155.     MM_index = MM_index + 1
  156.   Wend
  157.   If (MM_rs.EOF) Then 
  158.     MM_offset = MM_index  ' set MM_offset to the last possible record
  159.   End If
  160.  
  161. End If
  162. %>
  163. <%
  164. ' *** Move To Record: if we dont know the record count, check the display range
  165.  
  166. If (MM_rsCount = -1) Then
  167.  
  168.   ' walk to the end of the display range for this page
  169.   MM_index = MM_offset
  170.   While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
  171.     MM_rs.MoveNext
  172.     MM_index = MM_index + 1
  173.   Wend
  174.  
  175.   ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  176.   If (MM_rs.EOF) Then
  177.     MM_rsCount = MM_index
  178.     If (MM_size < 0 Or MM_size > MM_rsCount) Then
  179.       MM_size = MM_rsCount
  180.     End If
  181.   End If
  182.  
  183.   ' if we walked off the end, set the offset based on page size
  184.   If (MM_rs.EOF And Not MM_paramIsDefined) Then
  185.     If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
  186.       If ((MM_rsCount Mod MM_size) > 0) Then
  187.         MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
  188.       Else
  189.         MM_offset = MM_rsCount - MM_size
  190.       End If
  191.     End If
  192.   End If
  193.  
  194.   ' reset the cursor to the beginning
  195.   If (MM_rs.CursorType > 0) Then
  196.     MM_rs.MoveFirst
  197.   Else
  198.     MM_rs.Requery
  199.   End If
  200.  
  201.   ' move the cursor to the selected record
  202.   MM_index = 0
  203.   While (Not MM_rs.EOF And MM_index < MM_offset)
  204.     MM_rs.MoveNext
  205.     MM_index = MM_index + 1
  206.   Wend
  207. End If
  208. %>
  209. <%
  210. ' *** Move To Record: update recordset stats
  211.  
  212. ' set the first and last displayed record
  213. ly_first = MM_offset + 1
  214. ly_last  = MM_offset + MM_size
  215.  
  216. If (MM_rsCount <> -1) Then
  217.   If (ly_first > MM_rsCount) Then
  218.     ly_first = MM_rsCount
  219.   End If
  220.   If (ly_last > MM_rsCount) Then
  221.     ly_last = MM_rsCount
  222.   End If
  223. End If
  224.  
  225. ' set the boolean used by hide region to check if we are on the last record
  226. MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
  227. %>
  228. <%
  229. ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
  230.  
  231. Dim MM_keepNone
  232. Dim MM_keepURL
  233. Dim MM_keepForm
  234. Dim MM_keepBoth
  235.  
  236. Dim MM_removeList
  237. Dim MM_item
  238. Dim MM_nextItem
  239.  
  240. ' create the list of parameters which should not be maintained
  241. MM_removeList = "&index="
  242. If (MM_paramName <> "") Then
  243.   MM_removeList = MM_removeList & "&" & MM_paramName & "="
  244. End If
  245.  
  246. MM_keepURL=""
  247. MM_keepForm=""
  248. MM_keepBoth=""
  249. MM_keepNone=""
  250.  
  251. ' add the URL parameters to the MM_keepURL string
  252. For Each MM_item In Request.QueryString
  253.   MM_nextItem = "&" & MM_item & "="
  254.   If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
  255.     MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  256.   End If
  257. Next
  258.  
  259. ' add the Form variables to the MM_keepForm string
  260. For Each MM_item In Request.Form
  261.   MM_nextItem = "&" & MM_item & "="
  262.   If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
  263.     MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  264.   End If
  265. Next
  266.  
  267. ' create the Form + URL string and remove the intial '&' from each of the strings
  268. MM_keepBoth = MM_keepURL & MM_keepForm
  269. If (MM_keepBoth <> "") Then 
  270.   MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
  271. End If
  272. If (MM_keepURL <> "")  Then
  273.   MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
  274. End If
  275. If (MM_keepForm <> "") Then
  276.   MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
  277. End If
  278.  
  279. ' a utility function used for adding additional parameters to these strings
  280. Function MM_joinChar(firstItem)
  281.   If (firstItem <> "") Then
  282.     MM_joinChar = "&"
  283.   Else
  284.     MM_joinChar = ""
  285.   End If
  286. End Function
  287. %>
  288. <%
  289. ' *** Move To Record: set the strings for the first, last, next, and previous links
  290.  
  291. Dim MM_keepMove
  292. Dim MM_moveParam
  293. Dim MM_moveFirst
  294. Dim MM_moveLast
  295. Dim MM_moveNext
  296. Dim MM_movePrev
  297.  
  298. Dim MM_urlStr
  299. Dim MM_paramList
  300. Dim MM_paramIndex
  301. Dim MM_nextParam
  302.  
  303. MM_keepMove = MM_keepBoth
  304. MM_moveParam = "index"
  305.  
  306. ' if the page has a repeated region, remove 'offset' from the maintained parameters
  307. If (MM_size > 1) Then
  308.   MM_moveParam = "offset"
  309.   If (MM_keepMove <> "") Then
  310.     MM_paramList = Split(MM_keepMove, "&")
  311.     MM_keepMove = ""
  312.     For MM_paramIndex = 0 To UBound(MM_paramList)
  313.       MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
  314.       If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
  315.         MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
  316.       End If
  317.     Next
  318.     If (MM_keepMove <> "") Then
  319.       MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
  320.     End If
  321.   End If
  322. End If
  323.  
  324. ' set the strings for the move to links
  325. If (MM_keepMove <> "") Then 
  326.   MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
  327. End If
  328.  
  329. MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
  330.  
  331. MM_moveFirst = MM_urlStr & "0"
  332. MM_moveLast  = MM_urlStr & "-1"
  333. MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
  334. If (MM_offset - MM_size < 0) Then
  335.   MM_movePrev = MM_urlStr & "0"
  336. Else
  337.   MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
  338. End If
  339. %>
  340. <%
  341. Dim ly_TFMcurrentPage
  342. Dim ly_TFMtotalPages
  343. If MM_size > 0 Then
  344. ly_TFMcurrentPage = Round(ly_last/MM_size + .4999)
  345. ly_TFMtotalPages = Round(ly_total/MM_size + .4999)
  346. End If
  347. %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  348. <!-- saved from url=(0059)http://www.readyou.net/liuyanban/guestbook.php?id=12&page=3 -->
  349. <HTML><HEAD><TITLE>═■║ú╨╦┼⌐═°┴⌠╤╘░σ</TITLE>
  350. <SCRIPT language=javascript>
  351. function popwin3(path)
  352. {  window.open(path,"","height=450,width=400,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
  353. }</SCRIPT>
  354.  
  355. <META http-equiv=Content-Type content="text/html; charset=gb2312">
  356. <SCRIPT language=JavaScript>
  357. <!--
  358. function Juge(theForm)
  359. {
  360.   if (theForm.name.value == "")
  361.   {
  362.     alert("╟δ╩Σ╚δ─·╡─╨╒├√!");
  363.     theForm.name.focus();
  364.     return (false);
  365.   }
  366.         if (checktext(theForm.name.value))
  367.         {
  368.                 alert("╟δ─·╩Σ╚δ╙╨╨º╨╒├√!");
  369.                 theForm.name.select();
  370.                 theForm.name.focus();
  371.                 return (false);
  372.         }
  373.  
  374. //        if (theForm.email.value == "")
  375. //        {
  376. //                alert("╟δ─·╩Σ╚δ\"email\"!");
  377. //                theForm.email.focus();
  378. //                return (false);
  379. //        }
  380.         if (theForm.ly.value == "")
  381.         {
  382.                 alert("╟δ─·╩Σ╚δ─┌╚▌!");
  383.                 theForm.ly.focus();
  384.                 return (false);
  385.         }
  386.     if (theForm.ly.value.length > 300)
  387.         {
  388.                 alert("\b\b┴⌠╤╘▓╗─▄│¼╣²300╫╓úí");
  389.                 theForm.ly.focus();
  390.                 return (false);
  391.         }
  392.  
  393. //        var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_@.";
  394. //        var checkStr = theForm.email.value;
  395. //        var allValid = true;
  396. //        for (i = 0;  i < checkStr.length;  i++)
  397. //        {
  398. //                ch = checkStr.charAt(i);
  399. //                for (j = 0;  j < checkOK.length;  j++)
  400. //                if (ch == checkOK.charAt(j))
  401. //                        break;
  402. //                if (j == checkOK.length)
  403. //                {
  404. //                        allValid = false;
  405. //                        break;
  406. //                }
  407. //        }
  408.  
  409. //        if (theForm.email.value.length < 6)
  410. //        {
  411. //                        allValid = false;
  412. //        }
  413.  
  414. //        if (!allValid)
  415. //        {
  416. //                alert("─·╩Σ╚δ╡─ \"╡τ╫╙╙╩╝■╡╪╓╖\" ╬▐╨º!");
  417. //                theForm.email.focus();
  418. //                return (false);
  419. //        }
  420. //
  421. //        address=theForm.email.value;
  422. //    if(address.length>0)
  423. //        {
  424. //        i=address.indexOf("@");
  425. //        if(i==-1)
  426. //                {
  427. //                        window.alert("╢╘▓╗╞≡úí─·╩Σ╚δ╡─╡τ╫╙╙╩╝■╡╪╓╖╩╟┤φ╬≤╡─úí")
  428. //                        theForm.email.focus();
  429. //                        return false
  430. //        }
  431. //       ii=address.indexOf(".")
  432. //        if(ii==-1)
  433. //                {
  434. //                        window.alert("╢╘▓╗╞≡úí─·╩Σ╚δ╡─╡τ╫╙╙╩╝■╡╪╓╖╩╟┤φ╬≤╡─úí")
  435. //                       theForm.email.focus();
  436. //                        return false
  437. //        }
  438.  
  439. //    }
  440. //        if (checktext(theForm.email.value))
  441. //        {
  442. //                alert("╟δ─·╩Σ╚δ╙╨╨º╡─\"email\"!");
  443. //                theForm.email.select();
  444. //                theForm.email.focus();
  445. //                return (false);
  446. //        }
  447. }
  448.  
  449. function checktext(text)
  450. {
  451.                         allValid = true;
  452.  
  453.                 for (i = 0;  i < text.length;  i++)
  454.                 {
  455.                         if (text.charAt(i) != " ")
  456.                         {
  457.                                 allValid = false;
  458.                                 break;
  459.                         }
  460.                 }
  461.  
  462. return allValid;
  463. }
  464.  
  465. //-->
  466. </SCRIPT>
  467.  
  468. <SCRIPT language=javascript>
  469. var domain = "readyou.net";
  470. function ad_unload() {
  471.     if( domain == "readyou.net"){
  472.         window.open ( "http://www.168159.com", "vip_720", "toolbar=yes, menubar=yes, scrollbars=yes, resizable=yes, location=yes, status=yes");
  473.     }
  474.  
  475. }
  476.  
  477. </SCRIPT>
  478.  
  479. <STYLE type=text/css>BODY {
  480.     FONT-SIZE: 12px;
  481.     background-image: url(img/ditu3.gif);
  482. }
  483. TABLE {
  484.     FONT-SIZE: 14px
  485. }
  486. </STYLE>
  487.  
  488. <META content="MSHTML 6.00.2900.3157" name=GENERATOR>
  489. <link href="lyb.css" rel="stylesheet" type="text/css">
  490. </HEAD>
  491. <BODY bgColor=#f9feec topMargin=0 onunload=ad_unload()>
  492. <DIV align=center>
  493. <TABLE cellSpacing=2 cellPadding=0 border=0>
  494.   <TBODY>
  495.   <TR>
  496.     <TD><img src="img/b1.gif" width="700" height="100"></TD>
  497.   </TR></TBODY></TABLE>
  498. <BR></DIV>
  499. <DIV align=center>
  500.   <table width="80%" border="0" cellspacing="0" cellpadding="0">
  501.     <tr>
  502.       <td width="7%"> </td>
  503.       <td width="43%"> </td>
  504.       <td width="25%"><a href="write.asp">╟⌐╨┤┴⌠╤╘</a></td>
  505.       <td width="25%"><a href="login.asp">╣▄└φ╘▒╡╟┬╜</a></td>
  506.     </tr>
  507.   </table>
  508.   <% 
  509. While ((Repeat1__numRows <> 0) AND (NOT ly.EOF)) 
  510. %>
  511.   <TABLE borderColor=#006600 cellSpacing=1 cellPadding=1 width="80%" 
  512. bgColor=#ffffff border=1>
  513.     <TBODY>
  514.       <TR>
  515.         <TD width="15%" align="center" vAlign=middle>
  516.           
  517.               <span class="h1">╨╒├√:              </span><%=(ly.Fields.Item("zd_mz").Value)%>
  518.               <hr>
  519.             <img src="icon/<%=(ly.Fields.Item("zd_tx").Value)%>" width="50" height="70">
  520.           </CENTER></TD>
  521.         <TD width="85%" height="100" vAlign=top>
  522.           <TABLE cellSpacing=0 cellPadding=0 width="100%">
  523.             <TBODY>
  524.               <TR>
  525.                 <TD> <span class="h2">╡┌
  526.                     
  527. ╕÷┴⌠╤╘</span>  <span class="h2"> ╖├┐═╖ó▒φ╙┌</span>ú╗<%=(ly.Fields.Item("zd_sj").Value)%>  <img src="img/oicq.gif" width="16" height="16"> <%=(ly.Fields.Item("zd_qq").Value)%> <img src="img/email.gif" width="16" height="16">  <a href="mailto:<%=(ly.Fields.Item("zd_yx").Value)%>">╙╩╧Σ</a>   <img src="img/homepage.gif" width="16" height="16">   <a href="<%=(ly.Fields.Item("zd_zy").Value)%>">╓≈╥│</a> </TD>
  528.             </TR></TBODY></TABLE>
  529.           <hr size=1 color="#006600">          
  530.           <span class="h2">╖├┐═┴⌠╤╘</span>ú║<%=(ly.Fields.Item("zd_nr").Value)%><BR></TD>
  531.       </TR>
  532.       <TR>
  533.         <TD width="15%" align="left" vAlign=middle>┴⌠╤╘╗╪╕┤ú║</TD>
  534.           <TD align=center><table width="100%" border="0" cellpadding="0" cellspacing="0">
  535.           <tr>
  536.             <td><%=(ly.Fields.Item("zd_hf").Value)%></td>
  537.           </tr>
  538.         </table>        </TR></TBODY>
  539.   </TABLE>
  540.   <table width="80%" border="0" cellspacing="0" cellpadding="0">
  541.     <tr>
  542.       <td> </td>
  543.       </tr>
  544.   </table>
  545.   <% 
  546.   Repeat1__index=Repeat1__index+1
  547.   Repeat1__numRows=Repeat1__numRows-1
  548.   ly.MoveNext()
  549. Wend
  550. %>
  551. <BR>
  552. <table width="80%" border="0" cellspacing="0" cellpadding="0">
  553.   <tr>
  554.     <td align="center"><% 
  555. TM_navLinks=0
  556. If MM_offset <> 0 Then 
  557.   Response.Write("<A HREF=""" & MM_moveFirst & """>╡┌╥╗╥│</A>") 
  558.   else
  559.   Response.Write("╡┌╥╗╥│")
  560.   End If 
  561.  Response.Write(" - ") 
  562. If MM_offset <> 0 Then 
  563.  Response.Write("<A HREF=""" & MM_movePrev & """>╔╧╥╗╥│</A>") 
  564. else
  565.   Response.Write("╔╧╥╗╥│")
  566. End If
  567.    Response.Write(" - ") 
  568. If Not MM_atTotal Then 
  569.   Response.Write("<A HREF=""" & MM_moveNext & """>╧┬╥╗╥│</A>") 
  570.   else 
  571.   Response.Write("╧┬╥╗╥│")
  572.  End If
  573.    Response.Write(" - ")
  574. If Not MM_atTotal Then
  575.   Response.Write("<A HREF=""" & MM_moveLast & """>╫ε║≤╥│</A>") 
  576.   else
  577.   Response.Write("╫ε║≤╥│")
  578. End If
  579.  %>
  580.    ╫▄ <%=ly_TFMtotalPages%>╥│  </td>
  581.   </tr>
  582. </table>
  583. <BR>
  584. </DIV>
  585. <DIV align=center>
  586. <TABLE cellPadding=0 width=650 border=0>
  587.   <TBODY>
  588.   <TR>
  589.     <TD width="100%">
  590.       <HR width="100%" SIZE=1>
  591.     </TD></TR>
  592.   <TR>
  593.     <TD width="100%" height=16>
  594.       <P align=center><FONT size=2><BR>
  595.           <span class="h1">╓╞╫≈ú║ min   2007─Ω8╘┬</span> </FONT></P></TD></TR></TBODY></TABLE></DIV></BODY></HTML>
  596. <%
  597. ly.Close()
  598. Set ly = Nothing
  599. %>
  600.