📄 shownews.asp
字号:
<%@ codepage ="936" %><%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：service@fyasp.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<!--#include file="head.asp"-->
<!--#include file="../inc/check_input.asp"-->
<html>
<head>
<script language="JavaScript" src="../inc/move.js"></script>
<LINK href="../css/Style.css" rel=stylesheet type=text/css>
<STYLE type=text/css>
<!--
td { font-family: "宋体"; font-size: 9pt; line-height: 14pt; }
-->
</STYLE>
<%
dim newsid
dim hits
newsid=request("newsid")
hits=request("hits")
newsid=CheckInput(newsid,"i","1")
hits=CheckInput(hits,"i","1")
dim sql
dim sql1
dim rs
set rs=server.createobject("adodb.recordset")
sql1="update hyxx set hits=hits+1 where newsid="+cstr(newsid)+""
rs.open sql1,conn,1,1
%>
<%
sql="select * from hyxx where newsid="+cstr(newsid)+" order by newsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
showContent
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
sub showContent
%>
<title><%=title%>·行业信息·<%=WebName%></title>
<META NAME="Keywords" CONTENT="<%=search%>">
<META NAME="Description" CONTENT="商务网,物流信息-http://www.fyasp.com">
</head>
<body onselectstart="return false">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" id="AutoNumber1">
<tr>
<td width="167" valign="top">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber3">
<tr>
<td width="100%" bgcolor="#C4E1FF" bordercolor="#C0C0C0">
<p align="center"><font color=#ff6600><b>热点图片新闻</b></td>
</tr>
<tr>
<td width="100%">
<%
sql="select * from hyxx where selectpic=1 order by NewsID desc"
Set rsrd= Server.CreateObject("ADODB.Recordset")
rsrd.open sql,conn,1,1
%>
<%do while not rsrd.eof%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="146">
<tr>
<TD height=127 width=200>
<DIV align=center>
<a href="shownews.asp?newsid=<%=rsrd("newsid")%>">
<img src="pic/<%=rsrd("picurl")%>" width=170 height=120 style="border: 0px solid #000000"></a></DIV></TD>
</tr>
<tr>
<TD height=19>
<DIV align=center>
<span style=font-size:9pt;line-height: 15pt><a href="shownews.asp?newsid=<%=rsrd("newsid")%>"><% if len(rsrd("title"))>12 then%><%=left(rsrd("title"),11)%></a>
<a href="shownews.asp?newsid=<%=rsrd("newsid")%>">..<% else%><%=rsrd("title")%><%end if%></a></span></DIV></TD>
</tr>
<tr>
</tr>
</table>
<%
z=z+1
if z>=5 then exit do
rsrd.movenext
loop
rsrd.close
set rsrd=nothing
%>
</td>
</tr>
</table>
</td>
<td width="590" valign=top>
<center>
<table border="0" cellPadding="0" cellSpacing="0" align=center>
<tr>
<td valign="top">
<table border="0" width="600" cellspacing="1" style="border-collapse: collapse" cellpadding="0">
<tr>
<td align="center" width="548" height="49" bgcolor="#F1F1F1">
<p style="line-height: 200%"><br><b>
<font color="#FF6600" class="f12">
<span style="font-size: 13.5pt; "><%=title%></span></font></b><br>
(发布日期：<%=rs("dateandtime")%>)</font><font color="#FF0000"> </font>
<font color="#808080">浏览人数：</font><font color="#FF0000"><%=rs("hits")%></font></td>
</tr>
<tr>
<td align="center" width="548" height="25" bgcolor="#F1F1F1">
<p align="right">
<a href=javascript:initialize(); style="text-decoration: none">
<font color="#800000"><img src=../pict/dotitem.gif widht=10 height=12 border=0 alt='点此滚屏'></font>
</a><font color="#800000">鼠标双击自动滚屏 </font></td>
</tr><tr>
<TD background=images/bg_b.gif style="color: #000; font-family: 宋体; font-size: 12px; line-height:100%" bgcolor="#F1F1F1" width="548">
<IMG height=1 src="" width=1></TD>
</tr>
<tr>
<td align="center" width="548" height="1" bgcolor="#F1F1F1"><script type="text/javascript"><!--
google_ad_client = "pub-1643874477780591";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "text_image";
google_ad_channel = "";
google_color_border = "C3D9FF";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "008000";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td>
</tr>
<%
'站长设置什么等级的会员才可以看到行业信息开始
dim flag,id,name_hyxx
id=session("id")
flag=session("Flag")
'whocansee-0-享受付费会员,1-期满付费会员,2-未付费正式会员,3-待审核收费会员,4-正式免费会员,5-待审免费会员;向下兼容
'flag-0-享受付费会员,1-期满付费会员,2-未付费正式会员,3-待审核收费会员,4-正式免费会员,5-待审免费会员
Select Case whocansee_hyxx
case "5" '待审免费会员
name_hyxx="待审免费会员"
case "4" '正式免费会员
name_hyxx="正式免费会员"
case "3" '待审收费会员
name_hyxx="待审收费会员"
case "2" '正式未付费会员
name_hyxx="正式未付费会员"
case "1" '期满付费会员
name_hyxx="期满付费会员"
case "0" '享受付费会员
name_hyxx="享受付费会员"
case else
name_hyxx="管理员定义级别有误"
End select
%>
<%if (id="" or flag>whocansee_hyxx) and whocansee_hyxx<>10 then%>
<TR>
<TD height=18 vAlign=top width="548" bgcolor="#FAFDF9">
·
<FONT color=red>对不起,<%=name_hyxx%>以上的会员才可观看!</font>
</TD>
</TR>
<%else%>
<%if rs("selectpic")=1 then%>
<tr>
<td width="548" valign="top" height="221" bgcolor="#F1F1F1">
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber1">
<tr>
<td width="100%" height="55"> <img hspace=1 src="pic/<%=rs("picurl")%>" vspace=1 align="left" style="border: 3px solid #8BC86F; "> <%=Replace(rs("content"),chr(13),"<br><br> ")%></td>
</tr>
<tr>
<td width="100%" height="2">
<p align="right"><b><font color="#111111"><%=rs("nfrom")%></font></b></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<%else%>
<td valign=top width="548" height="17" bgcolor="#F1F1F1">
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber2">
<tr>
<td width="100%"> <%=Replace(rs("content"),chr(13),"<br><br> ")%></td>
</tr>
<tr>
<td width="100%">
<p align="right"><b><font color="#111111"><%=rs("nfrom")%></font></b></td>
</tr>
</table>
</center>
</div>
</td>
<tr>
<%end if%>
<%end if%>
<TD style="color: #000; font-family: 宋体; font-size: 12px; line-height:100%" bgcolor="#F1F1F1" width="548"><IMG
height=1 src="" width=1></TD>
</tr>
<tr>
<td align="right" width="548" height="20" bgcolor="#F1F1F1"><a href="sendmail.asp?newsid=<%=rs("newsid")%>"><img border="0" src="images/emailtofriend.gif" alt="把本篇文章推荐给我的好友"></a> <a href="javascript:window.print();"><img border="0" src="images/print.gif" alt="打印本篇文章"></a> <a href="javascript:window.close()"><img border="0" src="images/back.gif" alt="关闭窗口"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
%>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
<!--#include file="../inc/end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -