📄 news.asp

📁 人事管理系统毕业论文和代码希望大家喜欢

💻 ASP

字号:

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {  font-family: "&#23435;&#20307;", "&#23435;&#20307;"; font-size: 9pt; line-height: 13pt}
p {  font-family: "&#23435;&#20307;", "&#23435;&#20307;"; font-size: 9pt; line-height: 13pt}
br {  font-family: "&#23435;&#20307;", "&#23435;&#20307;"; font-size: 9pt; line-height: 13pt}
a:link {  color: #000000; text-decoration: none}
a:visited {  text-decoration: none}
a:hover {  color: #CC0033; text-decoration: underline}

td {  font-size: 9pt; font-family: "&#23435;&#20307;"; line-height: 13pt}
.unnamed1 {  line-height: 13pt}
-->
</style>
<script language="javascript">
function popwin2(id,path)
{		window.open("openarticle.asp?id="+id+"&ppath="+path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,top=10,left=100,location=no");
}
</script>
<title></title>
</head>
<body leftmargin="0" topmargin="2" vlink="#000000">
<%
dim conn2,rs2
set conn2=server.createobject("adodb.connection")
DBPath = Server.MapPath("article.mdb")
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>10 then exit do
	rs2.movenext
	loop
	end if
	rs2.close
	conn2.close
%>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -