membersupplyview.asp

相对于流通企业

<!--#include file="Head.asp"-->
<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then 
  response.redirect "MemberCenter.asp"
  response.end
end if
dim NeedID,SupplyName,Remark
dim mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mAddTime,ReplyContent,ReplyTime
call SupplyInfo() 
%>
<div align="center">
  <table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
    <tr>
      <td width="200" height="300" valign="top" bgcolor="#F2F2F2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="200"><img src="Images/Mem_menu_title.gif" width="200" height="40"></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"></td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"><% =WebMenu() %>
          </td>
        </tr>
        <tr>
          <td height="30" bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td><img src="Images/Search_title.gif" width="200" height="14"></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"><%=SearchForm()%></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
      </table></td>
      <td width="4"></td>
      <td valign="top" class="AllCenter"><table width="664" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="32" align="center" bgcolor="#F4F4F4"><img src="Images/Arrow_01.gif" width="14" height="11"></td>
          <td bgcolor="#F4F4F4" class="Location"><a href="../index.asp">首页</a><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='MemberCenter.asp'>会员中心</a><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href="MemberSupply.asp">我的供应</a><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle">供应信息</td>
          </tr>
        <tr>
          <td height="4" colspan="2" bgcolor="#FFFFFF"></td>
        </tr>
      </table>
        <table width="664" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30" height="20">&nbsp;</td>
            <td>&nbsp;</td>
            <td width="30">&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td height="40" align="center"><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#D4D4D4">
              <tr>
                <td colspan="2" align="center" valign="top" bgcolor="#D4D4D4"><STRONG>供　应　详　细　信　息</STRONG></td>
                </tr>
              <tr>
                <td width="100" align="center" bgcolor="#FFFFFF">供应名称</td>
                <td width="484" bgcolor="#FFFFFF"><font color="red"><%=SupplyName%></font></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">补充说明</td>
                <td bgcolor="#FFFFFF"><%=Remark%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">联&nbsp;系&nbsp;人</td>
                <td bgcolor="#FFFFFF"><%=mLinkman%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">性　　别</td>
                <td bgcolor="#FFFFFF"><%=mSex%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">单位名称</td>
                <td bgcolor="#FFFFFF"><%=mCompany%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">地　　址</td>
                <td bgcolor="#FFFFFF"><%=mAddress%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">邮　　编</td>
                <td bgcolor="#FFFFFF"><%=mZipCode%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">电　　话</td>
                <td bgcolor="#FFFFFF"><%=mTelephone%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">传　　真</td>
                <td bgcolor="#FFFFFF"><%=mFax%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">移动电话</td>
                <td bgcolor="#FFFFFF"><%=mMobile%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">电子邮箱</td>
                <td bgcolor="#FFFFFF"><%=mEmail%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#FFFFFF">订购时间</td>
                <td bgcolor="#FFFFFF"><%=mAddTime%></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#EBEBEB">回复时间</td>
                <td bgcolor="#EBEBEB"><font color="red"><%=ReplyTime%></font></td>
              </tr>
              <tr>
                <td align="center" bgcolor="#EBEBEB">回复内容</td>
                <td bgcolor="#EBEBEB"><%=ReplyContent%></td>
              </tr>
            </table>
			</td>
            <td></td>
            <td>&nbsp;</td>
          </tr> 
          <tr>
            <td height="30"></td>
            <td align="center"><input  type="button" class="button"  onclick="javascript:window.close();"  value="关闭窗口"></td>
            <td></td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
        </table></td>
    </tr>
  </table>
</div>
<%
function WebMenu()
  response.write"<table width='160' border='0' cellspacing='0' cellpadding='0'>"
  response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
                 "<td><a href='MemberInfo.asp'>我的资料</a></td></tr>"
  response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
                 "<td><a href='MemberMessage.asp'>我的留言</a></td></tr>"
  response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
                 "<td><a href='MemberOrder.asp'>我的订单</a></td></tr>"
  response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
                 "<td><a href='MemberTalent.asp'>我的应聘</a></td></tr>"
  response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
                 "<td><a href='MemberSupply.asp'>我的供应</a></td></tr>"
  response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>" &_
                 "<td><a href='MemberLogin.asp?Action=Out'>退出登录</a></td></tr>"
  response.write"</table>"
end function

sub SupplyInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from suqun_Supply where ID="&request.QueryString("ID")
  rs.open sql,conn,1,1
  SupplyName=rs("SupplyName")
  Remark=HtmlStrReplace(rs("Remark"))
  mLinkman=rs("Linkman")
  mSex=rs("Sex")
  mCompany=rs("Company")
  mAddress=rs("Address")
  mZipCode=rs("ZipCode")
  mTelephone=rs("Telephone")
  mFax=rs("Fax")
  mMobile=rs("Mobile")
  mEmail=rs("Email")
  mAddTime=rs("AddTime")
  ReplyContent=HtmlStrReplace(rs("ReplyContent"))
  ReplyTime=rs("ReplyTime")
  rs.close
  set rs=nothing
end sub
%>
<!--#include file="Foot.asp"-->