<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp" -->
<!--#include file="lib.asp" -->
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from c_news order by c_id desc"
rs.Open sql,conn,1,1
%>
<%
if rs.EOF and rs.BOF then
response.write ("暂时还没有文章，<a href=add.html>添加</a>")
else
Do Until rs.EOF
%>
<table width="758" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#000000">
<tr>
<td width="159" align="right" bordercolor="#CCCCCC" bgcolor="#CCCCCC"><%=rs("c_time")%></td>
<td width="591" bordercolor="#f3f3f3" bgcolor="#f3f3f3"><a href=<%=rs("c_filepath")%> target="a_blank"><%=rs("c_title")%></a></td>
</tr>
<tr>
<td valign="top" align="right" bordercolor="#ececec" bgcolor="#ececec">[<a href=del.asp?c_id=<%=rs("c_id")%>>Dell</a>][<a href=change.asp?c_id=<%=rs("c_id")%>>Edit</a>][<a href="add.html">Add</a>]</td>
<td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><%=htmlencode(rs("c_content"))%></td>
</tr>
</table>
<br>
<%
rs.MoveNext
Loop
end if
%>
<%
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>
简单asp-html生成系统
需积分: 0 149 浏览量
2008-11-11
15:46:11
上传
评论
收藏 20KB RAR 举报
html2.rar （24个子文件） 
html 
add.html 545B newsfile 2008-10-25 
20081025230931.shtml 2B 2008-10-26 2008102600505.shtml 2B 2008102602112.shtml 2B 2008102604342.shtml 2B 20081026210949.shtml 602B 2008102604247.shtml 2B 2008102604055.shtml 2B 2008102605443.shtml 2B 2008102610318.shtml 540B 20081026213135.shtml 550B 2008102605313.shtml 2B 20081026213008.shtml 548B _notes add.asp.mno 247B Connections asphtml.asp 248B showit.asp 1KB del.asp 532B
新建 文本文档.txt 1KB addit.asp 2KB change.asp 2KB asp2html.mdb 180KB lib.asp 2KB add.asp 753B conn.asp 177B
评论0