📄 reply.asp

📁 一套很早的多用户电子商务程序
💻 ASP
字号:
<!--#include file="bkconn.asp"-->
<!--#include file="inc/char.inc"-->
<html>

<head>
<style type="text/css">
<!-
td{font-size:12px;}
body{font-size:12px;line-height:17px;}
a:link{text-decoration:none;color:#008040}
a:visited{text-decoration:none;color:#008040}
a:active{text-decoration:none}
a:hover {  color:#FF8040; text-decoration: underline}
->
</style>
<%
   dim strsql
   dim rs
   dim scontop
   dim scontent
   dim sanser
   useridtxt=request("userid")
   pagetxt=request("cpage")
   set rs=server.createobject("adodb.recordset")
   strsql="select * from book WHERE ID=" & useridtxt
   rs.open strsql,conn,1,1
   scontop=rs("contenttop")
   scontent=rs("content")
   sanser=rs("anser")


'   rs.movelast
'Do While Not rs.BOF
'    rsid=CStr(rs("id"))
'    If rsid=useridtxt Then
'       uName=rs("name")
'       uSex=rs("sex")
'       uFrom=rs("fromwhere")
'       uHomePage=rs("homepage")
'       uEmail=rs("email")
       uConTop=rs("contenttop")
       uInput=rs("content")
'       uDateandtime=rs("dateandtime")
       uAnser=rs("anser")
'       uAnsertime=rs("ansertime") 

'       rs.Movefirst
'       rs.Moveprevious
'    ELSE
'    rs.Moveprevious
'    end if
'Loop



'       rs.close
'       dataconn.close
'       set rs=nothing
'       set dataconn=nothing
%>
<title>站长回言</title>
</head>

<body background="002.gif">

<p align="center"><img src="guestbook.gif" WIDTH="283" HEIGHT="60"></p>
<div align="center"><center>

<table border="0" width="600" cellspacing="1" cellpadding="20">
  <tr>
    <td width="100%"><p align="center"><font color="#000080"><strong>　<br>
    <img src="g13.gif" WIDTH="15" HEIGHT="15"> <%
if rs("contenttop")<>"" then
   if rs("content")<>"" then
    contop=rs("contenttop")
    Response.Write contop
    else
    contop=rs("contenttop") & "<span  style='font-size: 9pt'><font color='#408080'></strong>(无内容)</span>"
    Response.Write contop
    end if
else
    contop=rs("name") & "留言说<span  style='font-size: 9pt'><font color='#408080'></strong>(无主题)</span>"
    Response.Write contop
end if
%> <br>
    </strong></font></td>
  </tr>
</table>
</center></div><div align="center"><center>

<table border="0" cellspacing="1" height="1" width="600" bgcolor="#0000FF">
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 大 名</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><%
    if rs("sex")<>"不想说" then
    name=rs("name") & "<span  style='font-size: 9pt'>(" & rs("sex") & ")</span>"
    else
    name=rs("name")
    end if
    Response.Write name  
%> </font></td>
  </tr>
<%    if rs("fromwhere")<>""  then  %>
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 来 自</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><%    display rs("fromwhere")  %> </font></td>
  </tr>
<%
    end if
    if rs("email")<>"" then
%>
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 邮 箱</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><span style="font-size: 9pt"><a href="mailto:<% display rs("email") %>"><% display rs("email") %> </a></span></font></td>
  </tr>
<%
end if
if rs("homepage")<>"" and  rs("homepage")<>"http://" then
%>
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 主 页</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><span style="font-size: 9pt"><a href="<% display rs("homepage") %>" target="_blank"><% display rs("homepage") %> </a></span></font></td>
  </tr>
<%
end if
%>
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 时 间</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><span style="font-size: 9pt"><%
    =rs("dateandtime")
%> </span></font></td>
  </tr>
<%
if rs("content")<>"" then
%>
  <tr>
    <td nowrap valign="top" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 留 言</font></td>
    <td nowrap class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><%
display rs("content")
'	Response.Write rs("content")  
	%></font></td>
  </tr>
<%
end if
if rs("anser")<>"" then%>
<%sss=cstr(rs("id"))+"abc"%>
  <tr>
    <td align="right" bgcolor="#F8EACB" width="78"><p align="center"><font color="#8080FF"><span style="font-size: 9pt">回复留言</span></font></td>
    <td valign="top" align="right" bgcolor="#FFFFFF" width="510"><p align="left"><font color="#8080FF"><span style="font-size: 9pt">[<%Response.Write rs("ansertime")%>]<br>
<%
display rs("anser")
'Response.Write rs("anser")
%>    </span></font></td>
  </tr>
<%end if%>
</table>
</center></div>

<form method="POST" action="saveup.asp?userid=<%Response.Write useridtxt%>&amp;cpage=<%Response.Write pagetxt%>" name="repleBook">
  <div align="center"><center><table border="1" cellspacing="1" height="1" width="600" bgcolor="#EACC8E" bordercolordark="#FFFFFF" bordercolorlight="#C0C0C0" bordercolor="#FFFFFF">
    <tr>
      <td nowrap width="78"><div align="center"><center><p>更改主题</td>
      <td nowrap width="514" align="center"><div align="left"><p><input type="text" name="txtcontop" size="80" style="font-size: 9pt" value="<%=htmlencode2(scontop)%>"></td>
    </tr>
    <tr align="center">
      <td nowrap width="78"><div align="center"><center><p>更改留言</td>
      <td nowrap width="514" align="center"><div align="left"><p><textarea rows="5" name="txtcontent" cols="80" style="font-size: 9pt"><%=scontent%></textarea></td>
    </tr>
    <tr align="center">
      <td nowrap width="78" bgcolor="#F1DFC7"><div align="center"><center><p><font color="#8080FF">输入修改<br>
      站长回言</font></td>
      <td nowrap width="514" align="center" bgcolor="#F1DFC7"><div align="left"><p><textarea rows="5" name="txtanser" cols="80" style="font-size: 9pt; color: rgb(128,128,255)"><%=sanser%></textarea></td>
    </tr>
  </table>
  </center></div><div align="center"><center><p class="aa"><font color="#400040">&nbsp; <input type="submit" value="确定存盘" name="cmdOk" style="font-size: 9pt">&nbsp; <input type="reset" value="恢复原样" name="cmdReset" style="font-size: 9pt">&nbsp; </font><input type="button" value="放弃返回" name="cmdExit" style="font-size: 9pt" OnClick=" history.back()"></p>
  </center></div>
</form>
<!--#include file="inc/ads.inc"-->

<p align="center">　</p>
</body>
</html>
⌨️ 快捷键说明

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