www.gusucode.com > 雨点单用户免雨点单用户免费留言板 2.0 Build 080828 > ViewPass.asp
<%@ Language=VBScript %>
<%response.buffer=false%>
<%response.expires = 0 %>
<!--#include file="conn.asp"-->
<%
if request.QueryString("action")="view" then
call remote()
id=request("id")
call isid(id)
set rs=conn.execute("select pass from [message] where id="&id)
if trim(HTMLEncode(request("pass")))<>trim(rs(0)) then call showerror("密码错误")
call closers()
set rs=conn.execute("select T_content,reply from [message] where id="&id)
call showmessage()
end if
%>
<html>
<head>
<title>查看加密留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body background="image/bg1.gif" topmargin="10">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"> </td>
</tr>
</table>
<%if request("action")<>"view" then%>
<form name="form1" method="post" action="ViewPass.asp?action=view&id=<%=request("id")%>">
<table width="300" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="333333" class="f12">
<tr bgcolor="efeff7">
<td width="100" height="26"><div align="center"> 密 码： </div></td>
<td width="200" height="26"> <input name="pass" type="password" class="input" id="pass" size="20" maxlength="30"></td>
</tr>
<tr bgcolor="efeff7">
<td height="26" colspan="2"><div align="center">
<input name="Submit" type="submit" class="button" value="查看">
</div></td>
</tr>
</table>
</form>
<%end if%>
<%sub showmessage()%>
<table width="300" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="333333" class="f12">
<tr bgcolor="efeff7">
<td width="100" height="26"><div align="center"> 留言： </div></td>
<td width="200" height="26"><%=rs(0)%></td>
</tr>
<tr bgcolor="efeff7">
<td height="26"><div align="center">回复： </div></td>
<td height="26"><%=rs(1)%></td>
</tr>
<tr bgcolor="efeff7">
<td height="26"> </td>
<td height="26"><input type="button" name="Submit2" value="关闭窗口" onclick="window.close()"></td>
</tr>
</table>
<%end sub%>