📄 readtalker.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%if request("action")="del" then SubjectId=request("WS_TAID") else SubjectId=request("SubjectId") end if
ColumnName="":Tablename="HX_Talkear"
if SubjectId="" or not isnumeric(SubjectId) then
response.write "<script>alert('参数错误！');window.close();</script>"
response.end
end if
Orderby=" where WS_TAID="&SubjectId
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then
response.write "<script>alert('非法操作！');window.close();</script>"
response.end
end if
if request("action")="del" then
SubjectId=rs("WS_TalkEarSubjectId"):rs.delete:WS_S.HX_RSClose rs:response.write "<script>window.opener.location.reload();location.href='readtalker.asp?SubjectId="&SubjectId&"'</script>":response.end
end if
rs("WS_TalkEarKnock")=rs("WS_TalkEarKnock")+1
rs.update
response.Write "<head><title>查看帖子</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'></head><body leftmargin='0' topmargin='5' marginwidth='0' marginheight='0'><table width='580' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>查看帖子</font></td></tr></table><table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor=A1BBE0><tr><td height='25' bgcolor=f1f1f1 align=right><input type='button' name='Submit2' value='回复帖子' onclick=""javascript:location.href='addtalkear.asp?SubjectId="&SubjectId&"';""> <input type='button' name='Submit2' value='关闭窗口' onclick='javascript:window.close();'> </td></tr><tr bgcolor='#F9F8F2'><td height='25'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td width='3%'><IMG src='../HXIMAGES/talkear/"&rs("WS_TalkEarPic")&"' align='absmiddle'></td><td width='57%' style='filter:glow(color=red, strength=2);'>"&rs("WS_TalkEarSubject")&"</td><td width='40%' align=right><font color=red>"&rs("WS_TalkEarName")&"</font> 发表于 <font style='font-size:9pt;color:gray'>【"&rs("WS_TalkEarSendTime")&"】</font> </td></tr></table></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='100' valign=top><table width='100%' border='0' cellspacing='0' cellpadding='5'><tr><td> "&rs("WS_TalkEarcontent")&"</td></tr></table></td></tr><tr><td height='25' bgcolor='#FFFFFF'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='24' background='../hximages/titleline.gif'><font class='fontmenu'>相关回帖</font></td></tr></table></td></tr>"
set rers=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_TalkEarSubjectId="&RS("WS_TAID"))
if rers.recordcount<=0 then
response.write "<tr><td height=25 bgcolor=ffffff align=center><font color=FF00000>没有相关回复！</font></td></tr>"
else
do until rers.eof
response.Write "<tr bgcolor='#F9F8F2'><td height='25'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td width='3%'><IMG src='../HXIMAGES/talkear/"&rers("WS_TalkEarPic")&"' align='absmiddle'></td><td width='57%' style='filter:glow(color=red, strength=2);'>"&rers("WS_TalkEarSubject")&"</td><td width='40%' align=right><font color=red>"&rers("WS_TalkEarName")&"</font> 发表于 <font style='font-size:9pt;color:gray'>【"&rers("WS_TalkEarSendTime")&"】</font> </td></tr></table></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='100'><table width='100%' border='0' cellspacing='0' cellpadding='4'><tr><td height='69' valign=top> "&rers("WS_TalkEarcontent")&"</td></tr></table></td></tr>"
rers.movenext
loop
end if
call WS_S.HX_RSClose(rers):call WS_S.HX_RSClose(rs)
response.Write "<tr><td height='25' bgcolor=f1f1f1 align=right><input type='button' name='Submit2' value='回复帖子' onclick=""javascript:location.href='addtalkear.asp?SubjectId="&SubjectId&"';""> <input type='button' name='Submit2' value='关闭窗口' onclick='javascript:window.close();'> </td></tr></table></td></tr></table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -