index.asp
来自「超炫电台程序开发了两个版本了」· ASP 代码 · 共 642 行 · 第 1/2 页
ASP
642 行
loop
end if
rs.close
%>
</td>
</tr>
<tr>
<td height="1" bgcolor=""></td>
</tr>
<tr>
<td height="135"> </td>
</tr>
</table></TD>
</TR></TBODY></TABLE>
<TABLE id=table28 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD> </TD>
</TR>
<TR>
<TD align=center valign="top"><table width="213" border="0" cellspacing="10">
<tr>
<td width="104" height="46"><a href="http://www.cx0574.cn/" target="_blank"></a></td>
<td width="96" align="center" valign="middle"><a href="http://www.yystudent.com/" target="_blank"></a></td>
</tr>
<tr>
<td height="50"><a href="http://www.chinavnet.com/chpage/c1/" target="_blank"></a></td>
<td><a href="http://www.163888.net/radio/" target="_blank"></a></td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE></TD>
<TD width=10><IMG height=63
src="../img/trans.gif"
width=10></TD>
<TD vAlign=top align=middle width=494>
<TABLE id=table7 cellSpacing=0 cellPadding=0 width=494 border=0>
<TBODY>
<TR>
<TD>
<TABLE id=table19 cellSpacing=0 cellPadding=0 width=494 border=0>
<TBODY>
<TR>
<TD width=22><IMG height=39
src="../img/menu_left.gif"
width=22 border=0></TD>
<TD>
<TABLE id=table20 height=39 cellSpacing=0 cellPadding=0
border=0>
<TBODY>
<TR>
<TD width=1><IMG height=39
src="../img/menu_line.gif"
width=1 border=0></TD>
<TD width=64><a href="../index1.asp"><img src="../img/index.png" width="64" height="39" border="0"></a></TD>
<TD width=64><a href="../cy.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image33','','../img/menu2.gif',1)"><img src="../img/menu2.png" name="Image33" width="64" height="39" border="0"></a></TD>
<TD width=64><img src="../img/menu3.png" width="64" height="39"></TD></A>
<TD width=64><a href="../jc.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image35','','../img/menu4.png',1)"><img src="../img/menu4.gif" name="Image35" width="64" height="39" border="0"></a></TD>
<TD width=64><a href="../dg.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image36','','../img/menu6.png',1)"><img src="../img/menu6.gif" name="Image36" width="64" height="39" border="0"></a></TD>
<TD width=64><a href="../down.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image37','','../img/menu77.png',1)"><img src="../img/menu7.png" name="Image37" width="64" height="39" border="0"></a></TD>
<TD width=64><a href="../bbs/" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image38','','../img/menu5.png',1)"><img src="../img/menu5.gif" name="Image38" width="64" height="39" border="0"></a></TD>
<TD width=1><IMG height=39
src="../img/menu_line.gif"
width=1 border=0></TD></TR></TBODY></TABLE></TD>
<TD width=22><IMG height=39
src="../img/menu_right.gif"
width=22 border=0></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE id=table8 cellSpacing=0 cellPadding=10 width="100%"
background="../img/linebg.gif"
border=0>
<TBODY>
<TR>
<TD class=bg vAlign=top align=middle
background="../img/jb.gif"
height=643> <table width="454" height="367" border="0" cellspacing="4">
<tr>
<td width="444" height="359" valign="top"><table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="1" align="center" bgcolor="#999999">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td><table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td style="FONT-SIZE: 9pt; LINE-HEIGHT: 15pt" align=middle
height=12><font color=#993300>: :<a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftName&updown=desc" title="点击按升序排列" class="title0"><%=SoftDownName%></a>: : </font></td>
</tr>
<tr>
<td bgcolor=#0086EE height=2></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="195" valign="top"><table width="100%" border="0" cellspacing="00" cellpadding="0" align="center">
<tr>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" bgcolor="#FFFFFF" ><%
if request("CateID")<>"" and request("SubCateID")<>"" then
sql="select SoftID,SoftName,SoftVer,Content,SoftTime,LicenceType,Rank,AllHits,isCommend from "&CategoryName&"_SoftInfo where "&CateID&" "&SubCateID&" "
sql=sql&" order by "&order_name&" "&updown
end if
if request("CateID")<>"" and request("SubCateID")="" then
sql="select SoftID,SoftName,SoftVer,Content,SoftTime,LicenceType,Rank,AllHits,isCommend from "&CategoryName&"_SoftInfo where "&CateID&" "
sql=sql&" order by "&order_name&" "&updown
end if
if request("CateID")="" and request("SubCateID")="" then
sql="select top 200 SoftID,SoftName,SoftVer,Content,SoftTime,LicenceType,Rank,AllHits,isCommend from "&CategoryName&"_SoftInfo "
sql=sql&" order by "&order_name&" "&updown
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<table><tr><td border='0' width='100%' height='100%' cellspacing='1' cellpadding='0' bgcolor='#FFFFFF'><p align='center'>没有或没有找到任何软件</p></td></tr></table>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"index.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"index.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"index.asp"
end if
end if
set rs=nothing
end if
sub showContent
dim i
i=0
%>
<table width="100%" border=0 cellpadding=2 cellspacing=1 bgcolor="#F7F7F7">
<%if request("updown")="" then%>
<tr height=22 >
<td background="images/index-t.gif" width=310 > <a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftName&updown=desc" title="点击按升序排列" class="title0">标题</a></td>
<td background="images/index-t.gif" align="center" nowrap><a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=LicenceType&updown=desc" title="点击按升序排列" class="title0">演唱者</a></td>
<td background="images/index-t.gif" align="center" nowrap><a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=AllHits&updown=desc" title="点击按升序排列" class="title0">人气</a></td>
<td background="images/index-t.gif" align="center" nowrap><a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftTime&updown=desc" title="点击按升序排列" class="title0">发布日期</a></td>
</tr>
<%else %>
<tr height=22>
<td background="images/index-t.gif" width=310> <a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftName" title="点击按降序排列" class="title0">标题</a></td>
<td background="images/index-t.gif" align="center" nowrap ><a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=LicenceType" title="点击按降序排列" class="title0">演唱者</a></td>
<td background="images/index-t.gif" align="center" nowrap ><a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=AllHits" title="点击按降序排列" class="title0">人气</a></td>
<td background="images/index-t.gif" align="center" nowrap ><a href="index.asp?CateID=<%=request("CateID")%>&SubCateID=<%=request("SubCateID")%>&order=SoftTime" title="点击按降序排列" class="title0">发布日期</a></td>
</tr>
<% end if
do while not rs.eof%>
<tr>
<td width=310 bgcolor="#FFFFFF"><img src="images/list.gif" align="absmiddle" border="0"> <a href="SoftView.asp?SoftID=<%=rs("SoftID")%>" class="ArticleList"><%=rs("SoftName")&" "&rs("SoftVer")%></a>
<% if rs("isCommend") then Response.Write("<font color=red>推荐</font>") %>
</td>
<td align=center nowrap bgcolor="#FFFFFF"><%=trim(rs("LicenceType"))%></td>
<td align=center nowrap bgcolor="#FFFFFF"><%=rs("AllHits")%></td>
<td align=center nowrap bgcolor="#FFFFFF"><% if rs("SoftTime")=Date() then
response.write "<font color=red>"&rs("SoftTime")&"</font>"
else
response.write rs("SoftTime")
end if %>
</td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF"><%if len(trim(rs("Content")))>118 then%>
· <%=left(trim(rs("Content")),118)%>...
<%else%>
· <%=trim(rs("Content"))%>
<%end if%>
</td>
</tr>
<tr >
<td height="1" colspan="4" background="images/bgline.gif" bgcolor="#FFFFFF"></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
rs.close
%>
</table>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<table cellspacing=1 width='100%' border=0 colspan='4' ><form method=Post action="&filename&"?CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&"><tr><td align=center> "
response.write "<p><font color='red'>"&SoftDownName&"</font> "
if CurrentPage<2 then
response.write ""&totalnumber&"首 首页 上一页 "
else
response.write ""&totalnumber&"首 <a href="&filename&"?page=1&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&CateID="&request("CateID")&"&SubCateID="&request("SubCateID")&"&order="&request("order")&"&updown="&request("updown")&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>首歌/页 "
%>
转到：
<select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<%
response.write "</td></tr></FORM></table>"
end function
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE id=table17 cellSpacing=0 cellPadding=0 width=732 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=228><IMG height=16
src="../img/left_down.gif"
width=228> </TD>
<TD width=10><IMG height=10
src="../img/trans.gif"
width=10></TD>
<TD vAlign=top align=middle width=494><IMG height=16
src="../img/second_bg.gif"
width=494> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD height=6></TD>
</TR>
<TR>
<TD align=middle height=12><TABLE height=1 cellSpacing=0 cellPadding=0 width="96%" bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD height=1><IMG height=1
src="img/trans.gif"
width=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align=middle height=19><FONT
style="FONT-SIZE: 12px; COLOR: #3b3b3b"><FONT
color=#ffffff><FONT
color=#ffffff><a href=# onClick="window.open('../up.html','','width=650,hight=380,toolbar=no,status=no,resizable=no,scrolbars=no');" >关于我们</a> | <a href="javascript:alert('只有想不到 没有做不到 UP!RADIO就在网络最中心')" target="_top"><FONT
color=#ffffff>About</FONT></a> | <a href="/blog/">BLOG</a> | <A
href="javascript:alert('即将开放！')" target=_top><FONT
color=#ffffff>广告服务</FONT></A> | <FONT
color=#ffffff><a href=# onClick="window.open('../rencai.html','','width=763,hight=647,toolbar=no,status=no,resizable=no,scrolbars=no');" >人才招聘</a> | <A
href="javascript:alert('UP!RADIO听众群：27017130')" target=_top><FONT
color=#ffffff>客服中心</FONT></A></FONT></font></TD>
</TR>
<TR>
<TD height=12></TD>
</TR>
<TR>
<TD align=middle> </TD>
</TR>
<TR>
<TD align=middle><FONT style="FONT-SIZE: 12px; COLOR: #ffffff">Copyright ©
2007 shuozhi100.com Inc. All Rights Reserved<BR>
UP!声音工厂 <FONT
color=#ffffff>版权所有</FONT></FONT></TD>
</TR>
<TR>
<TD height=12></TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?