<!--#include file="Include/Const.asp" -->
<!--#include file="Include/NoHackSql.Asp" -->
<!--#include file="Include/ConnSiteData.asp" -->
<%
call SiteInfo
headid=3
if ISHTML = 1 then
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
End If
ID=request.QueryString("ID")
if ID <> "" or IsNumeric(ID) then
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJing_News where ViewFlag and ID="&ID
rs.open sql,conn,1,3
If rs("SeoKeywords") <> "" Then
SeoKeywords=rs("SeoKeywords")
Else
SeoKeywords=rs("NewsName")
End If
If rs("SeoDescription") <> "" Then
SeoDescription=rs("SeoDescription")
Else
SeoDescription=rs("NewsName")
End If
SeoTitle=rs("NewsName")
End If
rs.close
set rs=nothing
%>
<!--#include file="Head.Asp" -->
<div id='index_wrapper'>
<div style="clear:both;background-image:url('images/mybuzhou.jpg');width:800px;height:85px;margin-bottom:10px;" id="mySitep">
<div style="height:20px;margin-bottom:26px;text-align:right;" ><div onclick="stepcoclose()" style="width:20px;height:20px;cursor:pointer;float:right">&nbsp;</div></div>
<div style="clear:both;font-size:14px;font-weight:bold;color:#5A552B;">
<div style="width:100px;float:left;">&nbsp;</div>
<div style="width:200px;float:left;">查看今日团购价</div>
<div style="width:36px;float:left;">&nbsp;</div>
<div style="width:200px;float:left;">付款并获得优惠凭证码</div>
<div style="width:66px;float:left;">&nbsp;</div>
<div style="width:180px;float:left;">凭优惠凭证码享受超级折扣</div>
</div>
</div>
<div id=best-r class="best" style="width:586px;float:left">
<div id=best-sc>
<div class=best-tb style="width:120px;">
<a style="width:120px">团购资讯详细:</a>
</div>
</div>
<div id=bests>
<table cellspacing="0" cellpadding="0" width="100%" bgcolor="#ffffff" border="0" heihgt="">
    <tbody>
        <tr align="center">

                <td width="1000" align="center" style="color:#000000; font-size:14px; font-weight:bold">
<%
  ID=request.QueryString("ID")
  if ID="" or not IsNumeric(ID) then
    response.write "<center>暂无相关信息</center>"
  elseif conn.execute("select * from LiangJing_News Where ViewFlag and  ID="&ID).eof then
    response.write "<center>暂无相关信息</center>"
  else
	dim rs,sql
    set rs = server.createobject("adodb.recordset")
	sql="select * from LiangJing_News where ViewFlag and ID="&ID
    rs.open sql,conn,1,3
	Response.Write "<center>"&rs("NewsName")&"</center>"&VbCrLf
  End If
%></td>
                
              </tr>
            
       
<%
if ViewNoRight(rs("GroupID"),rs("Exclusive")) Then
Response.Write "        <tr>"&VbCrLf
Response.Write "          <td align=""center"" style=""color:#999999""><center><strong>发布时间：</strong>"&FormatDate(rs("Addtime"),13)&" <strong>新闻来源：</strong>"&rs("Source")&" <strong>浏览次数：</strong><script language=""javascript"" src=""HitCount.asp?id="&rs("ID")&"&LX=LiangJing_News""></script><script language=""javascript"" src=""HitCount.asp?action=count&LX=LiangJing_News&id="&rs("ID")&"""></script></center></td>"&VbCrLf
Response.Write "        </tr>"&VbCrLf
Response.Write "        <tr>"&VbCrLf
Response.Write "          <td height=""20"">&nbsp;</td>"&VbCrLf
Response.Write "        </tr>"&VbCrLf
Response.Write "        <tr>"&VbCrLf
Response.Write "          <td style=""line-height:25px; font-size:12px; padding-left: 8px; padding-right: 8px"">"&rs("Content")&"</td>"&VbCrLf
Response.Write "        </tr>"&VbCrLf
Else
Response.Write "        <tr>"&VbCrLf
Response.Write "          <td align=""center""><img src=""Images/NoRight.jpg""></td>"&VbCrLf
Response.Write "        </tr>"&VbCrLf
end if
rs.update
rs.close
set rs=nothing
%>
        <tr>
          <td height="20">&nbsp;</td>
        </tr>
    </tbody>
</table>
</div>
</div>
<div style="width:200px; float:right;">
<div id=best-r class="best" style="width:200px; float:right;">
<div id=best-sc>
<div class=best-tb>
<a style="width:80px;font-size:14px;font-weight:bold;">团购资讯</a>  
<span id="sishowsitep" onclick="stepcoclose1()" style="display:none;padding-top:7px;padding-left:6px;"><font style="color:red;">查看步骤</font></span>
</div>
</div>
<div id=bests>
<ul>
<%Call WebMenu(0,0,2)%>
</ul>
</div>
</div>
<div id=best-r class="best" style="width:200px; float:right;margin-top:10px;">
<div id=best-sc>
<div class=best-tb>
<a style="width:80px;font-size:14px;font-weight:bold;">信息订阅</a>       
</div>
</div>

<div id=bests>
<table cellpadding="0" cellspacing="0" width="100%px" style="padding:6px;">
<tr><td align="center">
<% Call LiangjingCMSEMail() %>
</td></tr>
</table>
</div>
</div>
</div>
<div style="clear:both;;*display:inline;overflow:;hidden;">
</div>
<div style="float:none;height:10px;"></div>
</div></div>
</div></div>
<!--#include file="Foot.Asp"-->
<%
function WebMenu(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJing_NewsSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from LiangJing_NewsSort Where ViewFlag and ParentID=0").eof then
    response.write "暂无相关信息"
  end if
  do while not rs.eof
  	If ISHTML = 1 Then
		AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
	Else
		AutoLink = "NewsList.asp?SortID="&rs("ID")&""
	End If
	if ParentID=0 then
	  response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName")&"</a></li>"
	else
	  response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName")&"</a></li>"
	end if
    i=i+1
	if i<level then call WebMenu(rs("ID"),i,level)
	i=i-1
	rs.movenext
  loop 
  rs.close
  set rs=nothing
end function

function LiangjingCMSEMail()

       Response.Write "         <form action="""" method=""post"" name=""LiangjingCMSEmail"">"&VbCrLf
       Response.Write "      <div class=""mail_list_box_input_position"">"&VbCrLf
       Response.Write "          <input type=""text"" name=""LiangjingCMSSubscribe"" class=""mail_list_input"" onblur=""this.className='LiangjingCMSSubscribe';if(this.value==''){this.value='请输入您的Email地址';}"" onfocus=""this.className='LiangjingCMSSubscribe';this.focus();if(this.value=='请输入您的Email地址'){this.value='';}"" value=""请输入您的Email地址"" />"&VbCrLf
       Response.Write "        </div>"&VbCrLf
       Response.Write "        <div class=""mail_list_box_bt_position""><br /><span>"&VbCrLf
       Response.Write "   <input type=""image"" name=""Subscribe"" src=""images/bt_mail_list_01.png"" onclick=""document.LiangjingCMSEmail.action='Subscribe.Asp?Action=Add'"" />"&VbCrLf
       Response.Write "          </span>"&VbCrLf
       Response.Write "<span><input type=""image"" name=""Unsubscribe"" src=""images/tuiding_mail_list_01.png""  value=""退订"" onclick=""document.LiangjingCMSEmail.action='Subscribe.Asp?Action=Del'"" />"&VbCrLf
       Response.Write "          </span>"&VbCrLf
	   Response.Write "  	<div style=""height:6px;""></div> </div>"&VbCrLf
       Response.Write "       <div class=""clear""></div>"&VbCrLf
       Response.Write "      </form>"&VbCrLf
end Function






function SortPathTXT(DataFrom,ID)
  dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From "&DataFrom&" where ViewFlag and ID="&ID
  rs.open sql,conn,1,1
  if not rs.eof Then
	If ISHTML = 1 Then
		AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
	Else
		AutoLink = "NewsList.asp?SortID="&rs("ID")&""
	End If
	SortPathTXT=SortPathTXT(DataFrom,rs("ParentID"))&" - <a href="""&AutoLink&"""><span style=""color:#EC0000"">"&rs("SortName")&"</span></a>"
  end if
  rs.close
  set rs=nothing
end Function
%>