<%
dim dns
dns="../"
%><!--#include file="../Common/Inc_DatConn.asp"-->
<!--#include file="../Common/Inc_Function.asp"-->
<%Dim intInfoKey
Dim rdsInfo
Dim sqlInfo
Dim sqlUpdateInfoHits
cid=RtnReplaceInt(request("cid"),0)
set crs = Server.CreateObject("ADODB.Recordset")
sqlInfo = "Select * From Dat_Member Where State=0 and MemberKey="&cid
crs.Open sqlInfo,Conn,1,1
if not crs.eof then
sqlUpdateInfoHits = "Update Dat_Member Set showcount = showcount + 1 Where MemberKey="&cid
Conn.Execute sqlUpdateInfoHits
cbid=crs("dl")
csid=crs("xl")
sMemberType=crs("MemberType")
if cbid<>"" then
set rszh=conn.execute("select * from hyBigClass where id="&cbid&"")
if not rszh.eof then
bname=rszh("BigClassName")
end if
rszh.close
set rszh=nothing
end if
if csid<>"" then
set rszh=conn.execute("select * from hySmallClass where id="&csid&"")
if not rszh.eof then
sname=rszh("SmallClassName")
end if
rszh.close
set rszh=nothing
end if
gsm=crs("CompanyName")
%>
<%set rsxx=Server.Createobject("ADODB.Recordset")
					sqlxx="Select * From Dat_Information Where State = 1 and MemberKey="&cid&" order by InfoKey desc"
rsxx.open sqlxx,conn,1,1
rcount=rsxx.recordcount
if rsxx.eof then
xs="yes"
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><% = strSiteName%></title>
<meta name="Keywords" content="凯旋网络供求信息网" />
<meta name="Description" content="凯旋网络供求信息网" />
<link href="../imger/css.css" type="text/css" rel="stylesheet">
</head>
<body>
<!--#include file="../head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td valign="top"><center>
<table cellSpacing="0" cellPadding="0" width="100%" align="center" bgColor="#ffffff" border="0">
	<tr>
		<td  vAlign="top" bgColor="#ffffff">
		<table cellSpacing="0" cellPadding="0" width="100%" border="0">
			<tr>
				<td vAlign="top">
				<table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
					<tr>
						<td width="43">
						<img height="28" src="images/line_1.gif" width="43"></td>
						<td class="font_menu4" width="603" background="images/line_3.gif">
						<font color="#000000"><b class="btd">
						<%=gsm%></b></font></td>
						<td width="112">
						<img height="28" src="images/line_4.gif" width="112"></td>
					</tr>
				</table>
				<table cellSpacing="1" cellPadding="2" width="100%" align="center" bgColor="#eeeeee" border="0">
					<tr>
						<td class="sfont" vAlign="top" bgColor="#ffffff" height="184">
						<table cellSpacing="0" cellPadding="0" width="100%" border="0">
							<tr>
								<td height="8"></td>
							</tr>
						</table>
						<table cellSpacing="0" cellPadding="0" width="100%" border="0">
							<tr vAlign="top">
								<td height="176">
								<table borderColor="#cccccc" cellSpacing="1" cellPadding="2" width="100%" align="center" border="1">
									<tr align="middle" bgColor="#ffffff">
										<td><img border="0" src="../images/NoPic2.jpg" width="135" height="112">
							</td>
										<td bgcolor="#ffffff">
										<table borderColor="#cccccc" cellSpacing="1" cellPadding="2" width="100%" align="center" bgColor="#cccccc" border="0">
											<tr bgColor="#ffffff">
												<td align="middle" width="68" bgColor="#efefef">
												店 主:</td>
												<td width="178">
												<%if sMemberType=2 then%><%=crs("ContactMan")%>&nbsp;&nbsp;    查看<a target="_blank" href="company2.asp?cid=<%=cid%>"><font color="#0A8ECC">企业名片</font></a><%else%><%=crs("RealName")%><%end if%></td>
											</tr>
											<tr bgColor="#ffffff">
												<td width="68" bgColor="#efefef">
												信息数量:</td>
												<td width="178"><%=rcount%></td>
											</tr>
											<tr bgColor="#ffffff">
												<td width="68" bgColor="#efefef">
												创店时间:</td>
												<td width="178"><% =FormatTime(crs("CreateTime"),1)%></td>
											</tr>
											<tr bgColor="#ffffff">
												<td width="68" bgColor="#efefef">网站地址:</td>
												<td width="178"><a target="_blank" href="<%=crs("Homepage")%>"><%=crs("Homepage")%></a></td>
											</tr>
										</table>
										</td>
									</tr>
									<tr bgColor="#ffffff">
										<td colSpan="2" height="75">
										<table cellSpacing="1" cellPadding="3" width="100%" bgColor="#efefef" border="0">
											<tr>
												<td align="middle" width="8%" bgColor="#efefef" height="67">
												简<br>
												介</td>
											  <td width="92%" height="67" align="center" bgColor="#ffffff"><textarea style="border:0px none; WIDTH: 506; height:72" rows="5" readOnly name="S1" cols="40"><%=bbHTMLDecode(crs("js"))%></textarea> </td>
											</tr>
										</table>
										</td>
									</tr>
								</table>
								</td>
								<td height="176">
								<table height="100%" cellSpacing="0" cellPadding="0" width="160" align="center" border="0">
									<tr>
										<td align="middle" background="images/zone_1.gif" height="32">
										<font color="#000000"><b class="btd">
										店主公告</b></font></td>
									</tr>
									<tr>
										<td background="images/zone_3.gif">
										<table cellPadding="4" width="100%" border="0">
											<tr>
												<td class="sfont" vAlign="top" height="137">
												<textarea style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px" rows="10" readOnly cols="18" name="S2"><%=bbHTMLDecode(crs("gg"))%></textarea> 
												</td>
											</tr>
										</table>
										</td>
									</tr>
									<tr>
										<td>
										<img height="13" src="images/zone_4.gif" width="160"></td>
									</tr>
								</table>
							  </td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
				<br>
				<table cellSpacing="0" cellPadding="0" width="580" align="center" border="0">
					<tr>
						<td>
						<img height="16" src="images/zone2_1.gif" width="580"></td>
					</tr>
					<tr>
						<td align="middle" background="images/zone2_3.gif">
						本网店信息：<table class="sfont" cellSpacing="1" cellPadding="0" width="90%" border="0">
							<tr vAlign="center" align="middle" height="30">
								<td style="BORDER-RIGHT: #cdcdcd 1px solid; BORDER-BOTTOM: #e6e6e6 1px solid" noWrap background="images/line_bg.gif" width="10%">
								类型</td>
								<td style="BORDER-RIGHT: #cdcdcd 1px solid; BORDER-BOTTOM: #e6e6e6 1px solid" background="images/line_bg.gif" width="60%">
								标题</td>
								<td style="BORDER-RIGHT: #cdcdcd 1px solid; BORDER-BOTTOM: #e6e6e6 1px solid" background="images/line_bg.gif" width="9%">
								价格</td>
								<td style="BORDER-RIGHT: #cdcdcd 1px solid; BORDER-BOTTOM: #e6e6e6 1px solid" noWrap width="10%" background="images/line_bg.gif">
								有效期 <font color="#000000"><b class="btd"></b>
								</font></td>
								<td style="BORDER-RIGHT: #cdcdcd 1px solid; BORDER-BOTTOM: #e6e6e6 1px solid" background="images/line_bg.gif" width="9%">
								人气</td>
							</tr><%if xs="yes" then%>
							<tr bgColor="#f8fff8">
								<td style="BORDER-BOTTOM: #e6e6e6 1px solid" align="middle" colspan="6">
								暂时没有发布信息！</td>
							</tr>
							<%else
							do while not rsxx.eof
							xxlx3=rsxx("InfoClass")
		bt=rsxx("Topic")
		if len(bt) > 14 then
			strTopic = left(bt,13) &".."
		else
			strTopic =bt
		end if
		strjg =rsxx("jg")
		yxq=rsxx("InfoDate")
						  fbsj=FormatTime(rsxx("CreateTime"),8)
						  dqsj=DateAdd( "d" ,yxq ,fbsj)
						  sysj=DateDiff ("d",date(),dqsj)
						  if sysj<0 then
						  sysj="<font color=#808080>过期</font>"
						  else
						  sysj="<font color=#ff0000>"&sysj&"</font>&nbsp;天"
						  end if
							%>
							<tr onMouseOver="this.style.backgroundColor='#c5edfc';" onMouseOut="this.style.backgroundColor='#E6F7FF'" bgcolor="#E6F7FF">
								<td style="BORDER-BOTTOM: #e6e6e6 1px solid" align="middle" width="10%">
								<%call  gqlx(2,xxlx3)%></td>
								<td style="BORDER-BOTTOM: #e6e6e6 1px solid" align="middle" width="60%">
								<a href="../View_Info.asp?Id=<%=rsxx("InfoKey")%>" target="_blank" class="a01"><%=strTopic%></a></td>
								<td style="BORDER-BOTTOM: #e6e6e6 1px solid" align="middle" width="10%">
								<%=strjg%></td>
								<td style="BORDER-BOTTOM: #e6e6e6 1px solid" noWrap align="middle">
								<%=sysj%></td>
								<td style="BORDER-BOTTOM: #e6e6e6 1px solid" align="middle" width="9%">
								<%=rsxx("Hits")%></td>
							</tr><%
							rsxx.movenext
loop
							end if
							rsxx.close
							set rsxx=nothing%>
							</table>
 						<br></td>
					</tr>
					<tr>
						<td>
						<img height="13" src="images/zone2_4.gif" width="580"></td>
					</tr>
				</table>
				<br></td>
			</tr>
		</table>
		</td>
	</tr>
</table>
</center></td>
  </tr>
</table>
<!--#include file="../boot.asp"-->
</body>
</html><%
else
response.write"<SCRIPT language=JavaScript>alert('不存在的单位！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
crs.close
set crs=nothing
conn.close
set conn=nothing
%>
