⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 readreply.asp

📁 BBS源代码网上到处都是, 实现语言也不尽相同, 本人上传的BBSExample是自己做的, 符合课程设计的要求
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#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"  bgcolor="#f2f8ff">
<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><%=type1%></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 border="0" bgcolor="#e8f4ff" cellpadding="0" cellspacing="0" width="750" align="center">
<%
dim id
dim sql,rs
id=request.QueryString("id")
'response.Write id

'response.End
sql="select * from reply where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
%>

<tr><td><font size="4" color="#0066FF" face="仿宋_GB2312"><b>主题:&nbsp;<%=rs("title")%></b></font></td></tr>
<tr><td><hr></td></tr>
<tr>
<td>
<%
response.Write rs("content")
%>
</td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -