📄 news_info.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="Inc/ubbcode.asp"-->
<%
Dim sql,rs,id
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from news where id="&request("id")
rs.open sql,conn,1,3
Dim title,body,date,hitnum
title=Rs("title")
body=Rs("body")
date=Rs("date")
hitnum=Rs("hitnum")
Rs("hitnum")=Rs("hitnum")+1
Rs.Update

Rs.Close

%>
<html>
<head>
<title><%=title%></title>
<LINK href="style.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<TABLE width="760" class=page border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD>
<!--#include file="top.asp"-->
<TABLE width=760 border=0 align=center cellpadding="4">
  <TBODY>
    <TR> 
      <TD align="center" vAlign=top>

         <TABLE cellSpacing=0 cellPadding=0 width="550" border=0>
          <TBODY>
            <TR> 
              <TD height=21 align="center">新闻标题:<font color=red><%=title%></font></TD>
            </TR>
               <TR> 
              <TD height=21 align="center"> 
				<hr noshade color="#59BE48" size="1"> </TD>
            </TR>
            <TR> 
              <TD> <table width="100%" border="0">
                  <tr> 
                    <td align="right">日期：<%=date%> 点击：<%=hitnum%></td>
                  </tr>
                  <tr> 
                    <td><%=ubbcode(body)%></td>
                  </tr>
                  <tr> 
                    <td align="center">[<a href="javascript:window.close()"><font color="#008000">关闭窗口</font></a>]</td>
                  </tr>
                </table></TD>
            </TR>
          </TBODY>
        </TABLE>
        


      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"--></TD>
    </TR>
  </TBODY>
</body>
</html>

<%
conn.Close
Set conn=Nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -