check.asp

新闻发布系统

<%
'检查开始
 Sub Checknews()
 if request.form("check")="true" then
  Response.write"<script>alert(""注意 \n\n你添加的新闻需要审核，暂时不能生成html文件，请继续添加其他新闻"");location.href=""admin_AddQu.asp""</script>"
  response.end
 end if
 end Sub
 
 Sub CheckText()
  session("errormsg")=""
  session("html")=""
  session("recommend")=""
  session("Review")=""
  BiaotiNews=request.Form("BiaotiNews")
  if request.form("title")="" then
    errormsg=errormsg+"新闻标题不能为空!<br>"
  end if
   if BiaotiNews="true" then
    if request.form("UBiaotiNews") = "" then
    errormsg=errormsg+"转向地址不能为空<br>"
	end if
	else
	if request.form("Content") = "" then
    errormsg=errormsg+"新闻内容不能为空<br>"
    end if
   end if
 
  if request.form("Templet")="" then
    errormsg=errormsg+"你没有添加模板，请添加后进行新闻操作!"
  end if
  session("errormsg")=errormsg
  if errormsg="" then
    if request.form("Recommend")<>"" then
      session("recommend")="true"
    else
      session("recommend")="false"
    end if	
  else
    Call Warn
    response.end
  end if
  end Sub
  '检查结束
  '转移检查
  Sub CheckMove()
    session("errormsg")=""
    if request.form("objectclass")="" then
      session("errormsg")="请选择转移的目标栏目"
	  err=true
	end if
    if request.form("objectclass")=request.form("Classen") then
      session("errormsg")=session("errormsg")+"目标栏目与源栏目相同!请重新选择"
	  err=true
	end if
	if err=true then Call warn:response.end
  End Sub
%>