special_save.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="lib/cls_main.asp" -->
<% 'Copyright (c) 2006 Foosun Inc. Code by awen
	Dim Conn,User_Conn
	MF_Default_Conn
	MF_User_Conn
	'session判断
	MF_Session_TF
	'权限判断
	'Call MF_Check_Pop_TF("NS_Special_000001")
	'得到会员组列表
	Dim Fs_news,SaveReturnvalue
	set Fs_news = new cls_news
	If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
	'获取参数
	Dim obj_Save_Rs,strShowErr 
	Dim lng_SpecialID,str_Templet ,str_SpecialCName,str_SpecialEName,str_SpecialSize,str_SpecialContent,naviPic,adminName
	Dim str_SavePath,str_ExtName,bit_isLock,dtm_Addtime,int_sPoint,lng_GroupID,Arr_Tmp,Int_SaveType
	lng_SpecialID = request.Form("SpecialID")
	str_SpecialCName = request.Form("SpecialCName")
	str_SpecialEName = request.Form("SpecialEName")
	str_SpecialSize = request.Form("SpecialSize")
	str_SpecialContent = request.Form("SpecialContent")
	str_SavePath = request.Form("SavePath")
	str_Templet = request.Form("Templet")
	str_ExtName = request.Form("ExtName")
	bit_isLock = request.Form("isLock")
	dtm_Addtime = request.Form("Addtime")
	naviPic = request.Form("naviPic")
	adminName=request.Form("adminName")
	Int_SaveType = request.Form("SaveType")
	'判断数据是否正确
	if trim(str_SpecialCName) = "" or trim(str_SpecialEName) = "" or trim(str_ExtName) = "" or trim(str_Templet) = ""  or trim(str_SpecialSize) = ""  or trim(str_SavePath) = ""  then
		strShowErr = "<li>带*的是必须填写的</li>"
		Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
		Response.end
	End if
	if instr(str_SpecialSize,",")=0 then 
		strShowErr = "<li>格式错误，格式：高度,宽度（150,120）没有逗号。</li>"
		Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
		Response.end
	else
		Arr_Tmp = split(str_SpecialSize,",")
		if ubound(Arr_Tmp)<>1 then 
			strShowErr = "<li>格式错误，格式：高度,宽度（150,120）多余的逗号。</li>"
			Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
			Response.end		
		else
			if (not (isnumeric(Arr_Tmp(0)) and Arr_Tmp(0)>=0 )) or (not (isnumeric(Arr_Tmp(1)) and Arr_Tmp(1)>=0) ) then 
				strShowErr = "<li>格式错误，格式：高度,宽度（150,120）必须为非负数字。</li>"
				Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
				Response.end		
			end if
		end if	
	end if
	if isdate(dtm_Addtime) =false then
		strShowErr = "<li>请填写正确的日期格式</li>"
		Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
		Response.end
	End if
	'if not isnull(int_sPoint) then 
	'if isnumeric(int_sPoint) =false then
	'	strShowErr = "<li>需要点数不是正确的数字</li>"
	'	Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
	'	Response.end
	'End if
	'end if
	if fs_news.chkinputchar(str_SpecialEName) = false then
	strShowErr = "<li>英文名称只能为英文、数字及下划线</li>"
		Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
		Response.end
	End if
	'if not isnull(int_sPoint) then 
	'	if int_sPoint <= 0 then int_sPoint = null
	'end if	
	'if int_sPoint="" then int_sPoint = null
	'if not isnull(int_sPoint) or lng_GroupID<>"" then str_ExtName = "asp"
		
	Dim obj_SaveTF_Rs,obj_SaveENameTF_Rs
	Set obj_Save_Rs = server.CreateObject(G_FS_RS)
	If Request.Form("Action") = "add" then
		if not Get_SubPop_TF("","NS026","NS","specail") then Err_Show
		Set obj_SaveENameTF_Rs = server.CreateObject(G_FS_RS)
		obj_SaveENameTF_Rs.Open "Select SpecialEName from FS_NS_Special where SpecialEName='"& str_SpecialEName &"' order by SpecialID desc",Conn,1,1
		if Not obj_SaveENameTF_Rs.eof then
					strShowErr = "<li>英文名称重复，请重新输入</li>"
					Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
					Response.end
		End if
		set obj_SaveENameTF_Rs = nothing
		obj_Save_Rs.Open "Select * from FS_NS_Special where 1=2",Conn,1,3
		obj_Save_Rs.AddNew
	ElseIf Request.Form("Action") = "edit" then
		obj_Save_Rs.Open "Select * From FS_NS_Special where SpecialID="& NoSqlHack(lng_SpecialID) ,Conn,1,3
	End if
		obj_Save_Rs("SpecialCName") = str_SpecialCName
		obj_Save_Rs("SpecialEName") = str_SpecialEName
		obj_Save_Rs("SpecialSize") = str_SpecialSize
		obj_Save_Rs("SpecialContent") = str_SpecialContent
		obj_Save_Rs("SavePath") = str_SavePath
		obj_Save_Rs("Templet") = str_Templet
		obj_Save_Rs("ExtName") = str_ExtName
		if bit_isLock<>"" then
			obj_Save_Rs("isLock") = 1
		else
			obj_Save_Rs("isLock") = 0
		end if
		obj_Save_Rs("Addtime") = dtm_Addtime
		obj_Save_Rs("naviPic") = naviPic
		obj_Save_Rs("adminName") = adminName
		obj_Save_Rs("FileSaveType") = Int_SaveType
		'obj_Save_Rs("GroupID") = lng_GroupID
		'obj_Save_Rs("sPoint") = int_sPoint
	'如果是内部连接，就生成静态目录
	'生成静态目录
	'**************
	obj_Save_Rs.update
	obj_Save_Rs.close
	set obj_Save_Rs = nothing
	strShowErr = "<li>恭喜，专题保存成功</li>"
	Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Special_Manage.asp")
	set Fs_news = nothing 
	Response.end
%>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->