⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 newsview.asp

📁 管理登录system 管理员:admin 密码:admin888 数据库链接文件: conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy
💻 ASP
字号:
<!--#include file="SiteInfo.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★                                                                  ★
'☆                万博中小企业网站管理系统(NWEB)                    ☆
'★                                                                  ★
'☆  版权所有 Nweb.cn                                                ☆
'★                                                                  ★
'☆  程序制作 万博工作室                                             ☆
'★           Add:四川省彭州市西大街228号/611930                     ★
'☆           Tel:028-88079088  Fax:83708850                         ☆
'★           E-m:duolaimi-123@163.com                               ★
'☆           Q Q:59309100                                           ☆
'★                                                                  ★
'☆  相关网址 [产品介绍]http://www.Nweb.cn                           ☆
'★           [支持论坛]http://www.Nweb.cn/bbs                       ★
'☆                                                                  ☆
'★  演示网址 http://www.Nweb.cn                                     ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
%>
<%
ID=trim(request.querystring("id"))
set Rs=server.createobject("adodb.recordset")
SQL="select * from News where  Putout=true and id="&id
Rs.open SQL,conn,1,3
if not (Rs.eof or Rs.bof) then
   Newcontent=Rs("Newcontent")
   Newtitle=Rs("Newtitle")
   Putman=Rs("Putman")
   Kig=Rs("Kig")+1
   AddTime=Rs("AddTime") 	
   GroupID=Rs("GroupID")
   Exclusive=Rs("Exclusive")
   Rs("Kig")=Kig
   Rs.update
else
   response.Write"<script language=javascript> alert('数据库异常错误!');history.back(-1);</script>"
   response.end
end if
Rs.Close
set Rs=nothing
%>
<%
'===========================
set Rs = server.createobject("adodb.recordset")
SQL="select GroupLevel from Nweb_UGroup where GroupID='"&GroupID&"'"
Rs.open SQL,conn,1,1
GroupLevel=Rs("GroupLevel")
Rs.Close
set Rs=nothing
if Session("GroupLevel")="" then Session("GroupLevel")=0
Select Case Exclusive
   Case "<"
      if Session("GroupLevel") < GroupLevel then
         response.write "<script language=javascript> alert('您的权限不能查看此条信息,请登录或向管理员咨询!');window.close();</script>"
         response.end
      end if
   Case "="
      if  Session("GroupLevel") <> GroupLevel then
         response.write "<script language=javascript> alert('您的权限不能查看此条信息,请登录或向管理员咨询!');window.close();</script>"
         response.end
      end if
End Select
%>
<HTML>
<HEAD>
<TITLE>首页-新闻资讯-信息内容|<%=SiteName%></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="copyright" CONTENT="Copyright 2004-2005 - NWEB.CN-STUDIO-多来米">
<META NAME="Author" CONTENT="万博网络技术工作室,www.Nweb.cn">
<META NAME="Robots" CONTENT="all">
<META NAME="Keywords" CONTENT="<%=Keywords%>">
<META NAME="Description" CONTENT="<%=Description%>">
<link href="Images/CSS.css" type=text/css rel=stylesheet>
</HEAD>
<BODY >
<!--#include file="Top.asp" -->
<table width="868" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="190" height="96" valign="top" bgcolor="#F2F2F2" ><!--#include file="LeftNav.asp" -->
        <!--#include file="NewsLeft.asp" -->
    </td>
    <td width="5"></td>
    <td width="673" valign="top" class="Index-Center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <!--DWLayoutTable-->
      <tr>
        <td height="180" colspan="2" bgcolor="#FFFFFF"><img src="Images/Banner_01.jpg" alt="万博中小企业网站系统" width="499" height="180"></td>
        <td width="172" align="right" bgcolor="#FFFFFF"><img src="Images/Banner_02.jpg" alt="万博中小企业网站系统" width="171" height="180"></td>
      </tr>
      <tr>
        <td width="93" height="5" bgcolor="#FFFFFF"></td>
        <td width="408" bgcolor="#FFFFFF"></td>
        <td bgcolor="#FFFFFF"></td>
      </tr>
      <tr>
        <td height="30" align="right" bgcolor="#F2F2F2"><strong><font color="#1c529b"><img src="Images/Arrow-locality.gif" width="14" height="12" align="absmiddle"> 当前位置:</font></strong></td>
        <td colspan="2" bgcolor="#F2F2F2" class="locality"><a href="index.asp">首 页</a> &gt;&gt; <a href="NewsList.asp">新闻资讯</a> &gt;&gt; 信息内容</td>
      </tr>
      <tr>
        <td height="5" align="center" bgcolor="#FFFFFF"></td>
        <td colspan="2" align="center" bgcolor="#FFFFFF"></td>
      </tr>
    </table>
        <table width="100%" border="0" cellpadding="0" cellspacing="0" >
          <tr>
            <td height="12">&nbsp;</td>
            <td></td>
            <td></td>
          </tr>
          <tr>
            <td width="20" height="30">&nbsp;</td>
            <td align="center" class="News-04"><%=Newtitle%>
            <hr size="1" noshade  color="#666666">
			</td>
            <td width="20"></td>
          </tr>
          <tr>
            <td height="30">&nbsp;</td>
            <td height="260" valign="top" class="News-05"><%=Newcontent%>
            </td>
            <td></td>
          </tr>
          <tr>
            <td height="30">&nbsp;</td>
            <td><table width="100%"  border="0" cellpadding="5" cellspacing="1" bgcolor="#CECECE">
              <tr bgcolor="#FFFFFF" >
                <td width="13%" align="right" bgcolor="#F2F2F2" >发 布 者:</td>
                <td width="20%" bgcolor="#FFFFFF">&nbsp;<%=Putman%></td>
                <td width="15%" align="right" bgcolor="#F2F2F2">添 加 时 间:</td>
                <td width="20%" bgcolor="#FFFFFF">&nbsp;<%=AddTime%></td>
                <td width="13%" align="right" bgcolor="#F2F2F2">点 击 数:</td>
                <td width="15%" bgcolor="#FFFFFF"><%=Kig%></td>
              </tr>
            </table></td>
            <td></td>
          </tr>

          <tr>
            <td height="30">&nbsp;</td>
            <td></td>
            <td></td>
          </tr>
      </table></td>
  </tr>
</table>
<!--#include file="Bot.asp" -->
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -