<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true %> <% if CheckUserLogined()=False then response.Redirect "User_Login.asp" end if dim Action,rs,sql,ErrMsg,FoundErr,ObjInstalled dim PhotoID,ClassID,PhotoName,Keyword,Author,AuthorEmail,AuthorHomepage dim PhotoUrl_Thumb,PhotoUrl,PhotoUrl2,PhotoUrl3,PhotoUrl4,PhotoSize_Thumb,PhotoSize,PhotoSize2,PhotoSize3,PhotoSize4 dim Passed,PhotoIntro,UpdateTime,Editor dim tClass,ClassName,Depth,ParentPath,Child,i ObjInstalled=IsObjInstalled("Scripting.FileSystemObject") FoundErr=false Action=trim(request("Action")) PhotoID=Trim(Request.Form("PhotoID")) ClassID=trim(request.form("ClassID")) PhotoName=trim(request.form("PhotoName")) Keyword=trim(request.form("Keyword")) Author=trim(request.form("Author")) AuthorEmail=trim(request.form("AuthorEmail")) AuthorHomepage=trim(request.form("AuthorHomePage")) PhotoUrl_Thumb=trim(request.form("PhotoUrl_Thumb")) PhotoUrl=trim(request.form("PhotoUrl")) PhotoUrl2=trim(request.form("PhotoUrl2")) PhotoUrl3=trim(request.form("PhotoUrl3")) PhotoUrl4=trim(request.form("PhotoUrl4")) PhotoSize_Thumb=trim(request.form("PhotoSize_Thumb")) PhotoSize=trim(request.form("PhotoSize")) PhotoSize2=trim(request.form("PhotoSize2")) PhotoSize3=trim(request.form("PhotoSize3")) PhotoSize4=trim(request.form("PhotoSize4")) PhotoIntro=trim(request.form("PhotoIntro")) Editor=trim(Request.Cookies("asp163")("UserName")) if Action="" then FoundErr=True ErrMsg=ErrMsg & "
  • 参数不足
    • " else call SavePhoto() end if if founderr=true then call WriteErrMsg() else call SaveSuccess() end if call CloseConn() sub SavePhoto() if ClassID="" then founderr=true errmsg=errmsg & "
  • 未指定图片所属栏目或者指定的栏目有下属子栏目
    • " else ClassID=CLng(ClassID) if ClassID=0 then FoundErr=True ErrMsg=ErrMsg & "
  • 图片所属栏目不能指定为外部栏目
    • " elseif ClassID=-1 then FoundErr=True ErrMsg=ErrMsg & "
  • 你没有在你指定的栏目添加图片的权限
    • " else set tClass=conn.execute("select ClassName,Depth,ParentPath,Child,LinkUrl,AddPurview From PhotoClass where ClassID=" & ClassID) if tClass.bof and tClass.eof then founderr=True ErrMsg=ErrMsg & "
  • 找不到指定的栏目
    • " else ClassName=tClass(0) Depth=tClass(1) ParentPath=tClass(2) Child=tClass(3) if Child>0 then FoundErr=True ErrMsg=ErrMsg & "
  • 指定的栏目有下属子栏目
    • " end if if tClass(4)<>"" then FoundErr=True ErrMsg=ErrMsg & "
  • 不能指定外部栏目
    • " end if if Clng(tClass(5))
  • 你没有在你指定的栏目添加图片的权限
    • " end if end if end if end if if PhotoName="" then founderr=true errmsg=ErrMsg & "
  • 图片名称不能为空
    • " end if if Keyword="" then founderr=true errmsg=errmsg & "
  • 请输入图片关键字
    • " end if if PhotoUrl_Thumb="" then founderr=true errmsg=ErrMsg & "
  • 缩略图地址不能为空
    • " end if if PhotoSize_Thumb="" then founderr=true errmsg=ErrMsg & "
  • 缩略图文件大小不能为空
    • " else PhotoSize_Thumb=Clng(PhotoSize_Thumb) end if if PhotoUrl="" then founderr=true errmsg=errmsg & "
  • 原始图片地址不能为空
    • " end if if PhotoSize="" then founderr=true errmsg=errmsg & "
  • 原始图片文件大小不能为空
    • " else PhotoSize=Clng(PhotoSize) end if if FoundErr=True then exit sub end if Keyword="|" & ReplaceBadChar(Keyword) & "|" if PhotoSize2="" then PhotoSize2=0 else PhotoSize2=Clng(PhotoSize2) end if if PhotoSize3="" then PhotoSize3=0 else PhotoSize3=Clng(PhotoSize3) end if if PhotoSize4="" then PhotoSize4=0 else PhotoSize4=Clng(PhotoSize4) end if UpdateTime=now() set rs=server.createobject("adodb.recordset") if Action="Add" then sql="select top 1 * from Photo" rs.open sql,conn,1,3 rs.addnew call SaveData() rs.update PhotoID=rs("PhotoID") Passed=rs("Passed") rs.close elseif Action="Modify" then if PhotoID="" then founderr=true errmsg=errmsg & "
  • 不能确定PhotoID的值
    • " else PhotoID=Clng(PhotoID) sql="select * from Photo where Photoid=" & PhotoID rs.open sql,conn,1,3 if rs.bof and rs.eof then founderr=true errmsg=errmsg & "
  • 找不到此图片，可能已经被其他人删除。
    • " else call SaveData() rs.update Passed=rs("Passed") rs.close end if end if else FoundErr=True ErrMsg="
  • 参数错误!
    • " end if set rs=nothing end sub sub SaveData() rs("ClassID")=ClassID rs("PhotoName")=PhotoName rs("Keyword")=Keyword rs("Author")=Author rs("AuthorEmail")=AuthorEmail rs("AuthorHomepage")=AuthorHomepage rs("PhotoUrl_Thumb")=PhotoUrl_Thumb rs("PhotoUrl")=PhotoUrl rs("PhotoUrl2")=PhotoUrl2 rs("PhotoUrl3")=PhotoUrl3 rs("PhotoUrl4")=PhotoUrl4 rs("PhotoSize_Thumb")=PhotoSize_Thumb rs("PhotoSize")=PhotoSize rs("PhotoSize2")=PhotoSize2 rs("PhotoSize3")=PhotoSize3 rs("PhotoSize4")=PhotoSize4 rs("PhotoIntro")=PhotoIntro rs("Hits")=0 rs("DayHits")=0 rs("WeekHits")=0 rs("MonthHits")=0 rs("PhotoLevel")=9999 rs("PhotoPoint")=0 rs("Stars")=0 rs("UpdateTime")=UpdateTime rs("Passed")=False rs("OnTop")=False rs("Elite")=False rs("Editor")=Editor end sub sub SaveSuccess() %>

    <%if Passed=False then%> <%end if%>
    <%if action="Add"then%> 添加 <%else%> 修改 <%end if%> 图片成功
    注意：
        你的图片尚未真正发表！只有等管理员审核并通过了你的图片后，你所添加的图片才会发表。
    所属栏目： <%call Admin_ShowPath2(ParentPath,ClassName,Depth)%>
    图片名称： <%= dvHtmlEncode(PhotoName) %>
    图片作者： <%= dvHtmlEncode(Author) %>
    关 键 字： <%= mid(Keyword,2,len(Keyword)-2) %>
    【修改此图片】 【继续添加图片】 【图片管理】 【预览图片下载页面】
    <% end sub %>