📄 delreply.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="head.asp" -->
<!--#include file="conn/conn.asp" -->
<%
if (Request.QueryString("ID") <> "") then session("RID") = Request.QueryString("ID")
set rsreply = Server.CreateObject("ADODB.Recordset")
sql_R= "SELECT * FROM Reply WHERE ID = "&session("RID")
rsreply.open sql_R,conn,1,3
TID=rsreply("TopicID")
if request.Form("button")="确定删除"then
DEL="Delete from Reply where ID="&session("RID")
conn.execute(DEL)%>
<script language="javascript">
alert("回复信息已经删除！");
window.location.href="browse.asp?ID=<%=TID%>"
</script>
<%
response.End()
end if%>
<html>
<head>
<title>删除回复信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
td { font-size: 9pt;font_name:宋体;; line-height: 16pt}
a:hover { color: #ff0000; text-decoration: underline; font-size: 9pt }
a { font-size: 9pt; color: #FFFFFF; text-decoration: none }
p { font-size: 9pt; font-family: "宋体"; line-height: 11pt}
.l { font-size: 9pt; color: #0000FF}
.style1 {
font-size: 18pt;
color: #0099FF;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="770" height="89" border="0" align="center" cellpadding="-2" cellspacing="-2" background="images/banner/bbs_1.gif">
<tr>
<td background="images/11back.gif"> <pre class="style1"> <marquee>欢迎登录小组论坛！希望多多留言！</marquee></pre></td>
</tr>
</table>
<table width="777" height="35" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td width="570" background="images/banner/bbs_2.gif"><table width="469" border="0" cellspacing="-2" cellpadding="-2" height="27">
<tr>
<td width="143"><font color="#666699">
<script language="JavaScript">
var today=new Date();
var month=today.getMonth()+1
if (today.getDay()==1)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期一");}
if (today.getDay()==2)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期二");}
if (today.getDay()==3)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期三");}
if (today.getDay()==4)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期四");}
if (today.getDay()==5)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期五");}
if (today.getDay()==6)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期六");}
if (today.getDay()==0)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期日");}
</script>
</font></td>
<td width="111"><font color="#666699">
<div id="bgclock"></div>
</font></td>
<td width="27" align="center" valign="top"><img src="images/Face/icon_smile.gif" width="15" height="15"></td>
<td height="27" valign="top" width="188"> <a href="./post.asp"><font size="2"></font></a> [ <%=session("UserName")%> ]
<script language="JavaScript">
var today=new Date()
if (today.getHours()>=7&&today.getHours()<13)
{document.write ("上午好！")}
else
{if (today.getHours()>=13 &&today.getHours()<18)
{document.write("下午好！")}
else
{document.write("晚上好！")}
}
</script>
</td>
</tr>
</table></td>
<td width="205"><img src="images/banner/bbs_3.gif" width="200" height="35" border="0" usemap="#Map" href="./newtopic.asp"></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="56,7,155,26" href="newtopic.asp">
</map>
<table width="769" height="358" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td height="381" width="769" valign="top" align="right">
<table width="771" border="0" cellspacing="-2" cellpadding="-2" height="10">
<tr>
<td width="339" height="9"> </td>
<td width="432" height="9"> </td>
</tr>
</table>
<table width="634" align="center">
<tr>
<td width="150" height="326">
<div align="center"><img src="images/delreply.gif" width="107" height="249"></div>
</td>
<td width="563" height="326">
<form ACTION="delreply.asp" METHOD="POST" name="form1">
<table width="504" background="images/guestaddbg.gif" height="309" >
<tr>
<td colspan="5" height="34"> </td>
</tr>
<tr>
<td width="83" height="27">
<div align="right"><b><font color="#336699">原主题：</font></b></div>
</td>
<td colspan="4" height="27"><font color="#336699"></font>
<input type="text" name="topicID" size="47" value="<%=session("topic")%>" readonly="yes">
</td>
</tr>
<tr>
<td width="83" height="27">
<div align="right"><b><font color="#336699">姓名：</font></b></div>
</td>
<td width="196" height="27">
<input type="text" name="author" maxlength="50" size="24" value="<%=rsreply("Author")%>" disabled=".t.">
<font color="#00CCFF">*</font> </td>
<td width="43" height="27">
<div align="center"><b><font color="#336699">OICQ：</font></b></div>
</td>
<td colspan="2" height="27" width="162">
<input type="text" name="oicq" size="13" maxlength="10" value="<%=rsreply("Oicq")%>" disabled=".t.">
</td>
</tr>
<tr>
<td width="83" height="27">
<div align="right"><b><font color="#336699">Email：</font></b></div>
</td>
<td height="27" width="196">
<input type="text" name="email" size="24" maxlength="50" value="<%=rsreply("Email")%>" disabled=".t.">
<input type="hidden" name="homepage" value="#">
</td>
<td height="27" width="43">
<div align="center"><b><font color="#336699">表情：</font></b></div>
</td>
<td colspan="2" height="27" width="162">
<select name="face" disabled=".t.">
<option value="00.gif">正常</option>
<option value="01.gif">微笑</option>
<option value="02.gif">愤慨</option>
<option value="03.gif">伤心</option>
<option value="04.gif">唱歌</option>
<option value="05.gif">大哭</option>
<option value="06.gif">OK!</option>
<option value="07.gif">惊喜</option>
<option value="08.gif">发火</option>
<option value="09.gif">害怕</option>
<option value="10.gif">不屑一顾</option>
<option value="11.gif">伤脑筋</option>
<option value="12.gif">气得说不出话</option>
<%
While (NOT rsreply.EOF)
%>
<option value="<%=rsreply("Face")%>" ><%=rsreply("Face")%></option>
<%
rsreply.MoveNext()
Wend
If (rsreply.CursorType > 0) Then
rsreply.MoveFirst
Else
rsreply.Requery
End If
%>
</select>
</td>
</tr>
<tr>
<td width="83" height="57">
<div align="right"><b><font color="#336699">内容：</font></b></div>
</td>
<td colspan="4">
<textarea name="content" cols="47" rows="5" readonly><%=rsreply("Content")%></textarea>
<font color="#336699"> <font color="#00CCFF">*</font> </font></td>
</tr>
<tr>
<td width="83" height="35">
<div align="center"></div>
</td>
<td colspan="4" height="35">
<input type="submit" name="Button" value="确定删除"
style="background-color:RGB(181,218,255)">
<input type="button" name="Button1" value="返回" style="background-color:RGB(181,218,255)" onClick="history.back()">
</td>
</tr>
<tr>
<td colspan="5" height="10"> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="777" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td background="images/BACK.GIF"> <div align="center">本站请用IE5.0或以上版本浏览，800*600为最佳效果 <br>
</div> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -