/wsj/Manage/pl.asp
https://github.com/hare1987/kaidun180 · ASP · 89 lines · 88 code · 1 blank · 0 comment · 2 complexity · a967c0a76225e208dc49fe581e69661d MD5 · raw file
- <!-- #include file="Include/Login_Conn.asp" -->
- <!-- #include file="Include/Chk.asp" -->
- <%
- function showstring(fString)
- if not isnull(fString) then
- fString = replace(fString, ">", ">")
- fString = replace(fString, "<", "<")
- fString = replace(fString, chr(13), "")
- fString = replace(fString, chr(10), "<br />")
- fString = replace(fString, chr(34), """)
- fString = replace(fString, chr(39), "'")
- fString = replace(fString, "script", "script")
- showstring = fString
- end if
- end function
- %>
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml">
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
- <title></title>
- <style type="text/css">
- <!--
- body,td,th {
- font-size: 12px;
- }
- body {
- margin-left: 0px;
- margin-top: 0px;
- margin-right: 0px;
- margin-bottom: 0px;
- }
- .STYLE3 {color: #0063dc}
- .STYLE4 {color: #666666; font-size: 12px; }
- .STYLE13 {color: #CCCCCC}
- .STYLE19 {color: #97C6FF}
- .STYLE20 {color: #999999}
- .STYLE22 {font-family: Arial, Helvetica, sans-serif}
- .STYLE24 {
- font-family: "ºÚÌå";
- font-size: 18px;
- }
- .STYLE25 {color: #666666}
- .STYLE33 {color: #525252}
- -->
- </style>
- <link href="images/admin_STYLE.css" rel="stylesheet" type="text/css" />
- </head>
-
- <body style="overflow-x:hidden">
- <table width="98%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td height="30" align="left" valign="middle" class="STYLE24">¹ÜÀíÆÀÂÛ</td>
- </tr>
- </table>
- <table width="98%" height="105" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" >
- <%
- Set rs=server.CreateObject("Adodb.Recordset")
- sql="Select * from pl order by id desc"
- rs.Open sql,conn,1,1
- do while not rs.eof
- %>
- <tr>
- <td width="142" height="70" align="center" valign="middle" bgcolor="#efefef"><img src="../<%=rs("t")%>" /></td>
- <td width="326" valign="top" bgcolor="#efefef"><span><%=rs("nick")%>£º<br />
- <br />
- <span>
- <%
- Response.Write (showstring(rs("info")))
- %>
- </span> <br />
- <span >QQ/MSN£º<%=rs("qq")%> ÆÀÂÛʱ¼ä£º<%=rs("addtime")%></span></span></span></td>
- <td width="298" align="center" valign="middle" bgcolor="#efefef">
- <%if rs("sh")=0 then%>
- <a href="pl_sh.asp?id=<%=rs("id")%>">ÉóºË</a>
- <%else%>
- <a href="pl_sh.asp?id=<%=rs("id")%>" style="color:#000000">ÒÑÉóºË</a>
- <%end if%>
- | <a href="pl_del.asp?id=<%=rs("id")%>">ɾ³ý</a></td>
- </tr>
- <%
- rs.MoveNext
- Loop
- rs.Close
- Set rs=Nothing
- %>
- </table>
- </body>
- </html>