showdown.asp

本系统是一套开源WEB的网站管理系统

				  <td valign="middle" align="center" class="bt br">相关地址：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<a href="<%=rs("down_guanfang")%>" target="_blank">官方主页</a>&nbsp; <a href="<%=rs("down_demo")%>" target="_blank">演示地址</a></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br bb">下载浏览：</td>
				  <td valign="middle" align="left" class="bt br bb">&nbsp;下载：<%=rs("down_dcount")%> | 浏览：<%=rs("down_clicks")%></td>
				</tr>
			  </table></td>
			<td width="300" valign="middle" class="bb"><table width="100%" border="0" cellpadding="0" cellspacing="0" style="table-layout:fixed;word-break:break-all;">
				<tr> 
				  <td width="300" height="250" align="center">
				  <%if rs("imgurl")="" then 
				  response.write("<img src=""images/nophoto.gIf"" align=""absmiddle"" border=""0"" width=""298"" height=""248"">")
				  else
				  dim imgurl:imgurl=bbimg("<img src="""&rs("imgurl")&""" align=""absmiddle"" border=""0"">",300)
				  response.write(imgurl)
				  end if%>
				  </td>
				</tr>
			  </table></td>
		  </tr>
		  </tbody>
		  <tbody>
		  <tr> 
			<td colspan="2" valign="middle" class="aboutTitle">∷相关简介∷</td>
		  </tr>
		  </tbody>
		  <tbody>
		  <tr> 
			<td width="100%" height="30" colspan="2"><div class="down_sum"><%=rs("down_content")%></div><iframe width="0" height="0" name="error"></iframe></td>
		  </tr>
		  </tbody>
		  <tr> 
			<td colspan="2" class="downurl"><font color="#333333"><b>下载地址：</b></font>
			<%
			if popedom>0 then
				if session(userVar)=userVal then
					userInfo=session("userInfo")
					if popedom=1 then
						if cint(userInfo(2))>=1 then
							if cint(userInfo(3))<jifen then
								response.write("很遗憾，您的"&pointName&"不足，此下载需要"&pointName&" "&jifen&" "&pointUnits&"以上，目前您的"&pointName&"为"&userInfo(3))
							else
								response.write(geturl(rs("id"),rs("down_url"),"opensoft.asp",money))
							end if
						else
							response.write("<font color=""#ff0000"">此下载需会员以上级才能下载，请<a href=""logon.asp"">登录</a>或<a href=""user_reg.asp"">注册</a>成为本站会员！</font>")
						end if
					elseif popedom=2 then
						if cint(userInfo(2))>=2 then
							if getBuyUser(buyuser,userInfo(1))=true then
								isbuy=1
							else
								isbuy=0
							end if
							if isbuy=0 and money>0 then
								if cint(userInfo(4))<money then
									response.write("很遗憾，您的"&moneyName&"不足，此下载需消费<font color=""#ff0000"">"&money&"</font>"&moneyUnits&moneyName&"，目前您有<font color=""#ff0000"">"&userInfo(4)&"</font>"&moneyName&"，请与我们联系尽快充值！")
								else
									response.write(geturl(rs("id"),rs("down_url"),"opensoft.asp",money))
								end if
							else
								response.write(geturl(rs("id"),rs("down_url"),"opensoft.asp",0))
							end if
						else
							response.write("<font color=""#ff0000"">此下载需VIP会员以上级才能下载，目前您的权限不够！</font>")
						end if
					end if
				else
					response.write("<font color=""#ff0000"">此下载需会员以上级才能下载，请<a href=""logon.asp"">登录</a>或<a href=""user_reg.asp"">注册</a>成为本站会员！</font>")
				end if
			else
				response.write(geturl(rs("id"),rs("down_url"),"opensoft.asp",0))
			end if%></td>
		  </tr>
		  <tr> 
			<td colspan="2" class="aboutTitle">∷相关搜索∷</td>
		  </tr>
		  <tr>
		  	<td colspan="2" class="aboutLine">
			<div><img src="images/zhongsou.gif">搜索更多“<a id="searhKey" style="color:#ff0000;" href="http://p.zhongsou.com/p?w=<%=rs("down_title")%>&k=zhongsouskeyword&aid=B0100128025"><%=rs("down_title")%></a>”相关内容</div>
			<div><img src="images/baidu.gif">搜索更多“<a id="searhKey" style="color:#ff0000;" href="http://www.baidu.com/s?wd=<%=rs("down_title")%>&tn=ibaidukeysword"><%=rs("down_title")%></a>”相关内容</div>
			</td>
		  </tr>
		  <tr> 
			<td colspan="2" class="aboutTitle">∷相关教程∷</td>
		  </tr>
		  <tr>
		  	<td colspan="2" class="aboutLine">
			<%If rs("down_keyword")<>"" Then	
				sql="select top "&downAboutNum&" * from ms_art where art_keyword in ("""&rs("down_keyword")&""") or art_keyword like ""%"&rs("down_keyword")&"%"""		
				Set aArt=conn.Execute(sql)
				If Not aArt.Eof And Not aArt.Bof Then
				Do While Not aArt.Eof
					Response.Write("<span>☉<a href=showart.asp?id="&aArt("id")&">"&aArt("Art_title")&"</a></span><BR>")
				aArt.MoveNext
				Loop
				Else
					Response.Write("<font color=#777777>☉没有相关教程</font>")
				End If
				aArt.close
			Else
				Response.Write("<font color=#777777>☉没有相关教程</font>")
			End If
			%>
			</td>
		  </tr>
		  <tr> 
			<td colspan="2" class="aboutTitle">∷下载说明∷</td>
		  </tr>
		  <tr>
			<td colspan="2" class="aboutLine">·如果您发现该软件不能下载，单击[<a href="showdown.asp?action=error&id=<%=rs("id")%>" target="error"><font color=#ff0000>报错</font></a>]或给我们[<a href="guestbook.asp" target="_blank"><font color=#ff0000>留言</font></a>]。<br>
			  ·为了保证您快速的下载,推荐使用[<font color=#ff0000>网际快车</font>]等专业工具下载. <br>
			  ·为确保所下软件能正常使用,请使用[<font color=#ff0000>WinRAR v3.4</font>]或以上版本解压本站软件.<br>
			  ·站内软件包含破解及注册码均由网上搜集,若无意中侵犯到您的权利,敬请来信联系我们. <br>
			  ·如果下载回来的部分压缩包需要解压密码的话，解压密码就是：<font color=#ff0000>www.maosin.com</font> </td>
		  </tr>
		  <%if rs("allow_pl") then
			sql="select * from ms_down_pl where id="&rs("id")&" order by pl_date desc"
			Set plrs=Server.CreateObject("ADODB.RecordSet")
			plrs.Open sql,connstr,1,1
			plrs.pagesize=downPlNum
			%>
		  <tr> 
			<td colspan="2" class="aboutTitle">∷相关评论∷（共<font color="#ff0000"><%=plrs.recordcount%></font>条 显示最新<font color="#ff0000"><%=downPlNum%></font>条。评论内容只代表网友观点，与本站立场无关！） </td>
		  </tr>
		  <tr>
		  	<td height="30" colspan="2" class="plContent">
		  <%
		  	If Not plrs.Eof And Not plrs.Bof Then
				line=1
				Do While Not plrs.Eof and line<=plrs.pagesize
					Response.Write("<span><img src=images/pl_1.gIf align=absmiddle>"&plrs("pl_name")&" &nbsp;打分：<font color=""#ff0000"">"&plrs("pl_fen")&"</font>&nbsp; 发表时间："&plrs("pl_date")&" [来自："&plrs("pl_ip")&"]</span><BR>")
					Response.write("<span class=""plLine"">"&plrs("pl_content")&"</span><BR>")
					plrs.MoveNext
					line=line+1
				Loop
				Response.write("<div class=""plall""><a href=pl.asp?pltype=down&id="&id&"&title="&rs("down_title")&">查看全部评论</a></div>")
			Else
				Response.Write("<font color=#777777>暂时没有相关评论！</font>")
			End If
			plrs.close
		  %>
			</td>
		  </tr>
		  <tr> 
			<td colspan="2" class="aboutTitle"><div class="rtitle_text">∷发表评论∷</div></td>
		  </tr>
		  <tr>
		  	<td colspan="2"><%Call plModule()%></td>
		  </tr>
		 <%else%>
		  <tr> 
			<td height="25" valign="middle" colspan="2" align="center"><div class="plClose">【此下载评论已关闭】</div></td>
		  </tr>
		 <%end if%>
	</table>
<%
rs.Close
Set rs=Nothing
End Sub
function geturl(id,urlstr,linkurl,clueOn)
urlrs=split(urlstr,"|")
for i=0 to ubound(urlrs)
	url=split(urlrs(i),"$:")
	if clueOn>0 then
	geturl=geturl&"<a href="""&linkurl&"?id="&id&"&rsid="&i&""" onclick=""javascript:{if(confirm('此下载需消费 "&clueOn&" "&moneyUnits&moneyName&"。\n您确定要购买下载吗?')){return true;}else{return false}}"">"
	else
	geturl=geturl&"<a href="&linkurl&"?id="&id&"&rsid="&i&">"
	end if
	if cstr(ubound(url))<"1" then
		geturl=geturl&"<img src=""images/downurl.gif"" border=""0"" align=""absmiddle"">地址"&i+1&"</a>"
	else
		geturl=geturl&"<img src=""images/downurl.gif"" border=""0"" align=""absmiddle"">"&url(1)&"</a> "
	end if
next
end function
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: [e-mail] , [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>