?? jsclass.asp
字號:
<%
on error resume next
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("intohz.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
<%
dim shu,news,classid
if request.querystring("shu")="" or request.querystring("shu")=0 then
shu=10
else
shu=CINT(request.querystring("shu"))
end if
set rs=server.createobject("adodb.recordset")
if request("classid")<>"" then
classid = request("classid")
set rs=conn.execute("SELECT Nclass.Nclassid,Nclass.Nclass,download.id,download.showname,download.classid,download.Nclassid,download.dateandtime,download.hots FROM download,Nclass where download.classid="&cstr(classid)&" and download.Nclassid=Nclass.Nclassid order by download.id desc")
else
set rs=conn.execute("SELECT Nclass.Nclassid,Nclass.Nclass,download.id,download.showname,download.classid,download.Nclassid,download.dateandtime,download.hots FROM download,Nclass where download.Nclassid=Nclass.Nclassid order by download.id desc")
end if
if rs.eof and rs.bof then %>
document.write('
<p align="center">Sorry! 沒有軟件</p>
');
<% else
news=1
do while not rs.eof%>
document.write('<table width="100%" height="15" border="0" cellpadding="0" cellspacing="0"><tr><td background="images/news_bg.gif"><FONT color="#666666">[</font><A href="softdown/default.asp?classid=<%=rs("classid")%>&nclassid=<%=rs("nclassid")%>"><FONT color="#666666"><%=rs("nclass")%></font></A><FONT color="#666666">]</font>[<%=day(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=year(rs("dateandtime"))%>]<A href="softdown/list.Asp?id=<%=rs("id")%>" title="<%=rs("showname")%>" target="_blank"><%if len(rs("showname"))>16 then%><%=left(rs("showname"),16)%>... <%else%><%=rs("showname")%><%end if%></A> <%if rs("dateandtime")>=date() then%><FONT color="#ff0000">new</FONT><%end if%><%if rs("hots")=1 then%><FONT color="#ff0000">(推薦)</FONT><%end if%></TD></TR></table><TR><TD>');
<% news=news+1
if news>shu then exit do
rs.movenext
loop
end if
Rs.Close
set Rs=nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -