<!--#Include File="Connection.Asp"-->
 
<%
Dim JaZ,C,flyN,B,cur
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
C=Split(JaZ.GetHeadElement("*",B,"JaFaceSet",""),"<><><>")
flyN = split(Trim(C(2)),"|")
If Cint(Trim(C(1)))<>0 Then
cur = "CURSOR:url('cur/"&C(1)&".ani');"
Else
cur = ""
End If 
%>

<%
Dim JaCheckIsLog
JaCheckIsLog = JaZ.JaIsUser(B)
If JaCheckIsLog = "yes" Then

Dim Jatitle,Jatype,Jahassign,Jacontent,strLens
Dim JaBlog,JaInSQL
Dim JaVicNum
JaVicNum = SESSION("VicNum")
Set JaBlog = new q_zone
Jatitle = JaBlog.JaKillStr(Request.Form("albumname"))
Jatype = JaBlog.JaKillStr(Trim(Request.Form("albumtype")))
Jahassign = Trim(Request.Form("albumopen"))
Jacontent = JaBlog.JaKillStr(Trim(Request.Form("albummemo")))
strLens = JaBlog.strLen(Jacontent)
If strLens>75 Then
Response.Write "<script language=javascript>alert('相册简介的长度在75个汉字以内!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
JaInSQL = "(JaUid,JaAlbumName,JaAlbumType,JaOpen,JaAlbumMemo) Values('"&JaVicNum&"','"&Jatitle&"','"&Jatype&"',"&Jahassign&",'"&Jacontent&"')"
JaBlog.JaInsert "JaAlbum",JaInSQL
Response.Write "<script language=javascript>alert('添加成功!');"
Response.Write "window.document.location.href='AlbumAll.asp?JaUid="&JaVicNum&"';</script>"
End if
Set JaBlog=Nothing
Else
Response.Write "<script language=javascript>alert('你没有权限观看该页面!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
%>
