改代码《要求：免登陆验证》 - ASP技术论坛

问题点数：0 回复次数：0

改代码《要求：免登陆验证》

<%
Response.Write "<html><head><title>下载舞曲："&MusicName&"=="&Webname&"</title></head>"&_
"<script>window.resizeTo( 377 , 167 );</script>"&_
"<body topmargin=0 leftmargin=0 background=play/bj00.gif>"&_
"<div align=center><table border=0 width=100% cellspacing=0 bordercolor=#666666 cellpadding=0 style='border-collapse: collapse'>"&_
"<tr><td width=25% height=0 align=center>"
Function gen_key(digits)

'Create and define array
dim char_array(50)
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"

'Initiate randomize method for default seeding
randomize

'Loop through and create the output based on the the variable passed to
'the function for the length of the key.
do while len(output) < digits
num = char_array(Int((9 - 1 + 1) * Rnd + 1))
output = output + num
loop

'Set return
gen_key = output
End Function

'Write the results to the browser, currently setting a 13 digit key
response.write "<script src=sms/" & gen_key(1) & ".js></script>" & vbcrlf
Response.Write "</td></tr>"
id=request.QueryString("id")
founderr=false
if id="" then
    errmsg=errmsg+"<br><li>请选择你想下载的舞曲！</li>"
    founderr=true
end if
if isnull(session("DJUser")) or isnull(session("DJUserPwd")) or session("DJUser")="" or session("DJUserPwd")="" then
    errmsg=errmsg+"<br><li>请先登陆！只有会员才能下载舞曲.</li>"
    founderr=true
end if
if founderr=true then
    call error()
    Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from user where UserName='"&Session("DJUser")&"' and PassWord='"&Session("DJUserPwd")&"'"
rs.Open sql,conn,1,3
if rs.eof then
    errmsg=errmsg+"<br><li>会员帐号或密码错误！请重新登陆</li>"
    founderr=true
else
            if DateDiff("s",now(),rs("vipenddate"))<=0 or rs("isvip")<>true then
            response.write"<script>alert('对不起，你只是普通用户，只有VIP会员才可以下载舞曲！如果你想下载本站舞曲，请先申请做VIP会员！');</script>"
            response.end
            end if
            if rs("Points")<=5 then
            response.write "<script language=javascript>alert('你的剩余积分不够下载舞曲！');window.close();</script>"
            response.end
            else
            rs("points")=rs("points")-50
            end if
    rs("downloads")=rs("downloads")+10
    rs.Update
end if
rs.close
sql = "SELECT * FROM Musiclist WHERE id="&id
rs.open sql,conn,1,3
if rs("ListenUrl")="" then
    errmsg=errmsg+"<br><li>对不起！舞曲选择错误。</li>"
    founderr=true
else
    rs("hits")=rs("hits")+10
    rs.update
    MusicName=rs("MusicName")
    LS_ID=rs("LS_ID")
    ListenUrl=rs("ListenUrl")
    rs.close
end if
    if LS_ID<>"" then
    sql="select ListenServerUrl from DJServer where LServerID="&LS_ID
    rs.open sql,conn,1,1
    if Lcase(Left(rs("ListenServerUrl"), 4))="http" or Lcase(Left(rs("ListenServerUrl"), 4))="rtsp" then
    DownLoadUrl=rs("ListenServerUrl")+ListenUrl
    else
    downloadurl="http"+Mid(rs("ListenServerUrl"), 4, Len(rs("listenserverurl")))+ListenUrl
    end if
    rs.close
    else
    if Lcase(Left(ListenUrl, 4))="http" then
    DownLoadUrl=ListenUrl
    else
    downloadurl="http"++Mid(ListenUrl, 4, Len(ListenUrl))
    end if
    end if
set rs=nothing
conn.close
set conn=nothing
if founderr=true then
    call error()
else
end if

response.write "<tr><td width=25% height=20 bgcolor=#0099FF align=center><font color=#FF0000>舞曲名称："&MusicName&" </font></td></tr><tr><td align=center>"
if downloadurl<>"" then
Response.Write "<a href="&DownLoadUrl&"><font color=red>点这里进行下载</font></a><font color=#FF0000> </font><font color=#red>请使用右键“另存目标为”</font>"
else
Response.Write "选择错误!"
end if
Response.Write "</td></table></div></body></html>"
%>

搜索更多相关主题的帖子: include　代码　 file　