📄 tzh_show.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin_conn.asp" -->
<%
tid=request("id")
%>
<%
Dim rs2__MMColParam
rs2__MMColParam = tid
If (Request("MM_EmptyValue") <> "") Then
rs2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs2
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = MM_adminconn_STRING
rs2.Source = "SELECT * FROM bbs WHERE bbs_id = " + Replace(rs2__MMColParam, "'", "''") + ""
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 1
rs2.Open()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<base onmouseover="window.status='欢迎使用有L.Y.Z开发的学生社团管理网络平台';return true"><LINK href="all.css" rel=StyleSheet type=text/css></head>
<body>
<td><table width="100%" border="1" cellspacing="0" bordercolor="#009900" style='TABLE-LAYOUT: fixed; WORD-BREAK: break-all;border-collapse:collapse; border-left-width:1px; border-right-width:1px; border-top-width:1px'>
<tr bgcolor="#cbe6b9" >
<td width="10%">主题：</td>
<td width="90%"><%=(rs2.Fields.Item("bbs_top").Value)%></td>
</tr>
<tr bgcolor="#E7FDE3">
<td>内容：</td>
<td><%=(rs2.Fields.Item("bbs_content").Value)%></td>
</tr>
<tr bgcolor="#cbe6b9" >
<td><%if request.Cookies("user")="管理员" then%>
<input type="button" value="删除" onclick="if (confirm('确实要此条记录吗？')) window.location='tie_del.asp?id=<%=tid%>'" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver="this.style.backgroundColor='#FFC864'" onMouseOut="this.style.backgroundColor='#D4D0C8'">
<%end if%></td>
<td align="right">Frome:<%=(rs2.Fields.Item("bbs_writer").Value)%> date:<%=(rs2.Fields.Item("bbs_date").Value)%></td>
</tr>
</table>
<%
rs2.Close()
Set rs2 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -