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

📄 article.asp

📁 视频源代码 视频源代码
💻 ASP
字号:
🔍 
<%response.expires=0%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<%
id=strFilter(request("id"),10)
if id="" then
  call msgbox("请正确指定浏览文章！",1)
end if
if not isnumeric(id) then
  call msgbox("请正确指定浏览文章！",1)
end if
id=CCur(id)
sql="select top 1 title,content,author,source,csize,otime,filenum,categoryid from article where id="&id
rs.open sql,conn,1,1
if not rs.eof then
  title		=rs(0)
  content	=rs(1)
  author	=rs(2)
  source	=rs(3)
  csize		=rs(4)
  otime		=rs(5)
  filenum	=rs(6)
  categoryid	=split(rs(7),".")
else
  rs.close
  call msgbox("该文章不存在！",1)
end if
rs.close

sql="select top 1 categoryname,categoryindex from category where categoryid="&categoryid(1)
rs.open sql,conn,1,1
if not rs.eof then
  cname=rs(0)
  cindex=split(rs(1),".")
else
  rs.close
  call msgbox("该分类不存在！",1)
end if
rs.close

if isarray(cindex) then
  for i=0 to ubound(cindex,1)
    if nindex="" then
      nindex=cindex(0)
    else
      nindex=nindex&"."&cindex(i)
    end if
    sql="select top 1 categoryid,categoryname,categorypath from category where categoryindex like '"&nindex&"'"
    rs.open sql,conn,1,1
    if not rs.eof then
      tophtml=tophtml&rs(1)&"　>>　"
      filepath=filepath&rs(2)&"/"
    else
      rs.close
      call msgbox("该分类上级不存在！",1)
    end if
    rs.close
  next
end if

Set rs=nothing
Set conn=nothing
%>
<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>易影中国</title>
<link rel="stylesheet" href="css/default.css">
<script src="js/js.js"></script>
<body bgcolor="#003063">
<table border=0 cellPadding=0 cellSpacing=0 height="100%" width="100%">
  <tbody>
  <tr><td align=middle bgcolor=#F0F0F0>

<table border="0" align="center" width="620" cellpadding="1" cellspacing="1">
  <tr><td colspan="8"><%=tophtml&title%></td></tr>
</table>

<table border=0 cellPadding=0 cellSpacing=0 width=620 align=center style="border:1 ridge #eaeaea"><tbody>
  <tr><td rowspan="2">
<center><b><%=title%></b></center><br>
<div align=right>时间：<%=otime%>　　　 作者：<%=author%>　　　 来源：<%=source%></div><br>
<%=UBBCode(replace(content,"../",""))%>
  </td></tr>
</table>


  </td></tr>
  <tr><td align="center">
<font style="font:9pt;color:FFFFFF;line-height:12pt">
Copyright &copy;2002 ZWCITY.COM 易影中国. All rights reserved.
</font>
  </td></tr>
</table>

⌨️ 快捷键说明

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