📄 bbsview2.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="fanconn.asp"-->
<!--#include file="fanfuc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if trim(Request("B1")) = "提交" then
response.write "<meta HTTP-EQUIV='refresh' CONTENT='2; URL=bbsview.asp?type=" & Request.Form("type") & "'>"
end if
%>
<title>日月论坛 - 讨论区</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="JavaScript">
<!--
function CheckForm()
{
if (document.form.title.value == "" )
{
alert ("请输入主题！");
document.form.title.focus();
return (false);
}
if (checktext(document.form.title.value))
{
alert("提醒：主题是一定要写的！");
document.form.title.select();
document.form.title.focus();
return (false);
}
}
function checktext(text)
{
allValid = true;
for (i = 0; i < text.length; i++)
{
if (text.charAt(i) != " ")
{
allValid = false;
break;
}
}
return allValid;
}
// -->
</Script>
</head>
<body bgcolor="#FFFFCC" topmargin="0">
<br>
<%
if trim(Request("B1")) = "提交" then
dim efirst
dim m
dim euser
dim email
dim etitle
dim edetail
efirst = Request("id")
m = Request("type")
euser = Trim(Request("user"))
if euser = "" then
euser = "无名氏"
end if
email = Trim(Request("mail"))
etitle = Trim(Request("title"))
edetail = request("detail")
if edetail = "" then
edetail = "无内容！"
end if
set rs=server.createobject("adodb.recordset")
sql="select * from " & m
rs.open sql,conn,1,3
rs.AddNew
rs("first") = efirst
rs("user") = euser
rs("mail") = email
rs("title") = etitle
rs("detail") = edetail
rs("hits") = 0
rs("reply") = 0
rs("bbstime") = Now()
rs.update
rs.close
sql="SELECT * FROM " & m & " WHERE id=" & Request.form("id")
Set Rs=conn.Execute(sql)
reply = rs("reply") + 1
sql="UPDATE " & m & " SET reply = " & reply & " WHERE id = " & Request.form("id")
conn.Execute sql
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<br><br><br><br><br><br>
<p align="center"> 你的回复已经加入论坛！
<p align="center">2秒后自动<a href="bbsview.asp?type=<%=Request.form("type")%>">返回论坛</a>
<%
else
%>
<%
'浏览数加1
sql="UPDATE " & Request.querystring("type") & " SET hits = hits + 1 WHERE id=" & Request.querystring("id") & " and first = 0"
conn.Execute sql
rs.close
%>
<%
sql="SELECT * FROM " & Request.querystring("type") & " WHERE first = " & Request.querystring("id") & " or id = " & Request.querystring("id") & " order by first "
Set Rs=conn.Execute(sql)
set host=rs("first")
If rs.Bof OR rs.Eof Then
Response.Write "<br><br><br><br><br><br><br><br><br>"
Response.Write "<p align='center'><font color='#FF0000'><b>没有该板块或该板块无此留言！</b></font></p>"
Response.Write "<p align='center'><a href='addbbs.asp'>我要发言</a></p>"
else
if rs("first") = 0 then
response.write "<div align='center'><table border='0' cellspacing='0' cellpadding='0' width='550'>"
response.write "<tr><td align='center'><font size='4' color='#FF0000'><b>" & rs("title") & "</b></font></td></tr>"
response.write "<tr><td> </td></tr>"
response.write "<tr><td align='center'> 文章分类："& Request.querystring("type") & " ｜ 文章编号：" & rs("id") & " ｜ 浏览次数：" & rs("hits") & " ｜ 回复次数：" & rs("reply") & " </td></tr>"
response.write "<tr><td> </td></tr>"
response.write "</table></div>"
end if
response.write "<div align='center'><table border='1' width='550' cellspacing='0' bordercolor='#C0C0C0' bordercolorlight='#C0C0C0' bordercolordark='#FFFFFF' bgcolor='#FFFFFF'>"
if not rs.eof then
Do Until rs.EOF
if rs("first")=0 then
ren="主题"
tcolor="#CCFFCC"
bcolor = "#FEFEFE"
else
ren="回复"
tcolor="#EEEEEE"
bcolor = "#FFFFFF"
end if
dim mtitle
dim muser
mtitle = rs("title")
muser=rs("user")
response.write "<tr><td width='55%' bgcolor='"&tcolor&"'> "&ren&"："
if strLength(mtitle) > 41 then
response.write "<font color='#FF0000'><a title='"&server.htmlencode(mtitle)&"'>"
response.write server.htmlencode(left(mtitle,strLen(mtitle,39)))&"..</font>"
else
response.write "<font color='#FF0000'>"&server.htmlencode(mtitle)&"</font>"
end if
response.write "</td>"
response.write "<td width='17%' bgcolor='"&tcolor&"'> "
if strLength(muser) > 12 then
response.write "<a"
if rs("mail") <> "" then
response.write " href='mailto:"&server.htmlencode(rs("mail"))&"'"
end if
response.write " title='"&server.htmlencode(muser)&"'>"
response.write server.htmlencode(left(muser,strLen(muser,11)))&".."
else
if rs("mail") <> "" then
response.write "<a href='mailto:"&server.htmlencode(rs("mail"))&"'>"
end if
response.write server.htmlencode(muser)
end if
response.write "</a></td>"
response.write "<td width='28%' align='center' bgcolor='"&tcolor&"'><font color='#BBBBBB'>"&rs("bbstime")&"</font></td></tr>"
response.write "<tr><td width='100%' colspan='3' bgcolor='"&bcolor&"'><BLOCKQUOTE><pre><br>"&server.htmlencode(rs("detail"))&"</pre></BLOCKQUOTE></td></tr>"
rs.MoveNext
Loop
response.write "</table>"
end if
%>
<br>
<br>
<form name="form" method="POST" action="bbsview2.asp" onSubmit="return CheckForm()">
<div align="center">
<table border="0" width="580" cellspacing="1">
<tr>
<td width="80"></td>
<td align="right"></td>
</tr>
<tr>
<td width="80" align="right">用户姓名：</td>
<td><input type="text" name="user" size="22" class="input_a"> 电子邮件：<input type="text" name="mail" size="25" class="input_a"><input type="hidden" name="type" size="2" value="<%=Request.querystring("type")%>"><input type="hidden" name="id" size="2" value="<%=Request.querystring("id")%>">
</tr>
<tr>
<td width="80" align="right">回复主题：</td>
<td>
<input type="text" name="title" value="" size="59" class="input_a">
</td>
</tr>
<tr>
<td width="80" align="right">详细内容：</td>
<td>
<textarea rows="4" name="detail" cols="74" wrap="hard" style="font-size: 9pt" class="input_a"></textarea></td>
</tr>
<tr>
<td width="80"></td>
<td> <input class="b" type="submit" value=" 提交 " name="B1"> <input class="b" type="reset" value=" 重置 " name="B2"> <a href="javascript:history.go(-1)">返回上页</a></td>
</tr>
</table>
</div>
</form>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
<%
end if
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -