?? hfly.asp
字號:
<%Response.Expires =0%>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
'Response.Write("對不起，快狗留言本暫時關(guān)閉，給您帶來的不便我們表示報歉！")
'Response.End
siteid=request("siteid")
id=request("id")
if siteid="" or id="" then
conn.close
call disp_error("數(shù)據(jù)傳送出錯，請返回重試！","")
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from user_letter_table where siteid="&siteid&" and id="&id&" order by rq desc,sj desc",conn,1,1
if rs.recordcount<=0 then
rs.close
conn.close
response.write("<font color=#ff0000 size=+1><center>對不起，該留言已經(jīng)被刪除，窗口2秒后自動關(guān)閉！</center></font>")
response.write("<script language=""javascript"">")
response.write("setTimeout('window.close()',2000);")
response.write("</script>")
response.end
end if
btvalue="RE:"&rs("bt")
%>
<html>
<head>
<title>回復(fù)留言</title>
<meta http-equiv="expires" content="no-cache">
<meta http-equiv="expires" content="wed,26 feb 1997 08:21:57 gmt">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="JavaScript">
<!--
function checkform()
{
if (form.xm.value=="") {
alert("留言人不能為空！");
form.xm.focus();
return false;
}
if (form.bt.value=="") {
alert("請留下您的留言標(biāo)題！");
form.bt.focus();
return false;
}
if (form.oicq.value!=""){
var checkOK="0123456789";
var checkStr=form.oicq.value;
var allValid = true;
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
}
if (!allValid){
alert("請輸入正確的OICQ號碼！");
form.oicq.focus();
return false;
}
}
if(form.lr.value=="")
{
alert("請輸入留言內(nèi)容！");
form.lr.focus();
return false;
}
if (form.lr.value.length>400){
alert("留言內(nèi)容太長，請勿超過200個漢字！");
form.lr.focus();
return false;
}
form.ok.disabled=true;
return true;
}
//-->
</script>
</head>
<body bgcolor="#ffffff" leftmargin="2" topmargin="2" marginwidth="2" marginheight="2">
<div align="center">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<td width="562">
<p align="center"><br>
<img src="../qqpic/ly.gif" WIDTH="36" HEIGHT="36"> <font size="3" color="#ff0000"><b>回復(fù)留言</b></font>
</td>
<tr>
<td width="562" valign="top" align="right">
<table width="562" border="0" cellspacing="0" cellpadding="0" height="1">
<tr>
<td width="22" height="1">
<img height="16" src="../qqpic/td_left_top.gif"></td>
<td width="576" background="../qqpic/td_bg_top.gif" height="1"> </td>
<td width="21" height="1">
<img height="16" src="../qqpic/td_right_top.gif"></td>
</tr>
<tr>
<td width="22" background="../qqpic/td_bg_left.gif" height="58"> </td>
<td width="576" valign="top" height="58">
<table border="0" cellpadding="2" cellspacing="2" width="600">
<tr>
<td width="50" bgcolor="<%=color%>"><%=rs("id")%>
<%if rs("rq")=date() then%>
<img src="../qqpic/newm.gif" WIDTH="28" HEIGHT="11">
<%end if%>
</td>
<td width="174" bgcolor="#f0f0f0">姓名：<%=server.HTMLEncode(rs("xm"))%><img src="<%="../qqpic/bq/bq"&rs("bq")&".gif"%>">
<td width="148" bgcolor="#f0f0f0">日期：<%=rs("rq")&" "&rs("sj")%></td>
</tr>
<tr>
<td width="70" bgcolor="#f0f0f0">標(biāo)題：</td>
<td width="174" bgcolor="#f0f0f0"><%=server.HTMLEncode(rs("bt"))%></td>
<td width="148" bgcolor="#f0f0f0">
<%
if trim(rs("dzyj"))<>"" then
Response.Write("郵件："&rs("dzyj"))
end if
%>
</td>
</tr>
<tr>
<td width="70" bgcolor="#f0f0f0">內(nèi)容：</td>
<%if trim(rs("lr"))<>"" then%>
<td width="442" colspan="2" bgcolor="#f0f0f0"><%=server.htmlencode(rs("lr"))%></td>
<%else%>
<td width="442" bgcolor="#f0f0f0">無</td>
<%end if%>
</tr>
<tr>
<td colspan="4" width="100%"><hr></td>
</tr>
<%
rs.close
set rs=server.createobject("adodb.recordset")
rs.Open "select * from user_letter_table where siteid="&siteid&" and hfid="&id&" order by rq desc,sj desc",conn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
%>
<tr>
<td colspan="3" bgcolor="#f0f0f0"><img src="<%="../qqpic/bq/bq"&rs("bq")&".gif"%>"><%=server.HTMLEncode(rs("bt"))%>(回復(fù)人：<b><%=server.HTMLEncode(rs("xm"))%></b>
<%if trim(rs("dzyj"))<>"" then%>
郵件：<b><%=server.HTMLEncode(rs("dzyj"))%></b>
<%end if%>
<%=rs("rq")&" "&rs("sj")%>)
<%if rs("rq")=date() then%>
<img src="../qqpic/newm.gif" WIDTH="28" HEIGHT="11">
<%end if%>
</td>
</tr>
<tr>
<%if trim(rs("lr"))<>"" then%>
<td colspan="3" width="442" bgcolor="#ffffff"><%=server.htmlencode(rs("lr"))%></td>
<%else%>
<td colspan="3" width="442" bgcolor="#ffffff">無</td>
<%end if%>
</tr>
<%
rs.movenext
loop
end if
rs.close
conn.close
%>
<tr>
<td colspan="4" width="576">
<form method="post" action="hfly_write.asp?siteid=<%=siteid%>&id=<%=id%>" onsubmit="return checkform()" name="form">
<table width="588" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td height="26" width="100">
<div align="left"><span class="nine"><IMG height=9 src="../qqpic/blue.gif" width=9>
留言人：</span></div>
</td>
<td height="26" width="209" >
<div align="left">
<input width="50" name='xm' size="25" maxlength=10 value="<%=session("username")%>">*
</div>
</td>
<td height="26" width="71" >
<span class="nine"><IMG height=9 src="../qqpic/blue.gif" width=9>
標(biāo)題：</span>
</td>
<td height="26" width="205" >
<input width="40" name='bt' size="25" maxlength=25 value="<%=server.htmlencode(btvalue)%>">*
</td>
</tr>
<tr>
<td height="27" width="100" >
<div align="left"><IMG height=9 src="../qqpic/blue.gif" width=9>
電子郵件：</div>
</td>
<td height="27" width="209" >
<div align="left">
<input width="40" name='dzyj' size="25" maxlength=25>
</div>
</td>
<td height="27" width="71" >
<IMG height=9 src="../qqpic/blue.gif" width=9>
OICQ：
</td>
<td height="27" width="205" >
<input width="40" name='oicq' size="25" maxlength=9>
</td>
</tr>
<tr>
<td width="100" height="30" align="middle">
<div align="left"><IMG height=9 src="../qqpic/blue.gif" width=9>
表情： </div>
</td>
<td height="30" align="middle" width="476" colspan="3" >
<div align="left">
<input type="radio" name="bq" value="1" checked>
<IMG height=15 src="../qqpic/bq/bq1.gif" width=15>
<input type="radio" name="bq" value="2">
<IMG height=19 src="../qqpic/bq/bq2.gif" width=19>
<input type="radio" name="bq" value="3">
<IMG height=15 src="../qqpic/bq/bq3.gif" width=16>
<input type="radio" name="bq" value="4">
<IMG height=15 src="../qqpic/bq/bq4.gif" width=15>
<input type="radio" name="bq" value="5">
<IMG height=15 src="../qqpic/bq/bq5.gif" width=15>
<input type="radio" name="bq" value="6">
<IMG height=23 src="../qqpic/bq/bq6.gif" width=22>
</div>
<div align="left">
<input type="radio" name="bq" value="7">
<IMG height=15 src="../qqpic/bq/bq7.gif" width=15>
<input type="radio" name="bq" value="8">
<IMG height=16 src="../qqpic/bq/bq8.gif" width=16>
<input type="radio" name="bq" value="9">
<IMG height=15 src="../qqpic/bq/bq9.gif" width=21>
<input type="radio" name="bq" value="10">
<IMG height=15 src="../qqpic/bq/bq10.gif" width=15>
<input type="radio" name="bq" value="11">
<IMG height=15 src="../qqpic/bq/bq11.gif" width=15>
<input type="radio" name="bq" value="12">
<IMG height=16 src="../qqpic/bq/bq12.gif" width=16>
</div>
<div align="left">
<input type="radio" name="bq" value="13">
<IMG height=16 src="../qqpic/bq/bq13.gif" width=16>
<input type="radio" name="bq" value="14">
<IMG height=16 src="../qqpic/bq/bq14.gif" width=16>
<input type="radio" name="bq" value="15">
<IMG height=16 src="../qqpic/bq/bq15.gif" width=16>
<input type="radio" name="bq" value="16">
<IMG height=16 src="../qqpic/bq/bq16.gif" width=16>
<input type="radio" name="bq" value="17">
<IMG height=16 src="../qqpic/bq/bq17.gif" width=15>
<input type="radio" name="bq" value="18">
<IMG height=16 src="../qqpic/bq/bq18.gif" width=16>
</div>
</td>
</tr>
<tr>
<td align="middle" width="97">
<div align="left"><IMG height=9 src="../qqpic/blue.gif" width=9>
<font size="2">留言內(nèi)容</font>
</div>
</td>
<td colspan="3" align="left" width="485">
<TEXTAREA cols=35 name=lr rows=4 style="HEIGHT: 70px; WIDTH: 297px"></TEXTAREA>
請勿超過200個漢字
</td>
</tr>
<tr>
<td colspan="4" height="30" align="middle" width="578">
<div align="center">
<input type='submit' name='ok' value=" 提 交 " style="FONT-FAMILY: 宋體">
<input type='button' name='cancle' value=" 關(guān) 閉 " onclick="window.close()" style="FONT-FAMILY: 宋體">
</div>
</td>
</tr>
</TABLE>
</form>
</td>
</tr>
</table>
</td>
<td width="21" background="../qqpic/td_bg_right.gif" height="58"> </td>
</tr>
<tr>
<td width="22" height="1">
<img height="21" src="../qqpic/td_left_bottom.gif" width="20"></td>
<td width="576" background="../qqpic/td_bg_bottom.gif" height="1"> </td>
<td width="21" height="1">
<img height="21" src="../qqpic/td_right_bottom.gif" width="18"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -