📄 showreply.asp

📁 睿网留言版 2004 v1.0

💻 ASP

字号:

<!--#include file="conn.inc"-->

<%
dim adminmail
dim adminhomepage
dim bgcolor1
dim background1
dim bianchuang
set rs1=server.createobject("adodb.recordset")
sql1="select * from admin where id=1"
rs1.open sql1,conn,1,3
adminmail=rs1("adminemail")
bgcolor1=rs1("bgcolor1")
bianchuang=rs1("bianchuang")
background1="image/"&rs1("background1")
bianchuang=rs1("bianchuang")
rs1.close
set rs1=nothing
%>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>写留言</title>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
</head>
<%
dim rs
dim id
dim password1
dim pass
dim singlereply
id=request("id")
password1=request("password")
set rs=server.createobject("ADODB.recordset") 
rs.Open "SELECT * FROM book Where id ="&id,conn,1,3
singlereply=rs("reply")
pass=rs("replypass")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>


<body topmargin="0" background="<%=background1%>">
<table width="100%" border=0 cellspacing="1" bgcolor="<%=bianchuang%>" height="100%">        
    <tr>        
      <td width="100%" height="80" align="center" background="<%=background1%>">
<%if pass=password1 then%>
站长给你的回复是： <br>     
<% response.write singlereply %><br>
<hr size="1" color="<%=bianchuang%>">
<%response.write ("<center>")
response.write ("看完回复后请关闭本窗口！<br>")
response.write "Email:<a href=mailto:"&adminmail&">"&adminmail&"</a>"
response.write("</center>")
%>
 </td>
 </tr>

 </table>
 <% else
      response.redirect "error.asp"
     %>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -