📄 news.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
<script language="javascript">
function popwin2(id,path)
{ window.open("openarticle.asp?id="+id+"&ppath="+path,"","height=500,width=550,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
</head>
<body leftmargin="0" topmargin="2" bgcolor="#FFFFFF">
<%
dim conn2,rs2
set conn2=server.createobject("adodb.connection")
DBPath = Server.MapPath("download.asp")
conn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="SELECT type.typeid,type.type,learning.typeid,learning.articleid,learning.title,learning.dateandtime FROM learning,type where type.typeid=learning.typeid ORDER BY learning.articleid DESC"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn2,1,1
if rs2.eof and rs2.bof then
response.write "<p align='center'> 还 没 有 任 何 软 件</p>"
else
dim i
do while not rs2.eof
%> □ [<a href="index.asp?typeid=<%=rs2("typeid")%>" target=_top><%=rs2("type")%></a>]
<a href="javascript:popwin2(<%=rs2("articleid")%>)"><%=rs2("title")%></a> <FONT color="#666666" size=1>(<%=rs2("dateandtime")%>)</FONT><br>
<%i=i+1
if i>rs("sou") then exit do
rs2.movenext
loop
end if
rs2.close
conn2.close
%>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -