readmessage.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">
<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="19%"><IMG height=32 src="../images/myinbox.gif" 
            border=0></TD>
          <TD width="81%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>
<%
 id=Replace_Text(request("id"))
 
 sql="select Yixiang_getprice.*,wygkcn_corporation.* from Yixiang_getprice,wygkcn_corporation where Yixiang_getprice.id="&id&" and wygkcn_corporation.id=Yixiang_getprice.sendcid   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

conn.execute"update [Yixiang_getprice] set sendflag=1 where id="&id&""
conn.execute"update [Yixiang_getprice1] set sendflag=1 where id="&rs("getprice1id")&""

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><%=rs("qymc")%> 
                  <font color="#CC3300">发给我的留言 （网上留言<%if rs("sendemail")=true then%>、电子邮件<%end if%>方式发送）</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%"><%=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"生意以诚为本！到时候请别忘了把您在"&webname&"的会员档案也一起提供给我哦！<BR><BR>"
						if rs("sendcontact")=true then 
						response.write"我公司的联系方式:<BR>联系人：<a href='mailto:"&rs("email")&"'>"&rs("name")&"</a> "&rs("ch")&"<br>电话："&rs("phone")&"<BR>" 
						if rs("fax")<>"" then response.write"传真: "&rs("fax")&"<BR>" 
						end if
						if rs("mobile")<>"" then response.write"手机: "&rs("mobile")&"<BR>"
						response.write"地址："&rs("sf")&""&rs("city")&""&rs("address")&"<BR>"
						if rs("post")<>"" then response.write"邮编："&rs("post")&"<br>"
						response.write"E-mail：<a href='mailto:"&rs("email")&"'>"&rs("email")&"</a><br>"
						response.write"公司主页："
	
	set rsmb=server.CreateObject("adodb.recordset")
	sqlmb="select  * from yixiang_vipgrade where roleid="&rs("gradeid")
	rsmb.open sqlmb,conn,1,1
	if not rsmb.eof then 
	if instr(rsmb("rolelist"),"qw")>0 then
  						
 			if is2weburl=1 then 
				HrefLike="http://"&rs("User")&"."&weburl1

			else
				 	HrefLike=WebUrlks&HOPE_InstallDir&"Vipcom/"&rs("User")
			end if
		else 
			HrefLike=WebUrlks&HOPE_InstallDir&"Ptcom/"&rs("User")&".html"
		end if	
 	
	rsmb.close
	
	end if
		 
						Response.write "<a href='"&HrefLike&"' target='_blank'>"&HrefLike&"</a>"
						Response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="&Rs("Web")&" target='_blank'>"&Rs("Web")&"</a>"
						
						%></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
			 
			 <script language="javascript">
			 
			 function checkdel()
			 {
			 
			 var i=confirm("你确定要删除吗");
			 if(i)
			 {
			 return true;
			 }
			 else
			 {
			 return false;
			 }
			 }
			 </script> 
			 			  
                      <TD align=middle> <IMG height=13 src="../images/icon_go_gray.gif" width=17 
      align=absMiddle border=0> <A href="replymessage.asp?id=<%=id%>">回复</A>&nbsp;&nbsp; 
                        <IMG height=13 
      src="../images/icon_go_gray.gif" width=17 align=absMiddle> <A 
      href="delreceive.asp?id=<%=id%>"  onClick="return checkdel()">删除</A>&nbsp;&nbsp; <IMG height=13 src="../images/icon_go_gray.gif" width=17 
      align=absMiddle> <A 
      href="../myfriend/addfriend.asp?user=<%=rs("user")%>">添加为商业伙伴</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
%>