caselist.asp

来自「一个互联网络公司网站源码」· ASP 代码 · 共 24 行

<!--#include file="../inc/conn.asp" -->
<%
num=10
if isnumeric(request.QueryString("num")) and request.QueryString("num")<>"" then
	num=request.QueryString("num")
end if
	sql="select top "&num&" * from webcase where commend=0 order by id desc"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	while not rs.eof 
		url=trim(rs("url"))
		if left(url,7)<>"http://" then
		url="http://"&url
		end if
%>
document.write("        <tr>"); 
document.write("          <td height=\"30\" bgcolor=\"#FAFAFA\" style=\"padding-left:5px;\"><a href=\"<%=url%>\" class=\"link3\" target=\"_blank\"><%=rs("title")%></a></td>");
document.write("        </tr>");
<%
	rs.movenext
	wend
	rs.close
%>