/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. 

  2. <!-- #include file="Include/Chk.asp" -->

    3. 

  3. <%

    4. 

  4. function showstring(fString)

    5. 

  5. 	if not isnull(fString) then

    6. 

  6. 		fString = replace(fString, ">", "&gt;")

    7. 

  7. 		fString = replace(fString, "<", "&lt;")

    8. 

  8. 		fString = replace(fString, chr(13), "")

    9. 

  9. 		fString = replace(fString, chr(10), "<br />")

    10. 

  10. 		fString = replace(fString, chr(34), "&quot;")

    11. 

  11. 		fString = replace(fString, chr(39), "&#39;")

    12. 

  12. 		fString = replace(fString, "script", "&#115cript")

    13. 

  13. 		showstring = fString

    14. 

  14. 	end if

    15. 

  15. end function

    16. 

  16. %>

    17. 

  17. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

    18. 

  18. <html xmlns="http://www.w3.org/1999/xhtml">

    19. 

  19. <head>

    20. 

  20. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

    21. 

  21. <title></title>

    22. 

  22. <style type="text/css">

    23. 

  23. <!--

    24. 

  24. body,td,th {

    25. 

  25. 	font-size: 12px;

    26. 

  26. }

    27. 

  27. body {

    28. 

  28. 	margin-left: 0px;

    29. 

  29. 	margin-top: 0px;

    30. 

  30. 	margin-right: 0px;

    31. 

  31. 	margin-bottom: 0px;

    32. 

  32. }

    33. 

  33. .STYLE3 {color: #0063dc}

    34. 

  34. .STYLE4 {color: #666666; font-size: 12px; }

    35. 

  35. .STYLE13 {color: #CCCCCC}

    36. 

  36. .STYLE19 {color: #97C6FF}

    37. 

  37. .STYLE20 {color: #999999}

    38. 

  38. .STYLE22 {font-family: Arial, Helvetica, sans-serif}

    39. 

  39. .STYLE24 {

    40. 

  40. 	font-family: "ºÚÌå";

    41. 

  41. 	font-size: 18px;

    42. 

  42. }

    43. 

  43. .STYLE25 {color: #666666}

    44. 

  44. .STYLE33 {color: #525252}

    45. 

  45. -->

    46. 

  46. </style>

    47. 

  47. <link href="images/admin_STYLE.css" rel="stylesheet" type="text/css" />

    48. 

  48. </head>

    49. 

  49. 

    50. 

  50. <body style="overflow-x:hidden">

    51. 

  51. <table width="98%" border="0" cellspacing="0" cellpadding="0">

    52. 

  52.   <tr>

    53. 

  53.     <td height="30" align="left" valign="middle" class="STYLE24">¹ÜÀíÆÀÂÛ</td>

    54. 

  54.   </tr>

    55. 

  55. </table>

    56. 

  56. <table width="98%" height="105" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" >

    57. 

  57. <%

    58. 

  58. Set rs=server.CreateObject("Adodb.Recordset")

    59. 

  59. sql="Select * from pl order by id desc"

    60. 

  60. rs.Open sql,conn,1,1

    61. 

  61. do while not rs.eof 

    62. 

  62. %>  

    63. 

  63. <tr>

    64. 

  64.     <td width="142" height="70" align="center" valign="middle" bgcolor="#efefef"><img src="../<%=rs("t")%>" /></td>

    65. 

  65.     <td width="326" valign="top" bgcolor="#efefef"><span><%=rs("nick")%>£º<br />

    66. 

  66.         <br />

    67. 

  67.         <span>

    68. 

  68.         <%

    69. 

  69. 		Response.Write (showstring(rs("info")))

    70. 

  70. 		%>

    71. 

  71.         </span> <br />

    72. 

  72.     <span >QQ/MSN£º<%=rs("qq")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ÆÀÂÛʱ¼ä£º<%=rs("addtime")%></span></span></span></td>

    73. 

  73.     <td width="298" align="center" valign="middle" bgcolor="#efefef">

    74. 

  74. 	<%if rs("sh")=0 then%>

    75. 

  75. 	<a href="pl_sh.asp?id=<%=rs("id")%>">ÉóºË</a>

    76. 

  76. 	<%else%>

    77. 

  77. 	<a href="pl_sh.asp?id=<%=rs("id")%>" style="color:#000000">ÒÑÉóºË</a>

    78. 

  78. 	<%end if%>

    79. 

  79. 	 | <a href="pl_del.asp?id=<%=rs("id")%>">ɾ³ý</a></td>

    80. 

  80.   </tr>

    81. 

  81. <%

    82. 

  82. rs.MoveNext

    83. 

  83. Loop

    84. 

  84. rs.Close

    85. 

  85. Set rs=Nothing

    86. 

  86. %>

    87. 

  87. </table>

    88. 

  88. </body>

    89. 

  89. </html>
    90.