home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qtlj.asp < prev    next >
Text File  |  2006-07-14  |  2KB  |  59 lines
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="Connections/whnc.asp" -->
  3. <%
  4. Dim qt__MMColParam
  5. qt__MMColParam = "1"
  6. If (Request.QueryString("id") <> "") Then 
  7.   qt__MMColParam = Request.QueryString("id")
  8. End If
  9. %>
  10. <%
  11. Dim qt
  12. Dim qt_numRows
  13.  
  14. Set qt = Server.CreateObject("ADODB.Recordset")
  15. qt.ActiveConnection = MM_whnc_STRING
  16. qt.Source = "SELECT * FROM qt WHERE id = " + Replace(qt__MMColParam, "'", "''") + ""
  17. qt.CursorType = 0
  18. qt.CursorLocation = 2
  19. qt.LockType = 1
  20. qt.Open()
  21.  
  22. qt_numRows = 0
  23. %>
  24. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  25. <html xmlns="http://www.w3.org/1999/xhtml">
  26. <head>
  27. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  28. <title>╬▐▒Ω╠Γ╬─╡╡</title>
  29. </head>
  30.  
  31. <body>
  32. <div align="center">
  33.   <table width="700" border="0" cellspacing="0" cellpadding="0">
  34.     <tr>
  35.       <td colspan="2"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="<%=(qt.Fields.Item("date").Value)%>" width="700" height="80">
  36.         <param name="movie" value="whncimg/nc-logo.swf" />
  37.         <param name="quality" value="high" />
  38.         <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>
  39.       </object></td>
  40.     </tr>
  41.     <tr>
  42.       <td width="204" rowspan="3"> </td>
  43.       <td width="496"><div align="right">╖ó▓╝╩▒╝Σú║<%=(qt.Fields.Item("date").Value)%></div></td>
  44.     </tr>
  45.     <tr>
  46.       <td><div align="center"><%=(qt.Fields.Item("cun").Value)%></div></td>
  47.     </tr>
  48.     <tr>
  49.       <td><%=(qt.Fields.Item("jiesh").Value)%></td>
  50.     </tr>
  51.   </table>
  52. </div>
  53. </body>
  54. </html>
  55. <%
  56. qt.Close()
  57. Set qt = Nothing
  58. %>
  59.