📄 list.asp
字号:
<td width="231" bgcolor="#FFFFFF"><%=rs("system")%></td>
</tr>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">授权方式：</td>
<td width="231" bgcolor="#FFFFFF"><%=rs("orders")%></td>
</tr>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">软件大小：</td>
<td width="231" bgcolor="#FFFFFF"><%=rs("size")%></td>
</tr>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">软件评价：</td>
<td width="231" bgcolor="#FFFFFF"><img src="images/star<%=rs("hot")%>.gif"></td>
</tr>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">整理日期：</td>
<td width="231" bgcolor="#FFFFFF"><%=rs("dateandtime")%></td>
</tr>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">相关链接：</td>
<td width="231" bgcolor="#FFFFFF">
<%if rs("fromurl")<>"" then%>
<a target="_blank" href="<%=rs("fromurl")%>"><%=rs("fromurl")%></a>
<%end if%>
</td>
</tr>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">下载次数：</td>
<td colspan="2" bgcolor="#FFFFFF">本日：<%=rs("dayhits")%> 本周：<%=rs("weekhits")%> 总计：<%=rs("hits")%></td>
</tr>
<tr>
<td width="80" align="right" nowrap valign="top" bgcolor="#FFFFFF">软件简介：</td>
<td colspan="2" bgcolor="#FFFFFF"><%=rs("note")%></td>
</tr>
<tr>
<td nowrap bgcolor="#FFFFFF" colspan="3"><font color="#FFFFFF">· </font>
下载地址：（请不要用右键的“目标另保存为”下载）</td>
</tr>
<%
if session("user")="" and rs("club")<>"" then
%>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">下载地址：</td>
<td colspan="2" bgcolor="#FFFFFF"><font color="#FF0000">此为会员软件，请注册成我们的会员</font></td>
</tr>
<%
else
if rs("filename")="" and rs("filename1")="" and rs("filename2")="" then
%>
<tr>
<td width="80" height="19" align="right" nowrap bgcolor="#FFFFFF">下载地址：</td>
<td colspan="2" height="19" bgcolor="#FFFFFF">暂时没有下载</td>
</tr>
<%
else
if rs("movie")<>"" then
if rs("movie")="win" then
play="playwin.asp"
pimg="images/win.gif"
else
play="playrm.asp"
pimg="images/rm.gif"
end if
%>
<script language="JavaScript">
function windowOpen(loadpos)
{controlWindow=window.open(loadpos,"surveywin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=610,height=400,status=yes,resizable=yes");
}
</script><%else%>
<%if rs("filename")<>"" then%>
<tr>
<td width="570" height="19" align="left" nowrap bgcolor="#FFFFFF" colspan="3">
<table border="0" cellpadding="0" cellspacing="0" id="table3">
<tr>
<%if rs("filename")<>"" then%> <td width="98">
<table border="0" cellpadding="0" cellspacing="0" width="101" id="table4">
<tr>
<td height="19" bgcolor="#FFFFFF" width="99"> <img height="15" src="images/filebox.gif" width="20" border="0"><a href="download.asp?downid=1&id=<%=rs("id")%>" target="_blank">本地下载</a>
</td>
</tr>
</table>
</td>
<%end if%>
<%if rs("filename1")<>"" then%>
<td width="100">
<table border="0" cellpadding="0" cellspacing="0" width="96" id="table5">
<tr>
<td bgcolor="#FFFFFF" width="94"> <img height="15" src="images/filebox.gif" width="20" border="0"><a href="download.asp?downid=2&id=<%=rs("id")%>" target="_blank">汕头电信下载</a>
</td>
</tr>
</table>
</td>
<%end if%>
<%if rs("filename2")<>"" then%>
<td width="100">
<table border="0" cellpadding="0" cellspacing="0" width="96" id="table6">
<tr>
<td bgcolor="#FFFFFF" width="94"> <img height="15" src="images/filebox.gif" width="20" border="0"><a href="download.asp?downid=3&id=<%=rs("id")%>" target="_blank">深圳电信下载</a>
</td>
</tr>
</table>
</td> <%end if%>
<%end if%>
<%end if%>
<%end if%>
</tr>
</table>
</td>
</tr>
<tr>
<td width="80" align="right" nowrap valign="top" bgcolor="#FFFFFF">他站搜索：</td>
<td colspan="2" bgcolor="#FFFFFF"> <img height="15" src="images/filebox.gif" width="20" border="0"><a href="http://www1.baidu.com/baidu?tn=waves&word=<%=rs("showname")%>" target="_blank">点击这里到其他网站下载<%=rs("showname")%></a></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="80" nowrap>
<p align="right">相关软件：
</td>
<center>
<td colspan="2" bgcolor="#FFFFFF">
<% set rs_xg=server.createobject("adodb.recordset")
sql_xg="select * from download where id<>"&rs("id")&" and showname like '%"&rs("showname")&"%' order by id desc"
rs_xg.open sql_xg,conn,1,1
if rs_xg.eof and rs_xg.bof then
response.write ("没有相关软件")
else
do while not rs_xg.eof
response.write "<a href=list.asp?id="&rs_xg("id")&" target=_blank>"&rs_xg("showname")&" "&rs_xg("bb")&"</A><br>"
rs_xg.movenext
loop
end if
rs_xg.close
set rs_xg=nothing%> <%end if%>
</td>
</center>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="570" nowrap valign="top" colspan="3">
<p align="left"><font color="red">＊</font>为了达到最快的下载速度，推荐使用<a href="http://down.ydxp.com/soft.asp?id=879"><font color="#ff0000">网际快车</font></a>下载本站软件。<br>
<font color="red">＊</font>如果您发现该软件不能下载，请通知<a href="mailto:<%=SystemEmail%>"><font color="#ff0000">管理员</font></a>，谢谢！<br>
<font color="red">＊</font>未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自<a href="javascript:window.external.addFavorite('http://www.ydxp.com','粤东视窗')"><font color="#ff0000">本站</font></a>，谢谢
！
</td>
</tr>
</table></TD></TR>
</table>
</div>
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="footer.asp" -->
</CENTER></BODY></HTML>
<%
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i1,ThisCharCode,NextCharCode
strReturn = ""
For i1 = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i1,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i1+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i1 = i1 + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -