lpdown.asp

功能强大的霸王插件源代码

<% Response.Buffer=True %>
<!--#include file="articleconn.asp"-->
<!--#include file="md5.asp"-->
<%    
dim rs
dim sql
'取用户id
userid=trim(request("userid"))
if IsNull(userid) then
  userid=""
end if
if userid="" then
  conn.close
  set conn=nothing
  response.end
end if
'取password
password=trim(request("password"))
if IsNull(password) then
  password=""
end if
if password="" then
  conn.close
  set conn=nothing
  response.end
end if

'取verinfo
verinfo=trim(request("ver"))
if IsNull(verinfo) then
  verinfo=""
end if
if verinfo="" then
  conn.close
  set conn=nothing
  response.end
end if
'取用户类型
usertype=trim(request("cjmm"))
if IsNull(usertype) then
  usertype=""
end if
'取今天
y=cstr(DatePart("yyyy",now))
m=cstr(DatePart("m",now))
d=cstr(DatePart("d",now))
if len(m)=1 then
  m="0"+m
end if
if len(d)=1 then
  d="0"+d
end if
jt=y+"-"+m+"-"+d
gq=0
'检查用户
sql="select * from user_list where user='"+userid+"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
url=""
f_cjlx=""
jzrq=""
i=1
pswd=""
if not(rs.eof and rs.bof) then
  i=0
  url=rs("url")
  f_cjlx=rs("cjlx")
  jzrq=rs("jzrq")
  if jzrq<jt then
    gq=1
  end if
  pswd=trim(rs("pswd"))
  if isnull(pswd) then
    pswd=""
  end if  
end if
rs.close
set rs=nothing
cjlx="1"
if f_cjlx="点击" then
  cjlx="0"
end if
if f_cjlx="vip" then
  cjlx="2"
end if

if i=1 then  
  conn.close
  set conn=nothing
  response.write("no--用户不存在或口令错误,请检查窗体左上角的收费类型设置是否正确!")
  response.end
end if
if password<>md5(pswd) then  
  conn.close
  set conn=nothing
  response.write("no--用户不存在或口令错误,请检查窗体左上角的收费类型设置是否正确")
  response.end
end if
if gq=1 then
  conn.close
  set conn=nothing
  response.write("no--服务已过期,请续费!")
  response.end
end if
'取下载地址
  f_md5=""
  sql="select * from sysdata "
  Set rs= Server.CreateObject("ADODB.Recordset")
  rs.open sql,conn,1,3  
  i=1
  url_down=""
  if not(rs.eof and rs.bof) then
    i=0
    url_down=rs("down")
    f_md5=rs("md5")
  end if
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  if i=1 then
    response.write("no--下载地址不存在!")
    response.end
  end if
  tmp=md5(userid+jt+f_md5)
  if tmp<>verinfo then
    if usertype<>"pplove" then
      response.write("ww")
      response.end
    end if
  end if
response.write("ok"+url+","+url_down+","+cjlx+","+jzrq)
response.end
%>