<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
Dim intInfoKey
Dim rdsvInfo
Dim sqlInfo
Dim sqlUpdateInfoHits
intInfoKey =RtnReplaceInt(Request("id"),0)
set rdsvInfo = Server.CreateObject("ADODB.Recordset")
sqlvInfo = "Select * From Dat_Information Where State=1 and InfoKey = "&intInfoKey
rdsvInfo.Open sqlvInfo,Conn,1,1
if not rdsvInfo.eof then
bt=rdsvInfo("Topic")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=bt%> - <% =strSiteName%></title>
<meta name="Keywords" content="重庆信息网" />
<meta name="Description" content="重庆信息网" />
<link href="imger/css.css" type="text/css" rel="stylesheet">
<script language="JavaScript" src="<% =gqwebdir%>jsinfo.asp?action=addhits&id=<%=intInfoKey%>"></script>
</head>
<body>
<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td width="26%" valign="top"><table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><iframe name="login" width="172" height="110" src="common/inc_login.asp" scrolling="no" align="middle" border="0" frameborder="0" marginwidth="1" marginheight="1" target="_top">
				浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="imger/announce.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><table border="0" width="100%" cellspacing="0" cellpadding="0"><%
					Dim rdsAffiche
					Dim sqlAffiche
					Dim intAfficheCot
					Dim intAfficheCount
					Dim strAfficheSubject
          
					intAfficheCot = 5
					set rdsAffiche = Server.CreateObject("ADODB.Recordset")
					sqlAffiche = "Select * From Dat_News Where NewsClass = 1 And State = 1 Order By NewsKey Desc"
					rdsAffiche.Open sqlAffiche,Conn,1,1
					if not rdsAffiche.EOF then
					do while not rdsAffiche.EOF 
					%><tr><td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="View_News.asp?Id=<% = rdsAffiche("NewsKey")%>" target="_blank"><% = rdsAffiche("Topic")%></a></td></tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr><%intAfficheCount = intAfficheCount + 1
							if intAfficheCount > intAfficheCot then exit do
							rdsAffiche.MoveNext 
					loop
                    else
                    %>
                    <tr>
                      <td width="100%" height="22"><font color="#FF0000">&nbsp;&nbsp;没有站务公告信息</font>...</td>
                    </tr>
                    <%
                    end if
					rdsAffiche.Close
					set rdsAffiche = nothing
                    %>
                  </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="imger/trade.gif" width="172" height="37"></td>
              </tr>
              <tr>
                <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                      <%
                      Dim rdsInfo1
                      Dim sqlInfo1
                      Dim intInfoCount1
                      Dim strInfoClass1
                      Dim strTopic1
                      
                      set rdsInfo1 = Server.CreateObject("ADODB.Recordset")
                      sqlInfo1 = "Select top "&intNewInfoCot&" infokey,tj,state,infoclass,topic,pic,color,CreateTime From Dat_Information Where State = 1 order by infokey desc"
                      rdsInfo1.Open sqlInfo1,Conn,1,1
                      if not rdsInfo1.EOF then
                        do while not rdsInfo1.EOF
		xxlx3=rdsInfo1("InfoClass")
								strTopic1 =leftt(rdsInfo1("Topic"),24)
							pic=rdsInfo1("pic")
							strcolor=rdsInfo1("color")
							strsjnew=rdsInfo1("CreateTime")
							strsj1new=FormatTime(strsjnew,6)
                      %>
                        <tr> 
                          <td height="25" class="F16"><font color="#FF6600">·</font><a href="<% =gqwebdir%>View_Info.asp?Id=<% = rdsInfo1("InfoKey")%>" target="_blank" class="a01"><%if  strcolor<>""  then%><font color="#<%=strcolor%>"><% = strTopic1%></font><%else%><% = strTopic1%><%end  if%></a>
</td></tr>
						<tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
				      <%
					rdsInfo1.MoveNext
						loop
				      else
				      %>
						<tr>
						  <td width="100%" colspan="2" height="22">&nbsp;<font color="#FF0000">对不起!没有相匹配的信息</font>...</td>
						</tr>
				      <%
				      end if
					  rdsInfo1.Close
					  set rdsInfo1 = nothing
				      %>	
                      </table></td>
              </tr>
          </table></td>
        </tr>
      </table></td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="10" cellpadding="0">
          <tr>
            <td height="24" background="imger/09.gif"><span class="STYLE6">≡</span> <span class="STYLE2"><b>您的位置：</b></span><b><%
strdlid8=rdsvInfo("dl")
set rsdl8=conn.execute("select bigclassname from bigclass where id="&strdlid8&"")
if not rsdl8.eof then
strdlurl="&nbsp;<A href="&gqwebdir&"list.asp?bid="&strdlid8&" target=_blank>"&rsdl8(0)&"</a>"
Response.write strdlurl
end if
rsdl8.close
set rsdl8=nothing
strxl8=rdsvInfo("xl")
if strxl8<>"" then
set rsxl8=conn.execute("select smallClassName from smallClass where id="&strxl8&"")
if not rsxl8.eof then
strdlurl1="&nbsp;&nbsp;>>&nbsp;&nbsp;<A href="&gqwebdir&"list.asp?sid="&strxl8&" target=_blank>"&rsxl8(0)&"</a>"
Response.write strdlurl1
end if
rsxl8.close
set rsxl8=nothing
end if
%></b></td>
          </tr>
          <tr>
            <td><table cellSpacing="0" cellPadding="0" border="0">
					<tr>
					  <td width="587" height="32" background="<% =gqwebdir%>images/vxinxi.gif" align="center">
<b><span lang="en-us" class=STYLE2><%=bt%></span></b><%xxlx3=rdsvInfo("InfoClass")
		Select Case xxlx3
		Case "1"
							strInfoClass = "　<font color=#787878>[销售]</font>"
							Case "2"
								strInfoClass = "　<font color=#787878>[求购]</font>"	
							Case "3"
								strInfoClass = "　<font color=#787878>[要闻]</font>"
							Case "4"
								strInfoClass = "　<font color=#787878>[动态]</font>"
							Case "5"
								strInfoClass = "　<font color=#787878>[招聘]</font>"
							Case "6"
								strInfoClass = "　<font color=#787878>[求职]</font>"
							Case "7"
								strInfoClass = "　<font color=#787878>[展会]</font>"
							Case "8"
								strInfoClass = "　<font color=#787878>[其它]</font>"
		End Select
		Response.Write ""&strInfoClass&""%></td>
					</tr>
				</table>
				<table cellSpacing="1" cellPadding="0" width="100%" bgColor="#e6e6e6" border="0">
					<tr>
						<td bgColor="#ffffff">
<table cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="0">
            <tbody>
              <tr>
               <td vAlign="top" width="100%" align="center">
                <table width="100%" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td align="center" valign="top" width="100%"> 
                      <table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF" style="line-height:120%;letter-spacing:1px">
<tr>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="3"></td>
						</tr>             
                        <tr>
						  <td height="30" align="center" colspan="3">  
						  <%
						  fbsj=FormatTime(rdsvInfo("CreateTime"),8)
%>发布时间：<% =fbsj%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;浏览次数：<script language="JavaScript" src="<% =gqwebdir%>jsinfo.asp?action=hits&id=<%=intInfoKey%>"></script> 次</td>
						</tr><tr>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="3"></td>
						</tr><tr>
						  <td width="20%" height="18" align="right">信 誉 度：</td>
						  <td width="43%" height="18">&nbsp;
						    <%
						  strgquser=rdsvInfo("MemberKey")
						  if strgquser<>"0" then
						  set rdsvInfo1 = Server.CreateObject("ADODB.Recordset")
sqlInfo1 = "Select jb,MemberType From Dat_Member Where MemberKey= "&strgquser
rdsvInfo1.Open sqlInfo1,Conn,1,1
if not rdsvInfo1.eof then
strjb=rdsvInfo1("jb")
hyType=rdsvInfo1("MemberType")
rdsvInfo1.close
set rdsvInfo1=nothing
end if
end if
if hyType=1 then
Select Case strjb
		Case "0"
							strInfoClassa = "<font color=#0000ff>普通个人会员</font>"
							strgg="<img border=0 src="&gqwebdir&"images/jf_null.gif alt=普通个人会员><a href="&gqwebdir&"hy/company1.asp?cid="&strgquser&" target=_blank><font color=#2969AD>查看所有信息</font></a>"
				Case "-1"
							strInfoClassa = "<font color=#0000ff><b>普通个人会员</b></font>"
							strgg="<img border=0 src="&gqwebdir&"images/jf_null.gif alt=普通个人会员><a href="&gqwebdir&"hy/company1.asp?cid="&strgquser&" target=_blank><font color=#2969AD>查看所有信息</font></a>"
							Case "1"
								strInfoClassa = "<font color=#FF0000><b>收费个人会员</b></font>"
								strgg="<img border=0 src="&gqwebdir&"images/jf_shell.gif alt=收费个人会员><a href="&gqwebdir&"hy/company1.asp?cid="&strgquser&" target=_blank><font color=#2969AD>查看所有信息</font></a>"	
							Case else
								strInfoClassa = "<font color=#008080>游客发布</font>"
								strgg="<a href="&gqwebdir&"reg.asp target=_blank><font color=#2969AD>免费注册  免费发布</font></a>"
		End Select
else
Select Case strjb
		Case "0"
							strInfoClassa = "<font color=#0000ff>普通企业会员</font>"
							strgg="<img border=0 src="&gqwebdir&"images/jf_null.gif alt=普通企业会员><a href="&gqwebdir&"hy/company1.asp?cid="&strgquser&" target=_blank><font color=#2969AD>查看所有信息</font></a>　<a href="&gqwebdir&"hy/company2.asp?cid="&strgquser&" target=_blank><font color=#2969AD>企业名片</font></a>"
				Case "-1"
							strInfoClassa = "<font color=#0000ff><b>普通企业会员</b></font>"
							strgg="<img border=0 src="&gqwebdir&"images/jf_null.gif alt=普通企业会员><a href="&gqwebdir&"hy/company2.asp?cid="&strgquser&" target=_blank><font color=#2969AD>查看所有信息</font></a>　<a href="&gqwebdir&"hy/company2.asp?cid="&strgquser&" target=_blank><font color=#2969AD>企业名片</font></a>"
							Case "1"
								strInfoClassa = "<font color=#FF0000><b>收费企业会员</b></font>"
								strgg="<img border=0 src="&gqwebdir&"images/jf_shell.gif alt=收费企业会员><a href="&gqwebdir&"hy/company1.asp?cid="&strgquser&" target=_blank><font color=#2969AD>查看所有信息</font></a>　<a href="&gqwebdir&"hy/company2.asp?cid="&strgquser&" target=_blank><font color=#2969AD>企业名片</font></a>"	
							Case else
								strInfoClassa = "<font color=#008080>游客发布</font>"
								strgg="<a href="&gqwebdir&"reg.asp target=_blank><font color=#2969AD>免费注册  免费发布</font></a>"
		End Select
end if
		Response.Write ""&strInfoClassa&""
		pic=lcase(rdsvInfo("pic"))
		if UCase(left(pic,7))<>"HTTP://" then
		pic=gqwebdir&pic
		end if
%></td>
						  <td width="37%" height="18" valign="middle">
							<%=strgg%></td>
						  </tr><tr>
						  <td width="20%" height="1" background="<% =gqwebdir%>images/dotline.gif"></td>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="2"></td>
						  </tr>
						<tr>
						  <td width="20%" height="18" align="right">信息分类：</td>
						  <td height="18" colspan="2"><%
strdlid8=rdsvInfo("dl")
set rsdl8=conn.execute("select bigclassname from bigclass where id="&strdlid8&"")
if not rsdl8.eof then
strdlurl="&nbsp;<A href="&gqwebdir&"list.asp?bid="&strdlid8&" target=_blank>"&rsdl8(0)&"</a>"
Response.write strdlurl
end if
rsdl8.close
set rsdl8=nothing
strxl8=rdsvInfo("xl")
if strxl8<>"" then
set rsxl8=conn.execute("select smallClassName from smallClass where id="&strxl8&"")
if not rsxl8.eof then
strdlurl1="&nbsp;&nbsp;>>&nbsp;&nbsp;<A href="&gqwebdir&"list.asp?sid="&strxl8&" target=_blank>"&rsxl8(0)&"</a>"
Response.write strdlurl1
end if
rsxl8.close
set rsxl8=nothing
end if
%></td>
						  </tr><tr>
						  <td width="20%" height="1" background="<% =gqwebdir%>images/dotline.gif"></td>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="2"></td>
						  </tr>
						<tr>
						  <td width="20%" height="18" align="right">面向地区：</td>
						  <td height="18" colspan="2">&nbsp;<a target="_blank" href="<%=gqwebdir%>list.asp?dq=<% = rdsvInfo("InfoAdd")%>"><% = rdsvInfo("InfoAdd")%></a>
						  &nbsp;<a target="_blank" href="<%=gqwebdir%>list.asp?sdq=<% = rdsvInfo("smalldq")%>"><% = rdsvInfo("smalldq")%></a></td>
						  </tr><tr>
						  <td width="20%" height="1" background="<% =gqwebdir%>images/dotline.gif"></td>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="2"></td>
						  </tr>
						<tr>
						  <td width="20%" height="18" align="right">联 系 人：</td>
						  <td height="18" colspan="2">&nbsp;<% = rdsvInfo("ContactMan")%></td>
						  </tr><tr>
						  <td width="20%" height="1" background="<% =gqwebdir%>images/dotline.gif"></td>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="2"></td>
						  </tr><tr>
						  <td height="18" align="right">价　　格：</td>
						  <td height="18">&nbsp;<%if rdsvInfo("jg")<>"" and rdsvInfo("jg")<>"0" then%><font color="#FF0000"><% = rdsvInfo("jg")%></font> 元<%else%>面议<%end if%></td>
						  <td height="18">有效期：<script language="JavaScript" src="<% =gqwebdir%>jsinfo.asp?action=gqtime&id=<%=intInfoKey%>"></script></td>
						  </tr><tr>
						  <td width="20%" height="1" background="<% =gqwebdir%>images/dotline.gif"></td>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="2"></td>
						  </tr>
						<tr>
						  <td height="18" align="right">邮&nbsp;&nbsp;&nbsp;&nbsp;编：</td>
						  <td height="18" colspan="2">&nbsp;<% = rdsvInfo("Postalcode")%></td>
						  </tr><tr>
						  <td width="20%" height="1" background="<% =gqwebdir%>images/dotline.gif"></td>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="2"></td>
						  </tr>
						<tr>
						  <td height="18" align="right">电&nbsp;&nbsp;&nbsp;&nbsp;话：</td>
						  <td height="18" colspan="2">&nbsp;<% = rdsvInfo("Tel")%></td>
						  </tr><tr>
						  <td width="20%" height="1" background="<% =gqwebdir%>images/dotline.gif"></td>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="2"></td>
						</tr>
						<%if rdsvInfo("Fax") <> "" then%>
						<tr>
						  <td height="18" align="right">传&nbsp;&nbsp;&nbsp;&nbsp;真：</td>
						  <td height="18" colspan="2">&nbsp;<% = rdsvInfo("Fax")%></td>
						</tr><tr>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="3"></td>
						</tr>
						<%
						end if
						if rdsvInfo("Homepage") <> "" then
						%>
						<tr>
						  <td height="18" align="right">网站网址：</td>
						  <td height="18" colspan="2">&nbsp;<a href="<% = rdsvInfo("Homepage")%>" target="_blank" class="links"><% = rdsvInfo("Homepage")%></a></td>
						</tr><tr>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="3"></td>
						</tr>
						<%end if
						if rdsvInfo("qq") <> "" then
						%>
						<tr>
						  <td height="18" align="right">腾 讯 QQ：</td>
						  <td height="18" colspan="2">&nbsp;<a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=<% = rdsvInfo("qq")%>&Site=<% = strSiteName%>&Menu=yes">
		<img alt="点击即可直接咨询" src="<% =gqwebdir%>images/qq.gif" border="0"><% = rdsvInfo("qq")%></a></td>
						</tr><tr>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="3"></td>
						</tr>
						<%end if%><%if rdsvInfo("Add") <> "" then%>
						<tr>
						  <td height="18" align="right">联系地址：</td>
						  <td height="18" colspan="2">&nbsp;<% = rdsvInfo("Add")%></td>
						</tr><tr>
						  <td height="1" background="<% =gqwebdir%>images/dotline.gif" colspan="3"></td>
						</tr><%end if%><%if rdsvInfo("Email") <> "" then%>
						<tr>
						  <td height="9" align="right">电子邮件：</td>
						  <td height="9" colspan="2">&nbsp;<%= trim(rdsvInfo("Email"))%></td>
						</tr><%end if%>
						<tr>
						  <td height="30" class="F16" colspan="3" bgcolor="#f1f1f1">
							<span style="font-size: 12px">信息内容：</span></td>
						</tr><tr>
						  <td colspan="3" align=center bgcolor="ffffff" class="F16"><table width="100%" border="0" cellspacing="10" cellpadding="0">
                            <tr>
                              <td><span style="font-size: 12px">
                                <% =replace(rdsvInfo("Content"),"{%gqwebdir%}",gqwebdir)%>
                              </span></td>
                            </tr>
                          </table></td>
						</tr>
						
   						<tr>
						  <td height="20" colspan="3" bgcolor="#ffffcc" align="center"><table cellSpacing="5" cellPadding="0" width="520" align="center" border="0">
							<tr>
								<td class="hei18"><b><font color="#ff0000">提醒您：</font></b>
								<br>
所有信息的真实性与合法性由信息提供者负责,请您在进行交易时注意辨别真伪。<br>
对于您所进行的任何交易我们不作担保，并且不承担任何法律责任。<br>
请尽可能选择本站收费会员或优秀商家的供求信息。<br>
建议选择同城当面交易或由信誉中介交易。<br>
</td>
							</tr>
						</table></td>
						</tr>
                      </table>
				    </td>
                  </tr>
                </table>
               </td>
              </tr>
            </tbody>
            </table>
</td>
					</tr>
				</table><%
		rdsvInfo.Close
set rdsvInfo = nothing
%></td>
          </tr>
        </table></td>
      </tr>
    </table>      </td>
  </tr>
</table>
<!--#include file="boot.asp"-->
</body>
</html>
<%
else
Response.write("<script>alert(""信息不存在或信息未审核"");location.href="""&gqwebdir&"index.asp"";</script>")
Response.end
end if
conn.close
set conn=nothing
%>
