破解网站发布系统 ASP生成静态页面方法

核心提示： 6、显示数据库表记录，并做指向HTML页的链接：showit.asp引用:＜!--#include file="conn.asp" --＞＜!--#include file="lib.asp" --＞＜%Set rs = Server.CreateO

6、显示数据库表记录，并做指向HTML页的链接：showit.asp

引用:

＜!--#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
%＞