photopost.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",1,"您需要登录后才可以和上传图片！")
If Int(FlagCom(27)) < 1 Then Call WRMPS.ErrView("·您没有权限使用此功能<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();}setTimeout(""Close()"",3000)</script>", 0)
Dim ID,UpType,Title,Pic,SPic,LastPhoto
ID=WRMPS.CheckStr(Request("ID"),1)
If ID = "" Then Call WRMPS.ErrView("·操作错误<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();}setTimeout(""Close()"",3000)</script>",0)

Set Rs = Conn.Execute("Select WM_ClaimUser,WM_RZBL,WM_CheckUser,WM_Key From WM_Company Where WM_ID="&ID)
If Not Rs.Eof Then
  If Rs(1) > 0 Then '已认领
	If MemName <> Rs(0) Then Call WRMPS.ErrView("·此店铺已被认领，您不是店主，没有权限操作此功能<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();}setTimeout(""Close()"",3000)</script>",0)
  Else '未认领
	If Rs(3) = 0 Then Call WRMPS.ErrView("·操作错误<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();}setTimeout(""Close()"",3000)</script>",0)
  End If
Else
  Call WRMPS.ErrView("·操作错误<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();}setTimeout(""Close()"",3000)</script>",0)
End If
Rs.Close

Select Case Request("Action")
  Case "Save"
    UpType = WRMPS.CheckStr(Request("Type"),1)
	If UpType = "" Then Call WRMPS.ErrView("·操作错误",0)
	Title = WRMPS.CheckStr(Request("Title"),0)
	If Title = "" Then Call WRMPS.ErrView("·文件名称不能为空",0)
	If Len(Title) > 50 Then Call WRMPS.ErrView("·文件名称不能大于50字符",0)
	Pic = WRMPS.CheckStr(Request("Pic"),4)
	SPic = WRMPS.CheckStr(Request("SPic"),4)
	If Pic = "" Or SPic = "" Then Call WRMPS.ErrView("·请上传文件",0)
	Call DBConnBegin()
	If Int(FlagCom(30)) = 1 Then
	  If UpType = 0 Then
	    Call WRDB.SaveConsume(0,MemName,0,Int(FlagCom(29)),Int(FlagCom(28)),0,"店铺图片上传成功")
	  Else
	    Call WRDB.SaveConsume(0,MemName,0,Int(FlagCom(29)),Int(FlagCom(28)),0,"店铺视频上传成功")
	  End If
	End If
    Conn.Execute("Insert into WM_CompanyPhoto(WM_User,WM_ComID,WM_PhotoName,WM_Path,WM_Type,WM_Time,WM_Key)values('"&MemName&"',"&ID&",'"&Title&"','"&Pic&"',"&UpType&","&ConnTime&","&Int(FlagCom(30))&")")
	If Int(FlagCom(30)) = 1 and UpType = 0 Then
	  Set Rs = Conn.Execute("Select WM_LastPhoto From WM_Company where WM_ID=" & ID)
	  If Not Rs.Eof Then
        LastPhoto = Rs(0)
	    Conn.Execute("Update WM_Company Set WM_PhotoNum=WM_PhotoNum+1 Where WM_ID="&ID)
		If LastPhoto = "" Or IsNUll(LastPhoto) Then Conn.Execute("Update WM_Company Set WM_LastPhoto='"&SPic&"' Where WM_ID="&ID)
	  End If
	  Rs.CLose
	End If
	Call DBConnEnd()
	Response.Write "<script>function Close(){parent.closeWithIframe();"
	If Key = 1 Then Response.Write "parent.location.reload()"
	Response.Write "}" & vbCrLf
	Response.Write "setTimeout(""Close()"",3000)</script>"
	If Int(FlagCom(30)) = 1 Then
	  Call WRMPS.ErrView("·文件上传成功<br>·此界面 3 秒钟后自动关闭",1)
	Else
	  Call WRMPS.ErrView("·文件上传成功，请等待管理员的审核<br>·此界面 3 秒钟后自动关闭",1)
	End If
	Call ClassEnd()
	
  Case Else
	Call DBConnBegin()
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,65,ChannelID)
	TempStr = WRMPS.GetReplace(TempStr,"{$ID}",ID)
	TempStr = WRTemp.SiteChannel(TempStr)
	TempStr = WRTemp.SiteLabel(TempStr)
	Call WRMPS.FsoEnd()
	Call DBConnEnd()
	Call ClassEnd()
	Response.write TempStr
End Select
%>