📄 reply.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn/Conn.asp"-->
<!--#include file="head.asp"-->
<%If Request.QueryString("TopicID")<>"" Then%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
SQL="Select * From view_board Where ID="&Request.QueryString("TopicID")
rs.Open SQL,Conn,1,3
%>
<html>
<head>
<title>回复留言！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="./Css/style.css" rel="stylesheet">
<script src="JS/function.asp"></script>
<script src="JS/UBBCode.asp"></script>
</head>
<script language="javascript">
function check(){
if(form1.content.value==""){
alert("回复内容不允许为空！");form1.content.focus();return;
}
form1.submit();
}
</script>
<SCRIPT language=JavaScript>
<!--
var LastCount =0;
function CountStrByte(Message,Total,Used,Remain){ //字节统计
var ByteCount = 0;
var StrValue = Message.value;
var StrLength = Message.value.length;
var MaxValue = Total.value;
if(LastCount != StrLength) { // 在此判断，减少循环次数
for (i=0;i<StrLength;i++){
ByteCount = (StrValue.charCodeAt(i)<=256) ? ByteCount + 1 : ByteCount + 2;
if (ByteCount>MaxValue) {
Message.value = StrValue.substring(0,i);
alert("留言内容最多不能超过 " +MaxValue+ " 个字节！\n注意：一个汉字为两字节。");
ByteCount = MaxValue;
break;
}
}
Used.value = ByteCount;
Remain.value = MaxValue - ByteCount;
LastCount = StrLength;
}
}
//-->
</SCRIPT>
<body onLoad="clockon()">
<%'转换UBB代码
Function UBBCodeDeal(InString)
InString1=Server.HTMLEncode(InString)
InString1=Replace(InString1,"[","<")
InString1=Replace(InString1,chr(13),"<BR>")
UBBCodeDeal=Replace(InString1,"]",">")
End Function
%>
<DIV id=toolTipLayer style="VISIBILITY: hidden; POSITION: absolute"></DIV>
<SCRIPT language=JavaScript>initToolTips(); </SCRIPT>
<table width="777" height="341" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td valign="top"><table width="100%" height="47" border="0" cellpadding="-2" cellspacing="-2" class="tableBorder">
<tr bgcolor="#9CA6C6">
<td height="8"></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td height="2"></td>
</tr>
<tr>
<td valign="top"><!--#include file="Navigate.asp"-->
<table width="100%" height="205" border="0" cellpadding="-2" cellspacing="-2" class="tableBorder">
<tr>
<td width="13" height="32" background="Images/board_left.gif"> </td>
<td width="689" background="Images/board_left.gif" style="color:#FFFFFF"> ≡ 回复留言
≡ </td>
<td width="73" background="Images/board_right.gif"> </td>
</tr>
<tr valign="top">
<td height="171" colspan="3"><table width="100%" height="129" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td valign="top">
<table width="100%" height="292" border="0" cellpadding="-2" cellspacing="-2" class="tableBorder_Top">
<tr>
<td height="5"></td>
</tr>
<tr>
<td width="236" height="263" valign="top"><div align="center">
<p>
=== 原主题留言人信息 ===<br>
<%
ID=rs("ID")
UserName=rs("UserName")
Email=rs("Email")
homepage=rs("homepage")
QQ=rs("QQ")
ICO=rs("ICO")
IP=rs("IP")
Content=rs("Content")
%>
<%=UserName%></p>
<p> <img src="Images/head/<%=ICO%>" width="60" height="60" onmouseover="toolTip('<%=UserName %>', '<%=Email%>', '<%=homepage%>', '<%=QQ%>', '<%=IP%>', '<%=CreateTime%>');"
onmouseout=toolTip(); border=0> </p>
<p>我是：<%=rs("sex")%>生</p>
<p>
<img src="Images/email.gif" alt="<%=UserName%>的Email是：" width="16" height="16"> Email：<%=Email%></p>
<p>
<img src="Images/oicq.gif" alt="<%=UserName%>的QQ号码是：" width="16" height="16"> QQ:<%=QQ%></p>
<p>
<img src="Images/ip.gif" alt="IP为：" width="16" height="15"> IP：<%=IP%></p>
</div></td>
<td width="1" background="Images/line.gif"></td>
<td width="532" valign="top">
<form action="Reply_deal.asp" method="post" name="form1">
<table width="100%" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td width="14%" height="90" align="center">原主题：</td>
<td colspan="2" width="86%" style="padding-left:10px"><%=UBBCodeDeal(Content)%></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" style="padding-left:10px"><hr size="1" noshade></td>
</tr>
<tr>
<td height="145" align="center">回复留言：</td>
<td><textarea name="content" cols="70" rows="9" class="wenbenkuang" id="content"
onkeydown=CountStrByte(this.form.content,this.form.total,this.form.used,this.form.remain);
onkeyup=CountStrByte(this.form.content,this.form.total,this.form.used,this.form.remain);></textarea></td>
</tr>
<tr>
<td height="33" align="center" style="padding-left:10px"><p>字节：</p> </td>
<td style="padding-left:10px" class="word_grey">最多允许
<input name="total" type="text" disabled class="noborder" id="total" value="1000" size="4">
个字节 已用字节：
<input name="used" type="text" disabled class="noborder" id="used" value="0" size="4">
剩余字节：
<input name="remain" type="text" disabled class="noborder" id="remain" value="1000" size="4">
</td>
</tr>
<tr>
<td height="34" align="center" style="padding-left:10px"> </td>
<td class="word_grey"><input name="Button" type="button" class="btn_grey" value="提交回复" onClick="check()">
<input name="Submit2" type="reset" class="btn_grey" value="重写回复">
<input name="HTopicID" type="hidden" value="<%=ID%>">
</td></tr>
</table>
</form>
</td>
</tr>
<tr>
<td valign="top"></td>
<td background="Images/line.gif"></td>
<td> </td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="777" height="89" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td align="center"><div align="center" style="color:#666666 ">本站请用IE5.0或以上版本浏览，1024*768为最佳效果<br>
CopyRight © 2005 长春市明日实业有限公司</div></td>
</tr>
</table>
</body>
</html>
<%
rs.close()
Set rs=Nothing
End If
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -