js_mb.asp

本系统为ASP版 1

<%
if MDBpath="" then
MDBpath=""
end if
set rs_type=server.CreateObject("ADODB.RecordSet")
set rs=server.CreateObject("ADODB.RecordSet")
%>
<!--#include file="mdb_path_down.asp"-->
<%
db="data/#info19827.asp"
	Set conn1 = Server.CreateObject("ADODB.Connection")
	connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	conn1.Open connstr1
thisfile="index"
''''分隔游戏娱乐
YXid=9 '游戏娱乐ID号
  rs.open ("select id from downtype where ts like '"&YXid&",%'"),conn,1,1
  if not rs.eof then
    do while not rs.eof
      NoYXid=NoYXid&""&rs("id")&", "
    rs.MoveNext
    loop
  end if
  rs.close
''''分隔游戏娱乐

''''分隔电子书库
SKid=11 '电子书库ID号
  rs.open ("select id from downtype where ts like '"&SKid&",%'"),conn,1,1
  if not rs.eof then
    do while not rs.eof
      NoSKid=NoSKid&""&rs("id")&", "
    rs.MoveNext
    loop
  end if
  rs.close
''''分隔电子书库
%>
document.write('<table border=0>')
 <%
i=0
sql="select top 10 title,id,tid,date from infodown order by date desc"
rs.open sql,conn1,1,1
if rs.eof then%>
          document.write('<tr><td width="100%" height="30" align="center">还没有软件</td></tr>')
          <%
else
do while not rs.eof
%>
document.write('<tr><td height="22" nowrap>·<a target=_blank title="<%=rs("title")%>" href="<%=rs("id")%>.asp"><%=rs("title")%></a><%if (month(rs("date"))&"/"&day(rs("date")))=(month(date())&"/"&day(date())) then response.write"<font color=""#ff0000"">("&month(rs("date"))&"/"&day(rs("date"))&")</font>" else response.write"<font color=""#bbbbbb"">("&month(rs("date"))&"."&day(rs("date"))&")</font>" end if%></td></tr>')
           <%
i=i+1
if i>8 then exit do
rs.movenext
loop
end if
rs.close
%>
document.write('</table>')