📄 reaple_say.asp

📁 一篇不错的好论文
💻 ASP
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>留 言 回 复</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
form {margin:0;padding:0}
</style>
<link rel="stylesheet" href="css/text.css" type="text/css">
<script language=javascript src="js/reaple_say.js"></script>
</head>

<body bgcolor="F7FEF6" text="#000000">
<%
textid=request("textreapleid")
textcaption=request("textcaption")
guestpass=request("guestpass")
reaplesay=request("reaplesay")
reapledate=request("reapledate")

//取回复内容
sqlwordid="select wordid from guest where id="&textid
set rswordid=conn.execute(sqlwordid)

//如果密码和回复内容不为空
if len(guestpass)>0 and len(reaplesay)>0 then
sql="select pass from supervisor"
set rsreaple=conn.execute (sql)

if guestpass<>rsreaple("pass") then 
response.write("<script language=javascript>alert('密码错误！请重新输入！')</script>")
else

//转换留言内容，将它保持原形
reaplesay=replace(reaplesay,chr(13),"<br>")
reaplesay=replace(reaplesay," ","&nbsp;")
'reaplesay=replace(reaplesay,chr(10),"<p>")

//添加留言

sqladd="update guest set wordid='"&reaplesay&"' where id="&textid
conn.execute sqladd

//添加回复日期
sqldate="update guest set wordiddate=#"&reapledate& "# where id="&textid
conn.execute sqldate

//改mid为最大mid+1显视留言时将会放在第一条
maxid="select max(mid) as maxid from guest"
set rsmaxid=conn.execute (maxid)

sqlmaxid="update guest set mid="& rsmaxid("maxid")+1 & " where id="&textid
conn.execute sqlmaxid

'response.write sqladd
'response.write sqldate
'response.write sqlmaxid
'response.end 
response.write("<script language=javascript>window.opener.location.reload();alert('回复留言成功！');window.close();</script>")
end if
end if 
%>
<table width="370" border="0" height="220" cellspacing="0" cellpadding="1" bgcolor="70C570">
  <tr> 
    <td valign="top" width="421"> 
      <form name="form1" method="post" action="reaple_say.asp?textreapleid=<% =textid %>&textcaption=<%=textcaption%>&reapledate=<%=now()%>" onsubmit="return checksay(form1)">
        <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="F7FEF6" height="100%">
          <tr> 
            <td valign="top"> 
              <table width="100%" border="0" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed" background="images/about/bgbt.gif">
                <tr> 
                  <td height="20"><font color="#FF0000"> <font color="#FFFFFF">&nbsp;∴</font> 
                    回复主题：<%=textcaption %></font></td>
                  <td width="30" align="center"><a href="javascript:window.close();"><img src="images/del/gb1.gif" width="16" height="16" border="0" alt="取 消 回 复"></a></td>
                </tr>
              </table>
              <table width="100%" border="1" align="center" cellspacing="0" cellpadding="6" bordercolor="DCF3DB" bordercolordark="F7FEF6" class="text9">
                <tr> 
                  <td align="center"><font color="#000000">密&nbsp;&nbsp;&nbsp;码 
                    :</font> 
                    <input type="password" name="guestpass" size="20" maxlength="12" class="text">
                  </td>
                </tr>
                <tr> 
                  <td height="129" valign="top"> 
                    <textarea name="reaplesay" cols="55" class="text9" rows="7"><% if len(reaplesay)=0 then %><%response.write rswordid("wordid")%><%else%><%=reaplesay%><%end if %></textarea>
                  </td>
                </tr>
                <tr> 
                  <td align="center"> 
                    <input type="submit" name="submit" value=" 回 复 留 言 " class="text9">
                    &nbsp;&nbsp;&nbsp; 
                    <input type="reset" name="Submit2" value=" 重 新 填 写 " class="text9">
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </form>
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -