listinfo.asp

来自「仿百度搜索程序修正版」· ASP 代码 · 共 51 行

javastr="" 
javastr=javastr+"<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">" 
<%
   dim conn   
   dim connstr
   on error resume next
   connstr="DBQ="+server.mappath("data.mdb")+";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,12)  '设置显示10个字符
if len(tit2)<>len(tit) then
    tit2=tit2&""
end if
  if classid="" then  
%> 
javastr=javastr+"·[<%=rs("gq")%>]<a href=gq/show.asp?n=<%=rs("id")%> target=_blank ><%=tit2%></a>" 

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