📄 disp_3vx58n09nq.asp
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
session("id")=request.cookies("oabusyname")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<title>显示信息</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #include file="../inc/css.asp" -->
<style>
.c0{background-color:#FFFFFF}.c1{background-color:#000000;color:#FFFFFF}.c2{background-color:#000099;color:#FFFFFF}.c3{background-color:#009900;color:#FFFFFF}.c4{background-color:#FF0000;color:#FFFFFF}.c5{background-color:#990000;color:#FFFFFF}
.c6{background-color:#990099;color:#FFFFFF}.c7{background-color:#999900;color:#FFFFFF}.c8{background-color:#FFFF00}.c9{background-color:#00FF00}.c10{background-color:#009999}.c11{background-color:#00FFFF}.c12{background-color:#0000FF;color:#FFFFFF}.c13{background-color:#FF00FF;color:#FFFFFF}.c14{background-color:#999999;color:#FFFFFF}.c15{background-color:#CCCCCC;color:#FFFFFF}
</style>
<%
' on error resume next
dim Number,opFlag,title,image,rs2
'获取输入参数:记录号和操作标志
opFlag=request("opFlag")
'创建记录访问对象
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from newbbs where id="&request("id"),Session("conn"),1,3
rs("vhits")=rs("vhits")+1
rs.update
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "select * from newrebbs where vtopic="&request("id"),Session("conn"),1,3
image="../images/offiche.gif"
title="帖子内容"
%>
</head>
<body id=all>
<!-- #include file="../inc/title.asp" -->
<table align="center" width="95%" cellpadding="0" border="0" cellspacing="1" bgcolor="<%=session("vtablebordercolor")%>">
<tr valign="top" class=vtext>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> height="25" align="left" valign="middle">
<b>帖子标题:</b><%=rs("vtitle")%><b> 帖主:</b><%=rs("vname")%><b> 最后回复时间:</b><%=rs("vtime")%></td>
</tr>
<tr valign="top">
<td bgcolor="#ffffff" height="100">
<%=rs("vtext")%>
</td>
</tr>
</table>
<table align="center" width="95%" cellpadding="0" border="0" cellspacing="1" bgcolor="<%=session("vtablebordercolor")%>">
<% while not rs2.eof%>
<tr valign="top" height="90">
<td bgcolor="<%=session("vcolcolor")%>" width="20%"><p style="margin:20 20 20 20"><b>回复人:</b> <%=rs2("vname")%><br><b>回复时间:</b><%=rs2("vtime")%> </td>
<td bgcolor="<%=session("vcolcolor")%>" width="80%"><p style="margin:20 20 20 20"><font color="<%=rs2("vcolor")%>"><%=rs2("vtext")%></font></td>
</tr>
<%
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
</table>
<form action="resave.asp?id=<%=request("id")%>">
<table align="center" width="95%" cellpadding="0" border="0" cellspacing="1" bgcolor="<%=session("vtablebordercolor")%>">
<tr valign="top" class=vtext>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> height="25" align="left" valign="middle">
<b>快速回复: </b>
<input readonly type=text name=vname value="<%=session("id")%>">
<input type="checkbox" name="iadd" value="yes" checked>
加入我的签名<b> 心情色彩: </b><b>
<select name=vcolor size=1 class=p1>
<option class=c1 value=#000000 selected>黑色</option>
<option class=c3 value=#009900>绿色</option>
<option class=c4 value=#FF0000>红色</option>
<option class=c6 value=#990099>紫色</option>
<option class=c7 value=#999900>橙色</option>
<option class=c8 value=#FFFF00>黄色</option>
<option class=c9 value=#00FF00>亮绿</option>
<option class=c10 value=#009999>深青</option>
<option class=c11 value=#00FFFF>亮青</option>
<option class=c12 value=#0000FF>蓝色</option>
<option class=c13 value=#FF00FF>紫红</option>
<option class=c14 value=#999999>灰色</option>
<option class=c15 value=#CCCCCC>银白</option>
</select>
<input readonly type=hidden name=vtopic value="<%=request("id")%>">
<input readonly type=hidden name=vtime value="<%=nowdate%>">
</b></td>
</tr> <tr>
<td align=center bgcolor=<%=Session("vcolcolor")%>>
<textarea style="width:100%" name=vtext rows="6" cols="20"></textarea>
</td>
</tr>
</table>
<div align="center"><br>
<button class=vinputbutton style="height=24" onClick="submit()"><img src="../images/sendmsg.gif" align="absmiddle"> 回复</button>
<button class=vinputbutton name="Submit6" style="height=24" onClick=javascript:window.location.href="main.asp"><img src="../images/back.gif" align="absmiddle"> 返回BBS首页</button>
</div>
<div align="center"></div>
<div align="center"></div>
</form>
</body>
</html>
<!-- MMDW:success -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -