user_photosave.asp

该软件是帮助大学生更好的生活

<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true	
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/func.asp"-->
<!--#include file="inc/ad_code_Photo.asp"-->
<%
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("luyeweb")("UserName"))

if Action="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>参数不足</li>"
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 & "<br><li>未指定图片所属栏目或者指定的栏目有下属子栏目</li>"
	else
		ClassID=CLng(ClassID)
		if ClassID=0 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>图片所属栏目不能指定为外部栏目</li>"
		elseif ClassID=-1 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>你没有在你指定的栏目添加图片的权限</li>"
		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 & "<br><li>找不到指定的栏目</li>"
			else
				ClassName=tClass(0)
				Depth=tClass(1)
				ParentPath=tClass(2)
				Child=tClass(3)
				if Child>0 then
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>指定的栏目有下属子栏目</li>"
				end if
				if tClass(4)<>"" then
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>不能指定外部栏目</li>"
				end if
				if Clng(tClass(5))<Clng(request.Cookies("luyeweb")("UserLevel")) then
					FoundErr=True
					ErrMsg=ErrMsg & "<br><li>你没有在你指定的栏目添加图片的权限</li>"
				end if
			end if
		end if
	end if
	if PhotoName="" then
		founderr=true
		errmsg=ErrMsg & "<br><li>图片名称不能为空</li>"
	end if
	if Keyword="" then
		founderr=true
		errmsg=errmsg & "<br><li>请输入图片关键字</li>"
	end if
	if PhotoUrl_Thumb="" then
		founderr=true
		errmsg=ErrMsg & "<br><li>缩略图地址不能为空</li>"
	end if
	if PhotoSize_Thumb="" then
		founderr=true
		errmsg=ErrMsg & "<br><li>缩略图文件大小不能为空</li>"
	else
		PhotoSize_Thumb=Clng(PhotoSize_Thumb)
	end if
	if PhotoUrl="" then
		founderr=true
		errmsg=errmsg & "<br><li>原始图片地址不能为空</li>"
	end if
	if PhotoSize="" then
		founderr=true
		errmsg=errmsg & "<br><li>原始图片文件大小不能为空</li>"
	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 & "<br><li>不能确定PhotoID的值</li>"
		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 & "<br><li>找不到此图片，可能已经被其他人删除。</li>"
 			else
				call SaveData()
				rs.update
				Passed=rs("Passed")
				rs.close
			end if
		end if
	else
		FoundErr=True
		ErrMsg="<br><li>参数错误!</li>"
	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()
%>
<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css" href="ad_Style.css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<br><br>
<table class="border" align=center width="500" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
  <tr align=center> 
    <td  height="22" colspan="2" align="center" class="title"><b> 
      <%if action="Add"then%>
      添加 
      <%else%>
      修改 
      <%end if%>
      图片成功</b></td>
  </tr>
  <%if Passed=False then%>
  <tr> 
    <td height="60" colspan="2"><font color="#0000FF">注意：</font><br> &nbsp;&nbsp;&nbsp; 
      你的图片尚未真正发表！只有等管理员审核并通过了你的图片后，你所添加的图片才会发表。</td>
  </tr>
  <%end if%>
  <tr class="tdbg"> 
    <td height="5" colspan="2"></td>
  </tr>
  <tr class="tdbg"> 
    <td width='150' align="center" valign="top"><img src="<%=PhotoUrl_Thumb%>" width="150"></td>
    <td width="350" valign="top"><table width="100%" border="0" cellpadding="2" cellspacing="0">
        <tr> 
          <td width="100" align="right"><strong>所属栏目：</strong></td>
          <td><%call Admin_ShowPath2(ParentPath,ClassName,Depth)%></td>
        </tr>
        <tr> 
          <td width="100" align="right"><strong>图片名称：</strong></td>
          <td><%= dvHtmlEncode(PhotoName) %></td>
        </tr>
        <tr> 
          <td width="100" align="right"><strong>图片作者：</strong></td>
          <td><%= dvHtmlEncode(Author) %></td>
        </tr>
        <tr> 
          <td width="100" align="right"><strong>关 键 字：</strong></td>
          <td><%= mid(Keyword,2,len(Keyword)-2) %></td>
        </tr>
      </table></td>
  </tr>
  <tr class="tdbg"> 
    <td height="40" colspan="2" align="center">【<a href="User_PhotoModify.asp?PhotoID=<%=PhotoID%>">修改此图片</a>】&nbsp;【<a href="User_PhotoAdd.asp">继续添加图片</a>】&nbsp;【<a href="User_PhotoManage.asp">图片管理</a>】&nbsp;【<a href="User_PhotoShow.asp?PhotoID=<%=PhotoID%>">预览图片下载页面</a>】</td>
  </tr>
</table>
</body>
</html>
<%
end sub
%>