down.asp

来自「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户」· ASP 代码 · 共 64 行

<!--#include file="../conn.asp"-->
<%
  IDx=Request.QueryString("ID")
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="SELECT top 1 * from DownFile where ID="&IDx&" "
  rs.open sql,conn,1,1
  If rs.bof and rs.eof then
    Response.Write "参数有误!!!"
    rs.close
  Else
  tj=rs("TJ")
  tjnum=rs("tjnum")
  dress=rs("DownDress")
  username=Request.Cookies("username")
  user=rs("user")
  rs.close
  'Response.Write "媒体地址"&dress
  'Response.Write "播放条件"&tj
  'Response.Write "操作数值"&tjnum
  'Response.Write "播放格式"&Request.QueryString("ks")
  'Response.Write user
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="SELECT top 1 * from 用户资料 where 用户名='"&username&"' "
  rs.open sql,conn,1,3
  if not(rs.BOF and rs.EOF) then
      select case tj
      case "支付金钱"
          if rs("金钱")<cint(tjnum) then
              Response.Write "金钱不足"
              Response.End
          else
              rs("金钱")=rs("金钱")-cint(tjnum)
              rs.Update
              rs.Close
              conn.execute("update 用户资料 set 金钱=金钱+"&tjnum&" where 用户名='"&User&"' ")'登陆后要处理的帐号数据
          end if
      case "声望限止"
          if rs("声望")<cint(tjnum) then
              Response.Write "声望不足"
              Response.End
          end if
      case "积分限止"
          if rs("积分")<cint(tjnum) then
              Response.Write "积分不足"
              Response.End
          end if
      case "经验限止"
          if rs("经验")<cint(tjnum) then
              Response.Write "经验不足"
              Response.End
          end if
      case "帖子数限止"
          if (rs("主题数")+rs("回帖数"))<cint(tjnum) then
              Response.Write "帖子数不足"
              Response.End 
          end if
      end select
  else
      Response.Write "你尚未登陆"
      Response.End
  end if
  Response.Redirect dress
End if
%>