readmessage1.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
     call checkuser("ly")
	 %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
function suredel()
{
 var i=confirm("你确定要删除吗?");
if(i)
{
return true ;
}
else
{
return false;
}
 }
 </script>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="15%"><IMG height=32 src="../images/myoutbox.gif" 
            border=0></TD>
              <TD width="85%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>
      <%
 id=Replace_Text(request("id"))
 
sql="select Yixiang_getprice1.*,wygkcn_corporation.* from Yixiang_getprice1,wygkcn_corporation where Yixiang_getprice1.id="&id&" and wygkcn_corporation.id=Yixiang_getprice1.mycid  and wygkcn_corporation.flag=1"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<p align='center'>对不起，没有您要查询的信息</p>" 
else
requestinfo=rs("requestinfo")
%>
         <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
          <TBODY>
        <TR>
          <TD vAlign=top align=middle>
            <TABLE class=fbg1 width="100%" board="0">
          <TBODY>
            <TR> 
              <TD> <DIV id=nav><strong><font color="#CC3300">我发给</font>
 			  <%
			  if rs("flag")=1 then
			  if is2weburl=1 then
 			  %>
	  		  <a href="http://<%=rs("user")%>.<%=WebUrl1%>"  target="_blank"><%=rs("qymc")%></a>
 			   <%else%>
 				 <a href="<%=HOPE_InstallDir%>vipcom/<%=rs("user")%>"  target="_blank"><%=rs("qymc")%></a>
 			  <%
			  end if
			  else
			  %>
 		 	  <a href="<%=HOPE_InstallDir%>ptcom/<%=rs("user")%>.html"  target="_blank"><%=rs("qymc")%></a>
 			  <%end if%>
 			  <font color="#CC3300">的留言 　</font></strong></DIV></TD>
            </TR>
          </TBODY>
        </TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD bgColor=#cccccc>
                  <TABLE cellSpacing=1 cellPadding=5 width="100%" align=center 
                  border=0>
                  <TBODY>
                    <TR> 
                      <TD bgcolor="#e8f4ff"><B><font color="#CC3300">标题:</font> 
                        </B><%=rs("title")%></TD>
                      <TD bgcolor="#e8f4ff"><B><font color="#CC3300">时间:</font></B><%=rs("datetime")%></TD>
                    </TR>
                    <TR bgColor=#FFFFFF> 
                      <TD  colSpan=2 class=C   style="LINE-HEIGHT: 150%;word-break:break-all"><%=rs("content")%> 
                        <P>
						<%if requestinfo<>"" then response.write"我公司需要进一步了解的信息："&requestinfo&"。<BR><BR>"%>
						<%if rs("checkdate")=true then response.write"需对方公司在"&rs("limitedtime")&"日前答复！<BR><BR>"
						if rs("needtrust")=true then response.write"已要求对方公司提供会员档案<BR><BR>"
						if rs("sendcontact")=true then response.write"已发送了联系方式给对方公司"%></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                      <TD align=middle><IMG height=13 
      src="../images/icon_go_gray.gif" width=17 align=absMiddle> <A  href="delsend.asp?id=<%=id%>"  onClick="return suredel()">删除</A>&nbsp;&nbsp;<a href="#" onClick="javascript:history.back(-1);">返回</a></TD>
                  </TR>
              <TR>
        <TD  width="100%"></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%end if%></TABLE>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>