📄 article.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="Conn.asp" -->
<!-- #include file="Function.asp" -->
<%
'===============请保留以下版权信息==================
'程序名称：Goaler 采集
'程序版本：Ver 0.01
'运行环境：ASP+ACCESS+XMLHTTP
'采集目标：http://edu.cnzz.cn
'程序编写：goaler
'个人主页：http://www.goalercn.com
' http://blog.goalercn.com
'===============请保留以上版权信息==================
Dim StartTime,QueryNum
StartTime = Timer()
QueryNum = 0
Dim RS,Id
Id = CheckStr(Request.QueryString("Id"),"i")
IF(Id=False)THEN
Response.Write("非法参数")
Response.End
END IF
SET RS=Conn.Execute("SELECT A.artTitle,A.artBID,A.artSID,A.artAuthor,A.artFrom,A.artContent,A.artTime,A.artHits,A.artComms,S.SName,B.BName FROM artList A INNER JOIN (artSClass S INNER JOIN artBClass B ON S.BID=B.BID) ON A.artSID=S.SID WHERE A.Id=" & Id)
QueryNum = QueryNum + 1
IF(RS.EOF)THEN
Response.Write("非法参数")
Response.End
ELSE
Conn.Execute("UPDATE artList SET artHits=artHits+1 WHERE Id="&Id)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="Keywords" content="<%=RS(9)%>,<%=RS(10)%>,<%=RS(0)%>" />
<meta name="Description" content="<%=RS(9)%>,<%=RS(10)%>,<%=RS(0)%>" />
<title><%=RS(0)%> - <%=RS(9)%> - <%=RS(10)%></title>
<link href="style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
.artTitle {
padding:3px;
text-align:center;
font-weight:bold;
color:#ff0000;
font-size:15px;
}
.artInfo {
padding:3px;
text-align:center;
}
</style>
</head>
<body>
<table width="760" border="0" cellpadding="3" cellspacing="1" bgcolor="#cccccc" align="center">
<tr>
<td bgcolor="#f1f1f1">
当前位置：<a href="List.asp">技术文章</a> >> <a href="List.asp?Id=<%=RS(1)%>"><%=RS(10)%></a> >> <a href="List.asp?Id=<%=RS(1)%>,<%=RS(2)%>"><%=RS(9)%></a>
</td>
</tr>
</table>
<table width="760" border="0" cellpadding="3" cellspacing="1" bgcolor="#cccccc" align="center" style="overflow: hidden;word-wrap:word-break;word-break:break-all;table-layout:fixed;">
<tr>
<td width="180" valign="top" bgcolor="#ffffff" align="center">
<form method="get" action="Index.asp">
<input type="text" name="keyword"> <input type="submit" value=" 搜索 ">
</form>
</td>
<td valign="top" bgcolor="#ffffff" align="left">
<div class="artTitle"><%=RS(0)%></div>
<div class="artInfo">
作者：<%=RS(3)%> 来源：<%=RS(4)%> 更新时间：<%=RS(6)%>
</div>
<div class="artContent">
<%=RS(5)%>
</div>
</td>
</tr>
</table>
<div align="center" style="padding:6px;">页面执行时间 <font color="#FF0000"><%=FormatNumber((Timer()-StartTime)*1000,2,-1)%></font> 毫秒, 查询数据库 <font color="#FF0000"><%=QueryNum%></font> 次. Powered By <span style="font-weight:bold;"><a href="http://www.goalercn.com"><font color="#9A4C32">Goaler</font><font color="#B8C549">CN</font>.<font color="#9A4C32">C</font><font color="#B8C549">om</font></a></span></div>
</body>
</html>
<%
END IF
RS.CLOSE
SET RS=NOTHING
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -