<% data_path="../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<%

	if issession=0 then
	 if request.Cookies("Yxmemberid")="" then
    response.write "<script language='javascript'>"
	response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
	response.end
    end if
	username=Replace_Text(request.Cookies("Yxmember"))
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	gradeid=Replace_Text(request.Cookies("gradeid"))
	yxflag=Replace_Text(request.Cookies("yxflag"))
	else
	if session("id")="" then
    response.write "<script language='javascript'>"
	response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
	response.end
    end if
	username=session("user")
	gsid=session("id")
	gradeid=session("gradeid")
	yxflag=session("yxflag")
	end if 
 

sql="select * from Websen_corporation where id="&gsid&""
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if  rs.eof or rs.bof then 
response.write"<SCRIPT language=JavaScript>alert('用户不存在！！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end 
else
qyjj=rs("qyjj")
end if 
 
Function changechr(fString)
If Not IsNull(fString) Then
fString = trim(fString)
 fString = replace(fString, "--", "——") 
fString = replace(fString, "%20", "")   
fString = replace(fString, "==", "")     
 fString = Replace(fString, CHR(32), " ")		 
fString = Replace(fString, CHR(9), " ")			 
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")	 
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
changechr = fString
End If
End Function
if weboff_on="" then
weboff_on=0
end if
ci=cint(weboff_on)

if ci=2 then
response.Write("<table border=1 bgcolor=#E7E7E7 bordercolor=#DDDDDD align=center cellpadding=0 cellspacing=0 width=""778""><tr><td>"&changechr(Stopreadme)&"</td></tr></table>")
response.End()
elseif ci=1 then
response.Write("<table border=1 bgcolor=#E7E7E7 bordercolor=#DDDDDD align=center cellpadding=0 cellspacing=0 width=""778""><tr><td>"&changechr(Stopreadme)&"</td></tr></table>")

else
response.Write("")
end if


%>
<link href="css/css.css" rel="stylesheet" type="text/css">
	  <script language="javascript">
	  function isokl()
	  {
      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(images/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
vAlign=top align=middle>
 <%
	  action=Trim(Request("action"))
	 if action="delMe" then 
	   conn.execute("delete from Websen_getprice Where id="&Replace_Text(Request("ID"))&"")
 	 end if
    Set rsmessage=Server.CreateObject("adodb.recordset")
	Sqlmessage="Select * from Websen_getprice Where mycid="&gsid&" and sendcid=0 "
		rsmessage.open sqlmessage,conn,1,1
		if not  rsmessage.eof then 
		m=1

   %>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
  <TD background=images/bodybg.gif colSpan=3 height=22>
	<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
	  <TBODY>
		<TR>
		  <TD width="3%"><IMG height=22   src="images/bodyleft.gif" width=10></TD>
		  <TD class=index_title width="64%" style="color:red;">管理员留言<IMG height=4 	  src="images/point2.gif" width=7 align=absMiddle></TD>
		  <TD align=right width="33%"><IMG height=22   src="images/bodyright.gif" width=10></TD>
		</TR>
	  </TBODY>
  </TABLE></TD>
</TR>
<TR>
  <TD width=1 bgColor=#8abaff><IMG height=1 src="images/shim.gif" width=1></TD>
  <TD align=middle width="100%">
  <table width="100%"  border="0" cellspacing="0" cellpadding="5">
	<%do while not rsmessage.eof %>
	<tr>
	  <td width="90%"  style="word-break:break-all;line-height:18px;">◆<%=m%>.<%=rsmessage("content")%></td>
 	  <td width="10%" valign="top"><a href="?action=delMe&id=<%=rsmessage("id")%>" onclick="return isokl();">删除</a></td>
	</tr>
	<tr><td  colspan="2"  bgcolor="#EAEAEA" height="1" ></td></tr>
   <%
   m=m+1
	 rsmessage.movenext
	 if rsmessage.eof then exit do
    loop
   %>
  </table>
   </TD>
  <TD width=1 bgColor=#8abaff><IMG height=1 src="images/shim.gif" width=1></TD>
</TR>
<TR bgColor=#8abaff>
  <TD colSpan=3 height=1><IMG height=1 src="images/shim.gif" width=1></TD>
</TR>
</TBODY>
</TABLE> 
 <%
    end if
	rsmessage.close
	set rsmessage=nothing
 %>  <BR>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD background=images/bodybg.gif colSpan=3 height=22>
  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
	<TBODY>
	<TR>
	  <TD width="3%"><IMG height=22 	  src="images/bodyleft.gif" width=10></TD>
	  <TD class=index_title width="64%">我的状态 <IMG height=4 	  src="images/point2.gif" width=7 align=absMiddle></TD>
	  <TD align=right width="33%"><IMG height=22 	  src="images/bodyright.gif" width=10></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width=1 bgColor=#8abaff><IMG height=1 src="images/shim.gif" width=1></TD>
<TD align=middle width=568><BR>
  <TABLE cellSpacing=0 cellPadding=2 width="96%" border=0>
	<TBODY>
	<TR>
	 <TD class="C lh15"><IMG height=13 	  src="images/star.gif" width=14 align=absMiddle> 
	 <A  href="tradeinfo/edit.asp"><STRONG>供求信息</STRONG></A> - 您已发布<STRONG>
	 <FONT 	  color=#ff0000>
 <%
	sql="select count(info_id) from Websen_Info where gsid="&gsid&" and flag=1"
	set totle=conn.execute(sql)
	totle2=totle(0)
	response.write""&totle2&""
	totle.close
	set totle=nothing
%></FONT></STRONG>条供求信息，如要发布新的供求信息，请 <IMG   height=9 src="images/indexpoint.gif" width=5> 
<A 	  href="tradeinfo/add_info.asp">点此发布</A> 
			  <%if yxflag=1 then%>
			  <br> <br>
			  <img src="images/index_line.gif" width="520" height="1"><br> <br>
	  <IMG height=13 	  src="images/star.gif" width=14 align=absMiddle> 
	  <A 	  href="productshow/edit.asp"><STRONG>产品信息</STRONG></A> - 您已发布<STRONG>
	  <FONT 	  color=#ff0000>
	  <%
	sql="select count(id) from Websen_productshow where gsid="&gsid&" and flag=1"
	set totle=conn.execute(sql)
	totle2=totle(0)
	response.write""&totle2&""
	totle.close
	set totle=nothing
%></FONT></STRONG>条产品信息，如要发布新的产品信息，请  <IMG 
	  height=9 src="images/indexpoint.gif" width=5> <A 
	  href="productshow/add_product.asp">点此发布</A><br> 
			  <br>
  <img src="images/index_line.gif" width="520" height="1"><br><br>
		<IMG height=13 	  src="images/star.gif" width=14 align=absMiddle>
		 <a href="javascript:win=window.open('../help/trust_score.html','contact','width=550,height=450,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();"><STRONG>商务指数</strong></a><font color=red><b> <%=rs("trust_score")%> </b></font>分，其中:
		<table width="98%"  border="0" align="center" cellpadding="5" cellspacing="5">
		  <tr>
			<td width="58%">·<A 
href="bizre/index.asp">身份认证</A>： <font color=red>10</font> 分，
<%
sql="select begindate from Websen_corporation where id="&gsid&""
set rs=conn.execute(sql) 
response.write""&FormatDate(rs("begindate"),1)&""
%>通过认证<A href="trust/index.asp"></A></td>
			<td width="42%">·<a href="bizre/index.asp">证书荣誉</a>：
 <%
   '对税务登记证或产品类证书或经营许可证类证书或其他证书:
	 set rszz=server.CreateObject("adodb.recordset")
	sqlzz="select * from Websen_bizre where sh=1 and typeid=3 and  gsid="&gsid
	rszz.open sqlzz,conn,1,1
	if rszz.eof then
	shuiwu=0
	end if
	if not rszz.eof then
	shuiwu=5
	set rszz=nothing
	end if
	'^^^^^^^^
	
	'经营许可证类证书
	set rsz2=server.CreateObject("adodb.recordset")
	sqlz2="select count(*) as ztotal from  Websen_bizre where sh=1 and typeid =1 and gsid="&gsid
	rsz2.open sqlz2,conn,1,1
	if rsz2.eof then
	jinying=0
	end if
	if not rsz2.eof then
	jinying=rsz2("ztotal")*2
	if jinying>10 then
	jinying=10
	end if
	set rsz2=nothing
	end if
	
	'^^^^^^^^
	
	
	'产品类证书
	set rsz3=server.CreateObject("adodb.recordset")
	sqlz3="select count(*) as ztotal from  Websen_bizre where sh=1 and typeid =2 and gsid="&gsid
	rsz3.open sqlz3,conn,1,1
	if rsz3.eof then
	chanpin=0
	end if
	if not rsz3.eof then
	chanpin=rsz3("ztotal")*2
	
	if chanpin>10 then
	chanpin=10
	end if
	set rsz3=nothing
	end if
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	
	'其他证书
	set rsz4=server.CreateObject("adodb.recordset")
	sqlz4="select count(*) as ztotal from  Websen_bizre where sh=1 and typeid =4 and gsid="&gsid
	rsz4.open sqlz4,conn,1,1
	if rsz4.eof then
	qita=0
	end if
	if not rsz4.eof then
	qita=rsz4("ztotal")*2
	if qita>10 then
	qita=10
	end if
	set rsz4=nothing
	end if
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^								
 %><strong><font color="red"><%=(jinying+chanpin+shuiwu+qita)%></font></strong>分
，请 <img   height=9 src="images/indexpoint.gif" width=5> 
<a href="bizre/index.asp">立即查看</a></td>
		  </tr>
		  <tr>
			<td>·<a href="bizre/index.asp">经 验 值</a>：<% '网盛通使用年限:
	set rsc=server.CreateObject("adodb.recordset")
	sqlc="select  BeginDate from Websen_corporation where id="&gsid
	rsc.open sqlc,conn,1,1
	if rsc.eof then
	jingnian=1
	end if
	if not rsc.eof then
	jingnian=cint(datediff("d",rsc("BeginDate"),date())/365)+1
	
	if datediff("d",rsc("BeginDate"),date())>365 then '从第 2 年开始，加 20 分 / 年
	nian=cint(datediff("d",rsc("BeginDate"),date())/365)*20
	else
	nian=0
	end if
	set rsc=nothing
	end if
%>
 <strong><font color="red"><%=nian%></font></strong>分，使用服务第<font color="red"><%=jingnian%></font>年</td>
			<td>·<a href="trust/index.asp">会员评价</a>：
			 <%'执行加分的操作:
	haopin=0
	set rsjj=server.CreateObject("adodb.recordset")
	sqljj="select * from Websen_trustadv where abs(pass)=1 and type='好评' and bprid="&gsid
	rsjj.open sqljj,conn,1,1
	if rsjj.eof then
	haopin=0
	end if
	if not rsjj.eof then
	do while not rsjj.eof 
	haopin=haopin+1
	 rsjj.movenext
	loop
	 set rsjj=nothing
	end if
	'^^^^^^^^^^^^^^^^^^^^^^^^减分^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	pipin=0
	set rspp=server.CreateObject("adodb.recordset")
	sqlpp="select * from Websen_trustadv where abs(pass)=1 and type='批评' and bprid="&gsid
	rspp.open sqlpp,conn,1,1
	if rspp.eof then
	pipin=0
	end if
	if not rspp.eof then
	do while not rspp.eof 
	pipin=pipin-1
	
	rspp.movenext 
	loop
	set rspp=nothing
	end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%><strong><font color="red"><%=haopin+pipin%></font></strong>分，请
 <img 	  height=9 src="images/indexpoint.gif" width=5>
  <a href="trust/index.asp">立即查看</a></td>
		  </tr>
		  
		  
		  
	<tr>
			<td>·<a href="bizre/index.asp">积 分 值</a>：<% 
	set rsc=server.CreateObject("adodb.recordset")
	sqlc="select  mark from Websen_corporation where id="&gsid
	rsc.open sqlc,conn,1,1
	if rsc.eof then
	jingnian=1
	end if
	if not rsc.eof then
	mark=rsc("mark")
	else
	mark=0
	end if
	set rsc=nothing
	
%>
 <strong><font color="red"><%=mark%></font></strong>分,<a href="bizre/index.asp">立即查看</a></td>
			
		  </tr>	  		  
		</table>
		<%end if%>
<%if qyjj<>"" then%>
<%else%>
<br> <br>
  <img src="images/index_line.gif" width="520" height="1"><br>
			  <br>
		<IMG height=13 
	  src="images/star.gif" width=14 align=absMiddle>
	   <A 	  href="corporation/company_edit.asp"><STRONG>公司介绍</STRONG></A> - 您尚未发布您的公司介绍，请尽快发布，请 
			  <IMG 	  height=9 src="images/indexpoint.gif" width=5>
			   <A 	  href="corporation/company_edit.asp">点此发布</A>
			<%end if%>				  </TD>
		</TR></TBODY></TABLE><BR> <br>
<img src="images/index_line.gif" width="520" height="1"><br><br>
<table width="94%" border="0" cellspacing="0" cellpadding="2">
<tr>
  <td class="C lh15">
	  <img src="images/star.gif" width="14" height="13" align="absmiddle">
	  <a href="myemail/index.asp"><strong>订阅商机快递</strong></a>
	  - 您还没有订阅任何商机，请 <img src="images/indexpoint.gif" width="5" height="9">
	  <a href="myemail/orderbegin.asp">立即订阅<br>
	  </a>&nbsp;&nbsp;&nbsp; 使用订阅功能，您将在第一时间了解最新商机！     
	         </td>
</tr>
</table>
  <br></TD>
<TD width=1 bgColor=#8abaff><IMG height=1 
src="images/shim.gif" width=1></TD></TR>
<TR bgColor=#8abaff>
<TD colSpan=3 height=1><IMG height=1 src="images/shim.gif" 
width=1></TD></TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD background=images/bodybg.gif colSpan=3 height=22>
  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
	<TBODY>
	<TR>
	  <TD width="3%"><IMG height=22 
	  src="images/bodyleft.gif" width=10></TD>
	  <TD class=index_title width="64%">服务专区 <IMG height=4 
	  src="images/point2.gif" width=7 align=absMiddle></TD>
	  <TD align=right width="33%"><IMG height=22 
	  src="images/bodyright.gif" 
width=10></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width=1 bgColor=#8abaff><IMG height=1 
src="images/shim.gif" width=1></TD>
<TD align=middle width=568><BR>
 
<table width="94%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
	<td colspan="2" class="lh15 c"><img src="images/star.gif" width="14" height="13" align="absmiddle">
	  <strong>会员类型</strong>
	  - 您当前的会员类型是---【
	  <font color="red">
 <%
	   
	set rsg=server.CreateObject("adodb.recordset")
	sqlg="select gradename from Websen_vipgrade where roleid="&gradeid
	rsg.open sqlg,conn,1,1
	if not rsg.eof then 
	response.Write(rsg("gradename"))	 
	rsg.close
	end if
   %>
	  </font>】
	  <div align=right> <a href="contrast.asp"></a></div></td>
	</tr>
</table>
<br>   <img src="images/index_line.gif" width="520" height="1"><br>
<br>		  
<table width="94%" border="0" cellspacing="2" cellpadding="2">
<tr> 
	  <td class="C" colspan="2" align="center"> 服务热线：<font color="ff6600"><b><%=hottel%></b></font>  </td>
	</tr>
</table>
<br> <img src="images/index_line.gif" width="520" height="1"><br> 
 
<br>
   <BR>
  <TABLE cellSpacing=2 cellPadding=2 width="94%" border=0>
	<TBODY>
	<TR>
			<TD class=C width="47%">·<A 	  href="../feedback/"   target=_blank>功能使用上的问题，点此询问</A></TD>
			<TD class=C>·<A 	  href="../feedback/"  target=_blank>贸易中遇到的问题，点此询问</A></TD>
		</TR></TBODY></TABLE><BR></TD>
<TD width=1 bgColor=#8abaff><IMG height=1 
src="images/shim.gif" width=1></TD></TR>
<TR bgColor=#8abaff>
<TD colSpan=3 height=1><IMG height=1 src="images/shim.gif" 
width=1></TD></TR></TBODY></TABLE>    </TD></TR>
</TABLE>





