|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;模板default.asp
上面就是本站首页显现的样本程序:http://asp.on.net.cn/
合用与本站一切的首页显现程序。
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>ASP动感在线http://ASP.on.net.cn</title>
<linkrel="stylesheet"type="text/CSS"href="css/style.css">
</head>
<bodybgcolor="#FFFFFF">
<divalign="center">
<p>首页模板!最新5条信息!</p>
<tablewidth="60%"cellpadding="0"cellspacing="0"align="center">
<tr>
<tdwidth="60%"valign="top"height="54">
<tablewidth="100%"border="1"cellspacing="0"cellpadding="0"align="center"bordercolorlight="#000000"bordercolordark="#FFFFFF">
<tr>
<tdheight="5">
<tablewidth="100%"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdcolspan="2"height="8"><%
dimconn
dimconnstr
onerrorresumenext
connstr="DBQ="+server.mappath("/new/new.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
setconn=server.createobject("ADODB.CONNECTION")
conn.openconnstr
dimsql
dimrs
sql="selecttop5*fromlearningorderbyarticleiddesc"
Setrs=conn.execute(sql)
ifrs.eofandrs.bofthen
response.write"<palign=center>还没有任何文章</p>"
else
%><%dowhilenotrs.eof%><fontcolor="#000099">○</font><ahref="<%=rs("url")%>"target="_blank"><%=rs("title")%></a>
<i><fontcolor="#FF0000">(<%=rs("dateandtime")%>)</font></i><br>
<%=rs("content")%><br>
<%
rs.movenext
loop
rs.close
endif
setrs=nothing
conn.close
setconn=nothing
%></td>
</tr>
<tr>
<tdcolspan="2">
<divalign="right"><ahref="new/index.asp">之前通告>></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<divalign="center"></div>
</td>
</tr>
</table>
</div>
</body>
</html>
阿喔出处:<ASP动感在线>http://asp.on.net.cn/
(待续)</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|