newsview.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 241 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%
call SiteInfo
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 LiangJingCMS_News where ViewFlag"&Language&" and ID="&ID
rs.open sql,conn,1,3
If rs("SeoKeywords"&Language) <> "" Then
SeoKeywords=rs("SeoKeywords"&Language)
Else
SeoKeywords=rs("NewsName"&Language)
End If
If rs("SeoDescription"&Language) <> "" Then
SeoDescription=rs("SeoDescription"&Language)
Else
SeoDescription=rs("NewsName"&Language)
End If
SeoTitle=rs("NewsName"&Language)
End If
rs.close
set rs=nothing
headid=2
%>
<!--#include file="Head.Asp" -->
<div class="clear"></div>
<div id="contant">
  <div class="cleft">
    
	<div class="news">
      <div class="title">
	  &nbsp;<b>News Sort</b>
	  </div>
	  <div>
	  <ul>
	  <%=WebMenu(0,0,2)%>
	  </ul>
	  </div>
    </div>
	<div class="news">
      <div class="title">
	  &nbsp;<b>Hot News</b>
	  </div>
	  <div>
	  <ul>
	  <%=Newshot(10)%>
	  </ul>
	  </div>
    </div>
	<div class="news">
      <div class="title">
	  &nbsp;<b>Hot Product</b>
	  </div>
	  <div>
	  <ul>
	  <%=Producthot(10)%>
	  </ul>
	  </div>
    </div>
  </div>
  <div class="cright">
	<div class="crightb">
	  <div class="crightbtitle">
	    <div class="crightbtitlel">
		Location：
		</div>
		<div class="crightbtitler">
		<%=WebLocation()%>
		</div>
	  </div>
	  <div class="crightbcontent">

<table cellspacing="0" cellpadding="0" width="100%" bgcolor="#ffffff" border="0" heihgt="">
    <tbody>
        <tr align="center">

                <td width="100%" 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>No Information</center>"
  elseif conn.execute("select * from LiangJingCMS_News Where ViewFlag"&Language&" and  ID="&ID).eof then
    response.write "<center>No Information</center>"
  else
	dim rs,sql
    set rs = server.createobject("adodb.recordset")
	sql="select * from LiangJingCMS_News where ViewFlag"&Language&" and ID="&ID
    rs.open sql,conn,1,3
	Response.Write "<center>"&rs("NewsName"&Language)&"</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>Updated：</strong>"&FormatDate(rs("Addtime"),13)&" <strong>Source：</strong>"&rs("Source"&Language)&" <strong>Clicks：</strong><script language=""javascript"" src=""HitCount.asp?id="&rs("ID")&"&LX=LiangJingCMS_News""></script><script language=""javascript"" src=""HitCount.asp?action=count&LX=LiangJingCMS_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"&Language)&"</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>
</div>
<!--#include file="Foot.Asp"-->
<%
function WebMenu(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_NewsSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from LiangJingCMS_NewsSort Where ViewFlag"&Language&" and ParentID=0").eof then
    response.write "No relevant information"
  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=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a></li>"
	else
	  response.write string(i,"　")&"<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</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 WebLocation()
  WebLocation="&nbsp;Location：<a href=""index.asp"" class=""agray"">Home</a> - <a href=""NewsList.asp"" class=""agray"">News</a>"&VbCrLf
  if request.QueryString("ID")="" then
    WebLocation=WebLocation
  elseif not IsNumeric(request.QueryString("ID")) then
    WebLocation=WebLocation&"Read error"
  elseif conn.execute("select * from LiangJingCMS_News Where ViewFlag"&Language&" and  ID="&request.QueryString("ID")).eof then
    WebLocation=WebLocation&"Read error"
  else
    dim rs,sql
    set rs = server.createobject("adodb.recordset")
	sql="select * from LiangJingCMS_News where ViewFlag"&Language&" and ID="&request.QueryString("ID")
    rs.open sql,conn,1,1
	WebLocation=WebLocation&SortPathTXT("LiangJingCMS_NewsSort",rs("SortID"))
    rs.close
    set rs=nothing
  end if
end Function

function SortPathTXT(DataFrom,ID)
  dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From "&DataFrom&" where ViewFlag"&Language&" 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"&Language)&"</span></a>"
  end if
  rs.close
  set rs=nothing
end Function

function Newshot(Num)
  dim rs,sql,NewsName,NewFlag
  set rs = server.createobject("adodb.recordset")
  sql="select top "&Num&" * from LiangJingCMS_News where ViewFlag"&Language&" order by ClickNumber desc,id desc"
  rs.open sql,conn,1,1
  if rs.eof then
	Response.Write "    <li>No relevant information</li>"&VbCrLf
  else
  dim i 
  i=1
    do while not rs.eof
	  if now()-rs("AddTime")<=2 then 
	  if Getlen(rs("NewsName"&Language))>18 then
    NewsName=StrLeft(rs("NewsName"&Language),18)&"..."
    else
    NewsName=rs("NewsName"&Language)
    end if
	    NewFlag=" <img src=""newImages/new.gif"" align=""absmiddle"">"
	  else
	    if Getlen(rs("NewsName"&Language))>18 then
    NewsName=StrLeft(rs("NewsName"&Language),18)&"..."
    else
    NewsName=rs("NewsName"&Language)
    end if
	    NewFlag=""
	  end If
		If ISHTML = 1 Then
			AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
		Else
			AutoLink = "NewsView.asp?ID="&rs("id")&""
		End If
		Response.Write "<li><img src=""images/"&i&".jpg"" width=""13"" height=""13"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&NewsName&"</a>"&NewFlag&"</li>"&VbCrLf
	
      rs.movenext
	  i=i+1
    loop 
  end if
  rs.close
  set rs=nothing
end Function

%>