⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 showdown.asp

📁 主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛
💻 ASP
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
dim founderr
founderr=false
if request.querystring("soft_id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('请指定操作的对象!');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("soft_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法!');javascript:history.back();</script>"
  end if
end if

set rs=conn.execute("select soft_id,soft_rcount from soft")
sql="UPDATE soft SET soft_rcount = soft_rcount + 1  WHERE soft_id="&request.querystring("soft_id")
conn.execute (sql)
rs.close
set rs=nothing
sql="select * from soft where soft_id="&request.querystring("soft_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
start="-"+rs("soft_name")+"--下载中心 - 下载文件"
call head()
call menu()
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<TR><TD class=l></TD><TD class=m height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='down.asp'>下载中心</a>" & vbCrLf
Response.Write " - <a href=""down.asp?cat_id="&rs("soft_catid")&""">"&rs("soft_catname")&"</a> - <a href=""down.asp?cat_id="&rs("soft_catid")&"&class_id="&rs("soft_classid")&""">"&rs("soft_classname")&"</a>"  & vbCrLf
Response.Write "</TD><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""下载文件"");</SCRIPT>"
Response.Write "<table width=""100%""  border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
%>
<tr> 
          <td width=100% colspan=3 align="center" HEIGHT=30><b><font color=ff6600><b><%=rs("soft_name")%></b></font><b></td>
        </tr> 
        <tr> 
          <td height="25" align="center" width="15%">加入时间</td>
          <td width="35%" ><%=rs("soft_joindate")%> </td>
<td rowspan="8" align="center" width="65%" valign="middle">
<%if rs("soft_showpic")<>"" then%><a href="<%=rs("soft_showpic")%>" title="<%=rs("soft_showpic")%>" target=_blank><img src='<%=rs("soft_showpic")%>' border='0' onload="javascript:DownImage(this);" title="按此在新窗口打开图片" onmouseover="this.style.cursor='hand';" onclick="window.open(this.src);"></a><%else%><img src='img/none.gif' border='0'><%end if%></td>
</tr>
        <tr> 
          <td height="25" align="center" width="15%">程序类别</td>
          <td width="35%"><%=rs("soft_classname")%></td>
        </tr>
        <tr> 
          <td height="25" align="center">文件大小</td>
          <td ><%=rs("soft_size")%> </td>
</tr>
        <tr> 
          <td height="25" align="center">授权方式</td>
          <td ><%=rs("soft_mode")%> </td>
        </tr>
        <tr> 
          <td height="25" align="center">应用平台</td>
          <td ><%=rs("soft_roof")%> </td>
</tr>
        <tr> 
          <td height="25" align="center">推荐程度</td>
          <td ><img src="img/star<%=rs("soft_commend")%>.gif"align="absmiddle"></td>
        </tr>
        <tr> 
          <td height="25" align="center">程序演示</td>
          <td > 
            <%if rs("soft_home")<>"" then%>
            <a href="<%=rs("soft_home")%>" title="<%=rs("soft_home")%>" target="_blank"><font color="#009900">主页</font></a> 
            <%end if%>
            <%if rs("soft_demo")<>"" then%>
            <a href="<%=rs("soft_demo")%>" title="<%=rs("soft_demo")%>" target=_blank><font color="#009900">演示</font></a>  
            <%end if%>
          </td>
</tr>
        <tr> 
          <td height="25" align="center">下载浏览</td>
          <td >下载:<%=rs("soft_dcount")%> 浏览:<%=rs("soft_rcount")%></td>
        </tr>
        <tr> 
          <td width=100% colspan=3 style="display:block;padding:0px 10px;LINE-HEIGHT: 180%">&nbsp;&nbsp;<b>相关简介:</b><br>&nbsp;&nbsp;<font color=000000><%=ubb2html(formatStr(autourl(rs("soft_desc"))), true, true)%></font>  </td>
        </tr> 
<tr> 
          <td height="25" align="center">下载地址</td>
          <td colspan=3 bgcolor="#FFFFFF">
 <%if rs("soft_url1")<>"" then%>
<a href="opensoft.asp?soft_id=<%=rs("soft_id")%>&url=1" title="本地高速下载">本地下载</a> <font class="view">[推荐]</font>
<%end if%> 
            <%if rs("soft_url2")<>"" then%>
            <a href="opensoft.asp?soft_id=<%=rs("soft_id")%>&url=2" title="镜像站高速下载">镜像下载</a> <font class="view">[推荐]</font> 
            <%end if%>
            <%if rs("soft_url3")<>"" then%>
            <a href="opensoft.asp?soft_id=<%=rs("soft_id")%>&url=3" title="远程下载一" target='_blank'>远程下载一</a> 
            <%end if%>
            <%if rs("soft_url4")<>"" then%>
            <a href="opensoft.asp?soft_id=<%=rs("soft_id")%>&url=4" title="远程下载二" target='_blank'>远程下载二</a> 
            <%end if%>
          </td>
        </tr></table>
<SCRIPT type=text/javascript>lanyutable("相关说明");</SCRIPT>
<table align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
    <TR> 
      <TD style="display:block;padding:0px 10px;LINE-HEIGHT: 180%"> 
☉为确保正常使用请使用 <a href="down.asp?colname=soft_name&keyword=rar" target='_blank'><font color=blue>WinRAR v3.40</font></a> 以上版本解压本站软件。<br>
☉本站下载的文件解压密码未提示,解压密码默认为[ <font color=red>fj126.net</font> ]<br>
☉如有其它问题,欢迎<a href='mailto:<%=webmail%>' Title='给站长写信'><font color=green>联系我们</font></a>,谢谢!<br> 
      </TD>
    </TR>  
</table>
<SCRIPT type=text/javascript>lanyutable("相关评论<font class='view'><%=rs("reviewcount")%></font>篇,当前显示最新的<font class='view'>5</font>篇");</SCRIPT>
<table width="98%" align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
<%if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to 5%>
<tr><td style="LINE-HEIGHT: 180%"><%=temp(i)%></td></tr>
<%
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr><td align="right"><a href="view.asp?action=down&soft_id=<%=request.querystring("soft_id")%>">查看全部评论</a>&nbsp;&nbsp;</td></tr>  
</table>
<SCRIPT type=text/javascript>lanyutable("发表评论");</SCRIPT>
<form action="viewsave.asp?action=down&soft_id=<%=request.querystring("soft_id")%>" method="POST" name="form" onsubmit="return checkRemark();">
		<table width="100%" cellpadding="5" cellspacing="0" border="0">
<tr><td  align="center"><input type="radio" value="1" name="face" checked>
        <img src="img/mood1.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="2" name="face">
        <img src="img/mood2.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="3" name="face">
        <img src="img/mood3.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="4" name="face">
        <img src="img/mood4.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="5" name="face">
        <img src="img/mood5.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="6" name="face">
        <img src="img/mood6.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="7" name="face">
        <img src="img/mood7.gif" tppabs="" width="15" height="15"> <br>
        <input type="radio" value="8" name="face">
        <img src="img/mood8.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="9" name="face">
        <img src="img/mood9.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="10" name="face">
        <img src="img/mood10.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="11" name="face">
        <img src="img/mood11.gif" tppabs="" width="15" height="15"> 
        <input type="radio" value="12" name="face">
        <img src="img/mood12.gif" tppabs="" width="15" height="15">&nbsp;字数:<input type='text' value='0' id='reviewLen' size='2' style='border-width:0;background:transparent;'><font title='等于或小于255个字!'>≤255</font><br>
			点评:<textarea name="review" cols="54" rows="3" onkeydown="showLen(this)" onkeyup="showLen(this)"></textarea>
			<br>
                        邮箱:<input type="text" name="reviewemail" value="" maxlength="25" size="27" autocomplete="off"/>
			姓名:<input type="text" name="reviewname" value="" maxlength="25" size="20" autocomplete="off"/><br>
			<input type="submit" name="submit" value="发表"  onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"> <input type="reset" value="重填" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"></td>
		<td width="350">
		<ul style="list-style-type:square;margin-left:1em;line-height:180%">
		<li>尊重网上道德,遵守中华人民共和国的各项有关法律法规</li>
		<li>承担一切因您的行为而直接或间接导致的民事或刑事法律责任</li>
		<li>本站管理人员有权保留或删除其管辖留言中的任意内容</li>
		<li>本站有权在网站内转载或引用您的评论</li>
		<li>参与本评论即表明您已经阅读并接受上述条款</li>	
		</ul>
		</td></tr>
		</table>
        </form>
</div>
</TD>
</TR></TBODY></TABLE>
<%
call footer()%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -