📄 relate.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<% option explicit%>
<%Response.Buffer=True%>
<!--#Include file="odbc_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>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="750" align="center">
<tr><td>
<table width="750" border="0" height="20" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/top.gif" width="750" height="20"></td>
</tr>
</table>
<table width="750" border="0" align="center" bgcolor="#e8f4ff" cellspacing="0" cellpadding="0" height="70">
<tr>
<td width="166" rowspan="3">
<div align="center"><img src="images/logo.gif" width="150" height="70"></div>
</td>
<td width="487" rowspan="3">
<div align="center"><font size="7" face="楷体_GB2312" color="#0066FF"><b><%=session("type")%></b></font></div>
</td>
<td width="97"><img src="images/zhuye.gif" width="18" height="18"> 设为首页</td>
</tr>
<tr>
<td width="97"><img src="images/shoucang.gif" width="18" height="18"> 加入收藏</td>
</tr>
<tr>
<td width="97"><img src="images/lianxi.gif" width="16" height="16"> 联系我们</td>
</tr>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center" height="30">
<tr>
<td rowspan="2" width="130"><img src="images/c1.gif" width="130" height="30"></td>
<td height="12" valign="top"><img src="images/c2.gif" width="490" height="12"></td>
<td rowspan="2" width="130"><img src="images/c3.gif" width="130" height="30"></td>
</tr>
<tr>
<td background="images/c4.gif" height="18"><marquee height="20" direction="left" width="100%">
<img src="images/dog.gif"><font>欢迎光临我的论坛，请指教~！</font>
</marquee></td>
</tr>
</table>
</td></tr>
<tr><td><hr></td></tr></table>
<table align="center" width="750" cellpadding="0" cellspacing="0" border="1">
<tr>
<td width="569">主题</td>
<td width="175">发表时间</td>
</tr>
<%
dim sql,rs
sql="select * from reply where title='"&session("title")&"'"
'response.Write sql
'response.End()
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof
%>
<tr>
<td><a href="readreply.asp?id=<%=rs("id")%>">re:<%=rs("title")%></a></td>
<td><%=rs("times")%></td>
</tr>
<%
rs.movenext
loop
%>
<tr><td colspan="2">
</td></tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -