index.asp

来自「新的简单易用的公司管理系统」· ASP 代码 · 共 101 行

ASP
101 行
字号 
<!--#include file=ifwap.asp-->
<!--#include file=conn.asp-->
<!--#include file=inc/function.asp-->
<!-- POWERED BY 7wap Enterprise Mobile Infomation System ●<%=now()%>-->
<html>
<head>
<title><%=ewap_name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" content="all">
<meta name="Generator" content="Ewap Enterprise Mobile Infomation System">
<meta name="copyright" content="sunyanqing">
<link rel='stylesheet' href='Ewap.css' type='text/css'>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<div class=main>
<p><span class=title><%=ewap_name%></span>
</p><!--#include file=top.asp-->

<div class=body>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select nid,ntitle,ntime from news order by ntime desc"
rs.open sql,cn,1,1

%>
<%
If rs.eof and rs.bof then
response.write ewap_(23)&"</div>"
else 
rc=rs.recordcount
count=ewap_top
%>
<ul>
  <%
do while not rs.eof and count>0
count=count-1
ntitle=uhtmlencode(rs("ntitle"))
ntime=rs("ntime")
If len(ntitle)>15 then
ntitle=left(ntitle,15)&"…"
end if
%>
<li><a href=view.asp?id=<%=rs("nid")%> title="<%=rs("ntitle")%>"><%=ntitle%></a>
<small><%=ntime%></small>
<%
rs.movenext
loop
%>
</ul>
</div>
<br/>
【<%=ewap_(24)%>：<%=rc%>】&nbsp;&nbsp;<a href=more.asp><%=ewap_(36)%>…</a> 
<%

rs.close
set rs=nothing
cn.close
set cn=nothing
end if
%>
<br/>
<div class=body>
<span class=title><%=ewap_(50)%></span>
<br/>
<form action="search.asp" metod=post>
<%=ewap_(54)%><select name="t" value=title><option value="title"><%=ewap_(55)%></option><option value="detail"><%=ewap_(56)%></option></select>
<input type=text name="d" size=20 maxlength=20>
<input type=submit value=<%=ewap_(53)%>>
</form>
</div>
<br/>
<div class=body>
<span class=title><%=ewap_(39)%></span>
<ul id=us>
<li><%=ewap_(43)%>:&nbsp;<%=ewap_tel%>
<li><%=ewap_(44)%>:&nbsp;<%=ewap_fax%>
<li><%=ewap_(41)%>:&nbsp;<%=ewap_add%>
<li><%=ewap_(42)%>:&nbsp;<%=ewap_pn%>
<li><%=ewap_(47)%>:&nbsp;<%=ewap_web%>
<li><%=ewap_(46)%>:&nbsp;<%=ewap_wap%>
</ul>
</div><br/><a href=admin_login.asp><%=ewap_(25)%></a>

<br/>
<a title="<%=ewap_(0)%> 2005 <%=ewap_(1)%>">【程序设计:丁兆华】<br/>
<%=ewap_(0)%><%=ewap_(1)%>
</div>
<body>
</html>

index.asp - 源码说明

本页面展示了「新的简单易用的公司管理系统」中的 index.asp 源码文件，采用 ASP 编程语言编写，共 101 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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