/wsj/Manage/pl.asp

https://github.com/hare1987/kaidun180 · ASP · 89 lines · 88 code · 1 blank · 0 comment · 2 complexity · a967c0a76225e208dc49fe581e69661d MD5 · raw file

  1. <!-- #include file="Include/Login_Conn.asp" -->
  2. <!-- #include file="Include/Chk.asp" -->
  3. <%
  4. function showstring(fString)
  5. if not isnull(fString) then
  6. fString = replace(fString, ">", "&gt;")
  7. fString = replace(fString, "<", "&lt;")
  8. fString = replace(fString, chr(13), "")
  9. fString = replace(fString, chr(10), "<br />")
  10. fString = replace(fString, chr(34), "&quot;")
  11. fString = replace(fString, chr(39), "&#39;")
  12. fString = replace(fString, "script", "&#115cript")
  13. showstring = fString
  14. end if
  15. end function
  16. %>
  17. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  18. <html xmlns="http://www.w3.org/1999/xhtml">
  19. <head>
  20. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  21. <title></title>
  22. <style type="text/css">
  23. <!--
  24. body,td,th {
  25. font-size: 12px;
  26. }
  27. body {
  28. margin-left: 0px;
  29. margin-top: 0px;
  30. margin-right: 0px;
  31. margin-bottom: 0px;
  32. }
  33. .STYLE3 {color: #0063dc}
  34. .STYLE4 {color: #666666; font-size: 12px; }
  35. .STYLE13 {color: #CCCCCC}
  36. .STYLE19 {color: #97C6FF}
  37. .STYLE20 {color: #999999}
  38. .STYLE22 {font-family: Arial, Helvetica, sans-serif}
  39. .STYLE24 {
  40. font-family: "ºÚÌå";
  41. font-size: 18px;
  42. }
  43. .STYLE25 {color: #666666}
  44. .STYLE33 {color: #525252}
  45. -->
  46. </style>
  47. <link href="images/admin_STYLE.css" rel="stylesheet" type="text/css" />
  48. </head>
  49. <body style="overflow-x:hidden">
  50. <table width="98%" border="0" cellspacing="0" cellpadding="0">
  51. <tr>
  52. <td height="30" align="left" valign="middle" class="STYLE24">¹ÜÀíÆÀÂÛ</td>
  53. </tr>
  54. </table>
  55. <table width="98%" height="105" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" >
  56. <%
  57. Set rs=server.CreateObject("Adodb.Recordset")
  58. sql="Select * from pl order by id desc"
  59. rs.Open sql,conn,1,1
  60. do while not rs.eof
  61. %>
  62. <tr>
  63. <td width="142" height="70" align="center" valign="middle" bgcolor="#efefef"><img src="../<%=rs("t")%>" /></td>
  64. <td width="326" valign="top" bgcolor="#efefef"><span><%=rs("nick")%>£º<br />
  65. <br />
  66. <span>
  67. <%
  68. Response.Write (showstring(rs("info")))
  69. %>
  70. </span> <br />
  71. <span >QQ/MSN£º<%=rs("qq")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ÆÀÂÛʱ¼ä£º<%=rs("addtime")%></span></span></span></td>
  72. <td width="298" align="center" valign="middle" bgcolor="#efefef">
  73. <%if rs("sh")=0 then%>
  74. <a href="pl_sh.asp?id=<%=rs("id")%>">ÉóºË</a>
  75. <%else%>
  76. <a href="pl_sh.asp?id=<%=rs("id")%>" style="color:#000000">ÒÑÉóºË</a>
  77. <%end if%>
  78. | <a href="pl_del.asp?id=<%=rs("id")%>">ɾ³ý</a></td>
  79. </tr>
  80. <%
  81. rs.MoveNext
  82. Loop
  83. rs.Close
  84. Set rs=Nothing
  85. %>
  86. </table>
  87. </body>
  88. </html>