<!--#Include File="Connection.Asp"-->
 
<%
Dim JaBlog,JaDelSQL,JaDelSQL2
Dim JaCheckIsLog,B
Set JaBlog = new q_zone
B = JaBlog.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
Dim albumID,pwd,Japass
albumID = JaBlog.JaKillStr(Request.QueryString("albumID"))

JaCheckIsLog = JaBlog.JaIsUser(B)
If JaCheckIsLog = "no" Then
Response.Write "<script language=javascript>alert('你没有权限观看该页面!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
Japass = JaBlog.JaKillStr(Trim(Request.Form("passopen")))
pwd = JaBlog.GetCount("JaAllOpen","JaUser","Where JaUid='"&B&"' ")

If Japass = Trim(pwd) Then
Session("AlbumOpen")=Trim(pwd)
Response.Write "<script language=javascript>alert('密码正确,欢迎观看!');"
Response.Write "window.document.location.href='AlbumMenu.asp?JaUid="&B&"&albumID="&albumID&"';</script>"
Else
Response.Write "<script language=javascript>alert('密码错误,请重新输入!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if

End if
Set JaBlog=Nothing
%>
