listinfo.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

javastr="" 
javastr=javastr+"<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\">" 
<%
   dim conn   
   dim connstr
   on error resume next
   connstr="DBQ="+server.mappath("data.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
%>
<%
num=Request.QueryString("num")
if num="" then
num=10
end if
shu=Request.QueryString("shu")
if shu="" then
shu=10
end if 
sql="select top "&num&" * from msg order by id desc"
 
set rs=conn.execute(sql)
do while not rs.eof
%> 
javastr=javastr+"<tr><td>" 
<% 
tit=rs("tit") 
    tit=replace(tit,"<","&lt;") 
    tit=replace(tit,">","&gt;") 
    tit=replace(tit,vbCrlf,"<br>")  
    tit2=left(tit,20)  '设置显示15个字符
if len(tit2)<>len(tit) then
    tit2=tit2&""
end if
  if classid="" then  
%>
      javastr=javastr+"<font color=#003366>·[<%=rs("gq")%>]</font><font color=#0066CC>&nbsp;&nbsp;</font><a href=msg/show.asp?n=<%=rs("id")%> target=_blank ><font color=#666666><%=tit2%></font></a>" 

<%else
%>
javastr=javastr+"</td><td>·<a href=show.asp?n=<%=rs("id")%> title=\"<%=title%>\"target=_blank><font color="#000000"><%=tit2%></font></a>" 
<%end if%>
 javastr=javastr+"</td></tr>" 
<%rs.movenext  
loop%>  
javastr=javastr+"</table>"  
document.write(javastr)  
<%rs.close%>