📄 web_bbs_display.asp
字号:
<!--#include file="../global/inc/CheckSession.asp"-->
<!--#include file="../global/inc/global.inc.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">
<link href="../style.css" rel="stylesheet" type="text/css">
<title>回复留言</title>
<script LANGUAGE="JavaScript">
<!--
function CheckForm()
{
if(document.form1.rename.value=="") {
document.form1.rename.focus();
alert("请输入姓名！");
return false;
}
if(document.form1.recontent.value=="") {
document.form1.recontent.focus();
alert("请输入回复内容！");
return false;
}
}
//-->
</script>
</head>
<body>
<%=GetWebTop("1")%>
<%
BBSID=request.QueryString("BBSID")
rebbs=request.QueryString("rebbs")
'if rebbs<>"" then
if rebbs="ye" then
call reBBSID
end if
'end if
sub reBBSID
oConn_Start
rename=request.form("rename")
recontent=request.form("recontent")
pageno=request.QueryString("pageno")
oconn.execute("update BBS set rename='"&rename&"',recontent='"&recontent&"',red_time='"&now&"' where BBSID="&cint(BBSID))
response.write "<script language=javascript>"&chr(13)&"window.location.href='../html/bbs.asp?pageno="&pageno&"'"&chr(13)&"</script>"
oConn_close
end sub
sub bbslist
oConn_Start
set rs=server.createobject("adodb.recordset")
strsql="select * from BBS where BBSID ="&cint(BBSID)
rs.open strsql,oconn,1,1
'do while not rs.eof
'response.write rs("username")
%>
<table width="460" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><TABLE cellSpacing=1 cellPadding=3 width="780" align=center
bgColor=#cccccc border=0>
<TBODY>
<TR>
<TD bgColor=#efefef colSpan=2 height=0>
<TABLE height=20 cellSpacing=0 cellPadding=0 width="99%"
align=right border=0>
<TBODY>
<TR>
<TD width="57%"><FONT color=#006600> 主题：<%=rs("title")%> </FONT></TD>
<TD width="18%"><div align="center"><img src="../gb/bb01.gif" alt="<%=rs("Tel")%>" width="21" height="14"> <a href="mailto:<%=rs("Email")%>"><img src="../gb/email.gif" alt="<%=rs("Email")%>" width="16" height="16" border="0"></a> <img src="../gb/homepage.gif" alt="<%=rs("units")%>" width="16" height="16"> <img src="../gb/oicq.gif" alt="<%=rs("qq")%>" width="16" height="16"></div></TD>
<TD width="25%"><IMG
src="../images/posttime.gif"
align=absMiddle border=0>：<FONT class="style2"><%=rs("d_time")%></FONT> </TD>
</TR>
</TBODY>
</TABLE></TD>
<TR>
<TD vAlign=center align=middle width=150
bgColor=#f7f7f7><TABLE cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD width="100%">
<P align=center><IMG src="../html/face/<%=rs("face")%>"><BR>
</P></TD>
</TR>
<TR>
<TD width="100%">
<P align=center><%=rs("username")%></P></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=630 vAlign=top bgColor=#f7f7f7>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD vAlign=top height=30><IMG src="../html/portrait/<%=rs("portrait")%>" align=absMiddle> <%=rs("content")%> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD width=150 bgColor=#efefef height=26>
<P align=center><IMG
src="../images/reply1.gif"
border=0><BR>
<FONT color=#006633>
<%
if isnull(rs("rename")) then
response.write("暂无回复")
else
response.write rs("rename")&"回复"
end if
%>
</FONT></P></TD>
<TD width=630 height=26 bgColor=#efefef>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD height=25><FONT color=#006633></FONT></TD>
</TR>
<TR>
<TD height=10>
<HR color=#808000 SIZE=1>
</TD>
</TR>
<TR>
<TD height=13>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width="42%"><FONT
color=#006633>回复时间：</FONT></TD>
<TD width="58%">
<P align=right> </P></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR bgcolor="#efefef">
<TD height=26 colspan="2"> 电话:<%=rs("Tel")%> E-mail:<%=rs("Email")%> 单位:<%=rs("units")%> qq:<%=rs("qq")%></TD>
</TR>
<TR bgcolor="#efefef">
<TD height=26 colspan="2"><form action="?BBSID=<%=BBSID%>&rebbs=ye" onsubmit="return CheckForm()" method="post" enctype="application/x-www-form-urlencoded" name="form1" target="_self">
<table width="100%" border="0" cellpadding="5" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="21%" height="30"><div align="center">姓名：</div></td>
<td width="79%">
<input name="rename" type="text" id="rename" value="<%if isnull(rs("rename")) or rs("rename")="" then
response.Write("上海神马")
else
response.Write rs("rename")
end if
%>" size="50" maxlength="50"></td>
</tr>
<tr>
<td height="30"><div align="center">回复：</div></td>
<td> <textarea name="recontent" cols="58" rows="6" id="recontent"><%=rs("recontent")%></textarea></td>
</tr>
<tr>
<td height="30"> </td>
<td height="30"><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<br>
<%
oConn_close
end sub
bbslist
%>
<%=GetWebBottom()%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -