syscode_down.asp

后台登陆admin.asp

elseif request("select")<>"" then
Response.Write "共搜索到"
else
Response.Write "当前共有"
end if
Response.Write "<span>"&rssoft.recordcount&"</span>个文件</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
if not rssoft.eof then
   Dim Hx_Nums,MultiPages,i
   Rssoft.PageSize=Hxperpage
   Rssoft.AbsolutePage=CurPage
   Hx_Nums=Rssoft.RecordCount
   MultiPages="<tr><td colspan=""4"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rssoft.EOF OR i=Hxperpage
if rssoft("istop")="1" then      
folder="<img src=""img/1.gif"" title=固顶软件>"       
else
folder="<img src=""img/4.gif"" title=普通软件>"       
end if      
if rssoft("istop")="0" then      
if rssoft("isbest")=1 then
folder="<img src=""img/2.gif"" title=推荐软件>"
elseif rssoft("soft_rcount")>=popsoftnum then
folder="<img src=""img/3.gif"" title=热门软件>"      
else
folder="<img src=""img/4.gif"" title=普通软件>"       
end if      
end if 
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if          
Response.Write "<tr>"
Response.Write "<td colspan='4' height='10'></td></tr>"
Response.Write "<tr><td colspan='4' height='10'>"
Response.Write "<table width='100%' border='0'><tr>"
Response.Write "<TD width='6%' align=Center>"&folder&"</TD>"
Response.Write "<td width='*'>"
if classyes=True then Response.Write "<a href='down.asp?cat_id="&rssoft("soft_catid")&"&class_id="&rssoft("soft_classid")&"'>『"&left(rssoft("soft_classname"),10)&"』</a>"
Response.Write "<a href='showdown.asp?soft_id="&rssoft("soft_id")&"' Title='查看详细内容' "& nnn &"><font color='#ff0000'>"&gotTopic(rssoft("soft_name"),nn)&"</font></a></td>"
Response.Write "<td width='50'>"
if rssoft("soft_demo")<>"" then
Response.Write "<a href='"&rssoft("soft_demo")&"' target='_blank' title='查看演示'><font color='#009900'>演示</font>"
end if
Response.Write "</td>"
Response.Write "</tr></table></td></tr>"
Response.Write "<tr><td colspan='4' height='30'>·"&cutstr(rssoft("soft_desc"),90,false,none)&"</td></tr>"
Response.Write "<tr>" 
Response.Write "<td width='20%' height='25'>&nbsp;软件大小：<font color='#000000'>"&rssoft("soft_size")&"</font></td>"
Response.Write "<td width='25%'>&nbsp;授权方式：<font color='#666666'>"&rssoft("soft_mode")&"</font></td>"
Response.Write "<td width='30%'>&nbsp;下载：<b>"&rssoft("soft_dcount")&"</b> 浏览：<b>"&rssoft("soft_rcount")&"</b></td>"
Response.Write "<td width='25%'>&nbsp;推荐程度：<img src='img/star"&rssoft("soft_commend")&".gif' align='absmiddle'></td>"
Response.Write "</tr>"
i=i+1
rssoft.movenext
loop
else
if rssoft.eof and rssoft.bof then
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td align=middle height='60' colSpan=4>"
if request("class_id")<> "" or request("cat_id")<>"" then
Response.Write "该分类暂时没有文件"
elseif request("keyword")<>"" then
Response.Write "没有找到包含[<b><font color=red>"&request("keyword")&"</font></b>]的文件！"
else
Response.Write "当前还没有提供文件下载！"
end if
Response.Write "</td></tr>" & vbCrLf
end if
end if
Response.Write "<tr><td colspan='4' height='10'></td></tr>"
Response.Write(MultiPages)
Response.Write "</TABLE>" 
rssoft.close
set rssoft=nothing
end sub

'=================================================
'过程名：content_pic
'作  用：显示软件标题、内容
'参  数：无
'Web:www.ynsky.com.cn
'=================================================
sub content_down()
if rs("Grade")="0" then
hxGrade="游客身份"
elseif rs("Grade")="1" then
hxGrade="会员身份"       
elseif rs("Grade")="2" then
hxGrade="VIP身份"       
end if      
Response.Write "<table width=""100%""  border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
Response.Write "<tr>" & vbCrLf 
Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>" & vbCrLf
Response.Write "<td width='35%'>&nbsp;"&rs("soft_joindate")&"</td>" & vbCrLf
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
if rs("soft_showpic")<>"http://www.ynsky.com.cn/" then
Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' width=360 valign='center'></a>" & vbCrLf
else
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>程序类别</td>" & vbCrLf
Response.Write "<td width='35%'>&nbsp;"&rs("soft_classname")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height='25' align='center'>文件大小</td>" & vbCrLf
Response.Write "<td>&nbsp;"&rs("soft_size")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center'>授权方式</td>" & vbCrLf
Response.Write "<td>&nbsp;"&rs("soft_mode")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height='25' align='center'>应用平台</td>" & vbCrLf
Response.Write "<td>&nbsp;"&rs("soft_roof")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height='25' align='center'>推荐程度</td>" & vbCrLf
Response.Write "<td>&nbsp;<img src='img/star"&rs("soft_commend")&".gif' align='absmiddle'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height='25' align='center'>下载权限</td>" & vbCrLf
Response.Write "<td>&nbsp;<font color=red>"&hxGrade&"</font></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height='25' align='center'>下载花费</td>" & vbCrLf
Response.Write "<td>&nbsp;<font color=red>"&rs("points")&"</font> 云圆</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height='25' align='center'>程序演示</td>" & vbCrLf
Response.Write "<td>&nbsp;" & vbCrLf
if rs("soft_home")<>"" then
Response.Write "<a href='"&rs("soft_home")&"' title='"&rs("soft_home")&"' target='_blank'><font color='#009900'>主页</font></a>" & vbCrLf 
end if
if rs("soft_demo")<>"" then
Response.Write "<a href='"&rs("soft_demo")&"' title='"&rs("soft_demo")&"' target=_blank><font color='#009900'>演示</font></a>" & vbCrLf  
end if
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height='30' align='center' width='15%'>发布会员</td>" & vbCrLf
Response.Write "<td>&nbsp;"&rs("tjuser")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height='25' align='center'>下载浏览</td>" & vbCrLf
Response.Write "<td >&nbsp;下载:"&rs("soft_dcount")&"&nbsp;&nbsp;浏览:"&rs("soft_rcount")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td width='100%' colspan=3 style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">&nbsp;&nbsp;<b>相关简介：</b><br>"&formatStr(autourl(rs("soft_desc")))&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf 
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center'>下载地址</td>" & vbCrLf
Response.Write "<td colspan=3>" & vbCrLf
if UserLogined<>True then 
    Grade=0
else 
    Grade=Hx66_Grade+1
end if
if Grade>=RS("Grade") and Hx66_points>=rs("points") then 
Response.Write "<a href='opensoft.asp?soft_id="&rs("soft_id")&"&url=1' title='直接下载'>&nbsp;<img src=img/download.gif border=0></a> " & vbCrLf
if rs("soft_url2")<>"" then
Response.Write "<a href='opensoft.asp?soft_id="&rs("soft_id")&"&url=2' title='直接下载'><font color=31D3FF><b>②</b></font></a>" & vbCrLf 
end if
if rs("soft_url3")<>"" then
Response.Write "<a href='opensoft.asp?soft_id="&rs("soft_id")&"&url=3' title='直接下载'><font color=5292FF><b>③</b></font></a>" & vbCrLf 
end if
if rs("soft_url4")<>"" then
Response.Write "<a href='opensoft.asp?soft_id="&rs("soft_id")&"&url=4' title='直接下载'><font color=31D3FF><b>④</b></font></a>" & vbCrLf 
end if
Response.Write "</td>" & vbCrLf
elseif Grade<RS("Grade") then
Response.Write "<font color=red>对不起，你的权限不够，不能下载本软件!</font>" & vbCrLf
elseif Hx66_points<rs("points") then
Response.Write "<font color=red>对不起，你的点数不足(你当前点数为：" &Hx66_points& ")，无法下载本软件。请与我们联系进行充值。</font>" & vbCrLf
end if
Response.Write "</tr></table>" & vbCrLf
end sub

'=================================================
'过程名：contextual_down
'作  用：显示软件上下个
'参  数：无
'Web:www.ynsky.com.cn
'=================================================
sub contextual_down()
set RelationArt = conn.execute("select top 1 soft_id,soft_name from soft where soft_id<"&request.querystring("soft_id")&" and passed=0 order by soft_joindate desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上个软件：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>·上个软件：</font><a href=""showdown.asp?soft_id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 soft_id,soft_name from soft where soft_id>"&request.querystring("soft_id")&" and passed=0 order by soft_id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下个软件：</font>已经没有了"   
else
Response.Write "<font color=red>·下个软件：</font><a href=""showdown.asp?soft_id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
RelationArt.close
Set RelationArt=Nothing 
end sub

'=================================================
'过程名：review_down
'作  用：显示相关软件评论
'参  数：n-显示条数；point_pic-评论开关,1-开启，0-关闭
'Web:www.ynsky.com.cn
'=================================================
sub review_down(n)
dim temp,i,j
if point_down="1" then
Response.Write "<table align=""center"" width=""98%"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
if n>=ubound(temp) then
j=ubound(temp)
else
j=n
end if
for i=1 to j
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">"& temp(i) &"</td></tr>"
next
else
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right"">相关评论<font color=#CC0000> "&rs("reviewcount")&" </font>篇，当前显示最新的<font color=#CC0000> "&n&" </font>篇。&nbsp;&nbsp;<a href=""view.asp?action=down&soft_id="&rs("soft_id")&"""> [查看更多评论] [发表我的评论]</a>&nbsp;&nbsp;</td></tr>"
Response.Write "</table>"
elseif point_down="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">"
Response.Write "<tr><td  align=""center"">【下载评论已关闭】"
Response.Write "</td></tr>"
Response.Write "</table>"
End If
rs.close
set rs=nothing
end sub

'****************************************************
%>