📄 detail1.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言本</title>
<style type="text/css">
<!--
.style1 {font-family: Tahoma}
.style2 {font-size: 9px}
.style3 {font-family: Tahoma; font-size: 9px; }
.style4 {font-size: 9pt}
.style5 {font-family: Tahoma; font-size: 9pt; }
.style7 {font-family: Tahoma; font-size: 9pt; color: #0066FF; }
.style9 {font-family: 华文新魏; font-size: 14pt; }
.style11 {color: #3399CC}
-->
</style></head>
<link type="text/css" href="css.css" rel="stylesheet">
<body background="images/bottom-z.gif">
<table width="807" height="125" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td><!--#include file="head.asp"--></td>
</tr>
</table>
<table width="807" height="319" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="143" height="256" align="left" valign="top"><table width="147" height="43" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="14"> </td>
</tr>
</table>
<!--#include file="left.asp"--></td>
<td width="664" align="left" valign="top">
<table width="649" height="78" border="0" cellpadding="0" cellspacing="0">
<tr><td height="3" colspan="2"></td></tr>
<tr>
<td height="31" colspan="4"><img src="images/review.gif" width="400" height="37"></td>
</tr>
<tr>
<td colspan="4"></td>
</tr>
<tr>
<%category=request.QueryString("category")%>
<td colspan="4" class="style9"><%=category%></td>
</tr>
<tr>
<td colspan="4"></td>
</tr>
<tr>
<td height="23" colspan="2">用户名：</td>
<td width="366" class="style1">主题：</td>
<td width="179">上传时间：</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from word where category='"&category&"' order by adddate desc",conn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
%>
<tr>
<td colspan="2"><%=rs("name")%></td>
<td><a href="detail.asp?wordid=<%=rs("wordid")%>"><% if len(trim(rs("subject")))>20 then
response.write left(trim(rs("subject")),18)&"..."
else
response.write trim(rs("subject"))
end if%></a></td>
<td><%=rs("adddate")%></td>
</tr>
<%
wordid=rs("wordid")
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from revert where wordid='"&wordid&"' order by adddate desc",conn,1,1
if not rs1.eof and not rs1.bof then
do while not rs1.eof
%>
<tr>
<td width="71" align="center"><span class="style7">板主回复</span></td>
<td width="33"> </td>
<td><a href="adetail.asp?wordid=<%=rs("wordid")%>" class="style11"><% if len(trim(rs1("subject")))>20 then
response.write left(trim(rs1("subject")),18)&"..."
else
response.write trim(rs1("subject"))
end if%></a></td>
<td class="style11"><%=rs1("adddate")%></td>
</tr>
<%
rs1.movenext
loop
end if%>
<%
rs.movenext
loop
else
response.redirect "empty.asp"
rs1.close
rs.close
end if
%>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -