xz.asp

为中小型企业与欲创业的个人提供一个合适的企业型网站

<!--#include file="top.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
call head()
call menu()
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
%>
<table width="800" height="403" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" id="Table_01">
	<tr>
	  <td height="403" colspan="2" valign="top" background="images/right_06.gif"><!--#include file="Tyi86_Left_Other.asp" --></td>
		<td width="800" align="right" valign="top" background="images/t_05.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td align="center"><img src="images/zlxz.gif" width="580" height="33" alt=""></td>
          </tr>
          <tr>
            <td height="373" align="center" valign="top" background="images/t_05.gif">
              <br>
			  <TABLE width="98%" border="0" cellPadding="0" cellSpacing="0" bgcolor="#098DD4">
                <TBODY>
                  <TR>
                    <TD bgcolor="#FFFFFF"><%
    if Request.Cookies(Tyi86_Sys)("Grade")="" then 
    Grade=0
    else 
    Grade=Request.Cookies(Tyi86_Sys)("Grade")+1
    end if
    if Grade>=RS("ReadGrade") then 
    Call SoftRead()
    else
    Call SoftReadErro()
    end if
%><% sub SoftReadErro() %>
<div align="center">

<span style="letter-spacing: 3px"> 「 <%=rs("soft_name")%> 」 </span>

<br><br><br><br>
<font color="#FF0000">您的浏览权限不够！</font><br><br><br>
        这条信息要
<font color=red><%if rs("ReadGrade")=1 then%> 
本站注册用户
<%end if%>
<%if rs("ReadGrade")=2 then%> 
 通盈会员
<%end if%>
</font>
才能游览！
</div>
<% end sub %></TD>
                  </TR>
            </TABLE>
			<% sub SoftRead() %>
			<TABLE width="98%" border="0" cellPadding="0" cellSpacing="0" bgcolor="#098DD4">
                <TBODY>
                  <TR>
                    <TD bgcolor="#FFFFFF">
<div align="center">
<span style="letter-spacing: 3px"> 「 <%=rs("soft_name")%> 」 </span>
</div>
</TD>
                  </TR>
            </TABLE>
              <TABLE width="98%" border="0" cellPadding="0" cellSpacing="1" bgcolor="#098DD4">
                <TBODY>
                  <TR>
                    <TD bgcolor="#FFFFFF"><p>&nbsp;</p>
                        &nbsp;&nbsp;<%=ubb2html(formatStr(autourl(rs("soft_desc"))), true, true)%>
                      <p>&nbsp;</p></TD>
                  </TR>
            </TABLE>
              <br>
			  <TABLE width="98%" border="0" cellPadding="0" cellSpacing="1" bgcolor="#098DD4">
                <TBODY>
                  <TR>
                    <TD align="right" bgcolor="#FFFFFF"><% if rs("soft_url1")<>"" then %><INPUT type="button" onClick="location.href='opensoft.asp?soft_id=<%=rs("soft_id")%>&url=1'" value="我要下载" name="Submit4"><% end if %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
                  </TR>
            </TABLE>
			<% end sub %></td>
          </tr>
        </table></td>
	</tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>