📄 msgshow.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitename%>-<%=request.QueryString("msgtitle")%></title>
<link href="css/msg.css" rel="stylesheet" type="text/css">
<script language="javascript">
function ck()
{
if (document.form1.tb.value=="")
{
window.alert("请输入贴吧名称!");
return true;
}
else
{
document.form1.submit();
return true;
}
}
function xunz(n)
{
if (n==0)
{
document.form1.tb.value="";
return true;
}
if (n==1)
{
document.form1.tb.value="";
document.form1.tb.value="请输入贴吧名称";
return true;
}
if (n==2)
{
document.form1.tb.value="";
document.form1.tb.value="请输入要搜索贴子名称";
return true;
}
if (n==3)
{
document.form1.tb.value="";
document.form1.tb.value="请输入作者名称";
return true;
}
}
</script>
</head>
<body topmargin="10" >
<%
username=session("username")
if username="" then
username="匿名发表"
end if
tiebaname=request.QueryString("tiebaname")
'msgtitle=request.QueryString("msgtitle")
id=request.QueryString("id")
%>
<table width="100%" border="0">
<tr>
<td>
<table width="80%" border="0">
<form name="form1" method="post" action="find.asp">
<tr>
<td><input type="text" name="tb" onClick="xunz(0)" value="请输入贴吧名称">
<input type="button" name="sb" value="搜索" onClick="ck()" onKeyPress="ck()">
<input type="reset" name="Submit" value="重置">
<a href="login.asp" target="_self">登录</a> | <a href="reg.asp" target="_self">注册</a> | <a href="help.asp" target="_blank">帮助</a></td>
</tr>
<tr>
<td>
<input name="radiobutton" type="radio" value="jl" onClick="xunz(1)" checked>
进入贴吧 <input type="radio" name="radiobutton" value="sstz" onClick="xunz(2)">
帖子搜索 <input type="radio" name="radiobutton" value="sszz" onClick="xunz(3)">
按作者搜索 </td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0">
<tr>
<td colspan="2">贴吧 ><a href="msg.asp?tiebaname=<%=tiebaname%>" target="_blank"> <%=tiebaname%></a> > 主题列表</td>
</tr>
<tr>
<td colspan="2" class="tback">回复贴子</td>
<td width="28%" colspan="1" align="right" class="tback">贴吧公告 | 申请吧主 | 贴吧投诉 </td>
</tr>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from msg where id="&cint(id)&" order by id"
rs.open sql,conn,1,1
if not rs.eof then
msgtitle=rs("msgtitle")
%>
<tr>
<td colspan="3" class=ttt>主题:<%=rs("msgtitle")%> </td>
</tr>
<tr>
<td width="4%" colspan="1" class=td2> </td>
<td colspan="2" class=td2>
<%=rs("msg")%> <br>
<% if len(rs("picurl"))>1 then %>
<img src="<%=rs("picurl")%>"><br>
<% end if %>
</td>
</tr>
<tr>
<td colspan="3" class=td2>
作者: <%=rs("author")%> <%=rs("msgtime")%>
<hr align="left" width="60%" size="1" noshade>
</td>
</tr>
<%
end if
If Len(Trim(Request("page")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("page")))
End If
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from reply where tiebaname='"&tiebaname&"' and id="&cint(id)&" order by msgtime"
rs.open sql,conn,1,1
rs.PageSize=10
if not rs.eof then '--------------
rs.AbsolutePage=page
for k=1 to rs.PageSize
%>
<tr>
<td colspan="3" class=td2><%=k%> 回复:<%=msgtitle%> </td>
</tr>
<tr>
<td colspan="1" class=td2> </td>
<td colspan="2" class=td2>
<%=rs("msg")%> <br>
<% if len(rs("picurl"))>1 then %>
<img src="<%=rs("picurl")%>"><br>
<% end if %>
</td>
</tr>
<tr>
<td colspan="3" class=td2>
作者: <%=rs("author")%> <%=rs("msgtime")%>
<hr align="left" width="60%" size="1" noshade>
</td>
</tr>
<%
rs.movenext
if rs.EOF Then Exit For
next
end if '--------------
%>
<tr>
<td colspan="2" class=td2>
<%
if page <>1 then
Response.Write "<a href=msgshow.asp?page=1&tiebaname="&tiebaname&"&msgtitle="&msgtitle&"&id="&id&">首页</a> "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"<a href=msgshow.asp?page="&tmppage&"&tiebaname="&tiebaname&"&msgtitle="&msgtitle&"&id="&id&">上一页</a>"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " <a href=msgshow.asp?page="&tmppage&"&tiebaname="&tiebaname&"&msgtitle="&msgtitle&"&id="&id&">下一页</a> "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "<a href=msgshow.asp?page="&rs.PageCount&"&tiebaname="&tiebaname&"&msgtitle="&msgtitle&"&id="&id&">尾页</a>"
end if
if Cstr(rs.PageCount) <> 0 then
Response.Write " 第<font color='#CCCCCC'>" & page & "/"&rs.PageCount&"</font>页"
end if
%>
</td>
</tr>
</table>
<form name="form2" method="post" action="msgadd.asp">
<table width="100%" border="0">
<tr>
<td width="9%">标 题:</td>
<td width="91%"><input name="msgtitle" type="text" id="msgtitle" value=回复:<%=msgtitle%> size="50">
</td>
</tr>
<tr>
<td valign="top">内 容:</td>
<td valign="top"><textarea name="msg" cols="55" rows="8" id="msg"></textarea></td>
</tr>
<tr>
<td>图片链接:</td>
<td><input name="picurl" type="text" id="picurl" size="50">
</td>
</tr>
<tr>
<td>用 户:</td>
<td><%=username%><input type="submit" name="Submit" value="发表贴子">
<input type="hidden" name="username" value=<%=username%>>
<input type="hidden" name="sj" value="reply">
<input type="hidden" name="n" value="0">
<input type="hidden" name="id" value=<%=id%>>
<input name="tiebaname" type="hidden" id="tiebaname" value=<%=tiebaname%>></td>
</tr>
</table>
</form> <p> </p>
<p> </p></td>
</tr>
</table>
<%
call hits("msg","hits",0)
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -