contributioncheck.asp

asp源码 图片ASP整站

      <td> 
        <select name="FileExtName" id="select" style="width:90%">
          <option value="htm">htm</option>
          <option value="html">html</option>
          <option value="shtm">shtm</option>
          <option value="shtml">shtml</option>
          <option value="asp">asp</option>
        </select></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="4"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td height="26"> <div align="center">图片新闻 
                <input type="checkbox" name="PicNewsTF" value="1" <%If Request("PicNewsTF")="1" then Response.Write("checked") end if%> onClick="ChoosePicType();">
              </div></td>
            <td><div align="center">滚动新闻 
                <input name="MarqueeNews" type="checkbox" id="MarqueeNews2" value="1" <%if Request("MarqueeNews")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">允许评论 
                <input name="ReviewTF" type="checkbox" id="ReviewTF2" value="1" onClick="ChooseRiview();" <%if Request("ReviewTF")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">显示评论 
                <input name="ShowReviewTF" type="checkbox" id="ShowReviewTF2" value="1" disabled <%if Request("ShowReviewTF")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">公告新闻 
                <input name="ProclaimNews" type="checkbox" id="ProclaimNews2" value="1" <%if Request("ProclaimNews")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">幻 灯 片 
                <input name="FilterNews" type="checkbox" id="FilterNews" value="1" <%if Request("FilterNews")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">焦点图片 
                <input name="FocusNewsTF" type="checkbox" id="FocusNewsTF" value="1" <%if Request("FocusNewsTF")=1 then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">今日头条 
                <input name="TodayNewsTF" type="checkbox" id="TodayNewsTF" value="1">
              </div></td>
          </tr>
          <tr> 
            <td height="26"><div align="center">推荐新闻 
                <input name="RecTF" type="checkbox" id="RecTF2" value="1" <%if Request("RecTF")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">是否审核 
                <input name="AuditTF" type="checkbox" id="AuditTF2" value="1" <%if Request("AuditTF")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">内部链接 
                <input name="LinkTF" type="checkbox" id="LinkTF2" value="1" <%if Request("LinkTF")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">用户投稿 
                <input name="ManuTF" type="checkbox" id="ManuTF2" value="1" disabled checked <%if Request("ManuTF")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">远程存图 
                <input type="checkbox" name="SavePic" value="1" <%if Request("SavePic")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">并排新闻 
                <input name="SBSNews" type="checkbox" id="SBSNews" value="1" <%if Request("SBSNews")="1" then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">精彩回顾 
                <input name="ClassicalNewsTF" type="checkbox" id="ClassicalNewsTF" value="1" <%if Request("ClassicalNewsTF")=1 then Response.Write("checked") end if%>>
              </div></td>
            <td><div align="center">备用参数 
                <input name="BackUp" type="checkbox" id="BackUp" value="1">
              </div></td>
          </tr>
        </table></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="4"> 
        <div align="center"> 
          <iframe id='NewsContent' src="../../Editer/NewsEditer.asp" frameborder=0 scrolling=no width='100%' height='460'></iframe>
        </div></td>
    </tr>
</table>
</form>
</body>
</html>
<script language="javascript">
 function ChooseRiview()
   {
      if (document.NewsForm.ReviewTF.checked==true) document.NewsForm.ShowReviewTF.disabled=false;
      else document.NewsForm.ShowReviewTF.disabled=true;
	}

function SubmitFun()
{
	frames["NewsContent"].SaveCurrPage();
	var TempContentArray=frames["NewsContent"].NewsContentArray;
	document.NewsForm.Content.value='';
	for (var i=0;i<TempContentArray.length;i++)
	{
		if (TempContentArray[i]!='')
		{
			if (document.NewsForm.Content.value=='') document.NewsForm.Content.value=TempContentArray[i];
			else document.NewsForm.Content.value=document.NewsForm.Content.value+'[Page]'+TempContentArray[i];
		} 
	}
	document.NewsForm.submit();
}

function ChoosePicType()
{
  if (document.NewsForm.PicNewsTF.checked==true)
     {
	   document.NewsForm.PicPath.disabled=false;
	   document.NewsForm.PPPChoose.disabled=false;
	   document.NewsForm.NaviWords.disabled=false;
	   document.NewsForm.FilterNews.disabled=false;
	   document.NewsForm.FocusNewsTF.disabled=false;
	   document.NewsForm.ClassicalNewsTF.disabled=false;
	  }
   else
      {
	   document.NewsForm.PicPath.disabled=true;
	   document.NewsForm.PPPChoose.disabled=true;
	   document.NewsForm.NaviWords.disabled=true;
	   document.NewsForm.FilterNews.disabled=true;
	   document.NewsForm.FocusNewsTF.disabled=true;
	   document.NewsForm.ClassicalNewsTF.disabled=true;
	   }
 }
 
function ChooseExeName()
{
  if (document.NewsForm.BrowPop.value!='') document.NewsForm.FileExtName.disabled=true;
  else document.NewsForm.FileExtName.disabled=false;
 }
 
ChooseRiview();
ChoosePicType();
ChooseExeName();
</script>
<%
  if Request.Form("action")="add" then
     Dim ITitle,IClassID,INewsTemplet,IClickNum,IAddDate,INewsAddObj,INewsAddSql
	 '2006-4-27
     if Trim(Request.Form("Title"))<>"" then
		ITitle = Replace(Replace(Request.Form("Title"),"""",""),"'","")
	 else
	    Response.Write("<script>alert('请输入新闻标题');</script>")
		Response.End
	 end If
	 '====================
     if Request.Form("ClassID")<>"" then
		IClassID = Replace(Replace(Request.Form("ClassID"),"""",""),"'","")
	 else
	    Response.Write("<script>alert('栏目参数传递错误');</script>")
		Response.End
	 end if
     if Request.Form("NewsTemplet")<>"" then
		INewsTemplet = Replace(Replace(Request.Form("NewsTemplet"),"""",""),"'","")
	 else
	    Response.Write("<script>alert('请选择新闻模板文件');</script>")
		Response.End
	 end if 
     if Isnumeric(Request.Form("ClickNum")) then
		IClickNum = Clng(Request.Form("ClickNum"))
	 else
	    Response.Write("<script>alert('新闻初始点击次数必须为数字类型');</script>")
		Response.End
	 end if 
	 if IsDate(Request.Form("AddDate")) then
	 	IAddDate = Formatdatetime(Request.Form("AddDate"))
	 else
	    Response.Write("<script>alert('新闻添加时间类型错误,请重新输入');</script>")
		Response.End
	 end if
	 if Request.Form("PicNewsTF")="1" and Request.Form("PicPath")="" then
	    Response.Write("<script>alert('请输入图片地址');</script>")
		Response.End
	 end if
	 if Request.Form("Content")="" or isnull(Request.Form("Content")) then
	    Response.Write("<script>alert('请输入新闻内容');</script>")
		Response.End
	 end if
	Dim ConCheckNewsID
	ConCheckNewsID = GetRandomID18
	
	Dim NewsFileNames
	NewsFileNames = NewsFileName(GetConfig(16),IClassID,ConCheckNewsID)

	set INewsAddObj=server.createobject(G_FS_RS)
	INewsAddSql="select * from FS_News"
	INewsAddObj.open INewsAddSql,Conn,3,3
	INewsAddObj.addnew
	INewsAddObj("Title") =  ITitle
	If Request.Form("SubTitle")<>"" then
	  INewsAddObj("SubTitle") = Replace(Replace(Request.Form("SubTitle"),"""",""),"'","")
	end if
	INewsAddObj("ClassID") =  IClassID
	INewsAddObj("HeadNewsTF") =  "0"
	INewsAddObj("NewsID") =  ConCheckNewsID    '新闻ID
	INewsAddObj("ManuTF") =  "1"
	INewsAddObj("FileName") = NewsFileNames   '新闻文件名 
	if Request.Form("BrowPop") <> "" then
	  INewsAddObj("FileExtName") =  "asp"     '新闻文件扩展名
	else
	  INewsAddObj("FileExtName") =  Request.Form("FileExtName")     '新闻文件扩展名
	end if 
	INewsAddObj("Path") =  "/" & year(now())&"-"&month(now())&"/"&day(now())             '新闻路径 
	INewsAddObj("AddDate") =  IAddDate
	if Request.Form("KeyWords") <> "" then 
	  INewsAddObj("KeyWords") = Replace(Replace(Request.Form("KeyWords"),"""",""),"'","")
	end if
	if Request.Form("TxtSource") <> "" then
	  INewsAddObj("TxtSource") = Replace(Replace(Request.Form("TxtSource"),"""",""),"'","")
	end if
	if Request.Form("Author") <> "" then
	  INewsAddObj("Author") = Replace(Replace(Request.Form("Author"),"""",""),"'","")
	end if
	if Request.Form("Editer") <> "" then
	  INewsAddObj("Editer") = Replace(Replace(Request.Form("Editer"),"""",""),"'","")
	end if
	INewsAddObj("ClickNum") =  IClickNum
	if Request.Form("RecTF") = "1" then
	  INewsAddObj("RecTF") =  "1"
	else
	  INewsAddObj("RecTF") =  "0"
	end if
	if Request.Form("SpecialID") <> "" then
	  INewsAddObj("SpecialID") = Replace(Replace(Request.Form("SpecialID"),"""",""),"'","")
	end if
	if Request.Form("PicNewsTF") = "1" then
	  INewsAddObj("PicNewsTF") =  "1"
	else
	  INewsAddObj("PicNewsTF") =  "0"
	end if
	INewsAddObj("PicPath") =  Request.Form("PicPath")
	if Request.Form("AuditTF") = "1" then
	  INewsAddObj("AuditTF") =  "0"
	else
	  INewsAddObj("AuditTF") =  "1"
	end if
	INewsAddObj("DelTF") =  "0"
	if Request.Form("BrowPop") <> "" then
	  INewsAddObj("BrowPop") =  Replace(Replace(Request.Form("BrowPop"),"""",""),"'","")
	end if
	if Request.Form("ShowReviewTF") = "1" then
	  INewsAddObj("ShowReviewTF") =  "1"
	else
	  INewsAddObj("ShowReviewTF") =  "0"
	end if
	if Request.Form("ReviewTF") = "1" then
	  INewsAddObj("ReviewTF") =  "1"
	else
	  INewsAddObj("ReviewTF") =  "0"
	end if
	if Request.Form("SBSNews") = "1" then
	  INewsAddObj("SBSNews") =  "1"
	else
	  INewsAddObj("SBSNews") =  "0"
	end if
	if Request.Form("MarqueeNews") = "1" then
	  INewsAddObj("MarqueeNews") =  "1"
	else
	  INewsAddObj("MarqueeNews") =  "0"
	end if
	if Request.Form("ProclaimNews") = "1" then
	  INewsAddObj("ProclaimNews") =  "1"
	else
	  INewsAddObj("ProclaimNews") =  "0"
	end if
	if Request.Form("LinkTF") = "1" then
	  INewsAddObj("LinkTF") =  "1"
	else
	  INewsAddObj("LinkTF") =  "0"
	end if
	If Request.Form("TodayNewsTF")<>"" then
	  INewsAddObj("TodayNewsTF") = 1
	Else
	  INewsAddObj("TodayNewsTF") = 0
	End If
	if Request.Form("FilterNews") = "1" then
	  INewsAddObj("FilterNews") =  "1"
	Else
	  INewsAddObj("FilterNews") =  "0"
	End If
	INewsAddObj("NewsTemplet") =  INewsTemplet
	INewsAddObj("NaviWords") =  Request.Form("NaviWords")
	If Request.Form("SavePic") = "1" Then
	  INewsAddObj("Content") = ReplaceRemoteUrl(Request.Form("Content"),"/" & UpFiles & "/" & BeyondPicDir&"/"&year(Now())&"-"&month(now())&"/"&day(Now()),GetConfig(0),DummyPath_Riker)
	Else
	  INewsAddObj("Content") = Request.Form("Content")   '新闻内容
	End If
	INewsAddObj.Update
	INewsAddObj.Close
	Set INewsAddObj = Nothing
	RsContObj.Close
	Set RsContObj = Nothing
	Dim cls_UserConfig
	Set cls_UserConfig= New cls_User 
	cls_UserConfig.Name = Replace(Replace(Request.Form("Author"),"""",""),"'","")
	cls_UserConfig.update "ConNumNews,Point","ConNumNews+1,Point+"&cls_UserConfig.GetUserConfig(20),cls_UserConfig.UserID
	cls_UserConfig.addLog "point",cls_UserConfig.point+cls_UserConfig.GetUserConfig(20),cls_UserConfig.EName,"投稿通过审核，增加一般积分点数"
	Set cls_UserConfig = Nothing
	UserConn.Execute("Delete from FS_Contribution where ContID = '"&NewsID&"'")


	Dim CreatePageObj
	Set CreatePageObj = Conn.Execute("Select * from FS_News where NewsID='"&ConCheckNewsID&"'")
	If Not CreatePageObj.eof then
		Dim ClassCache,ClassInfo,DateStr,f_SavePath
		Set ClassCache =New Cls_FsCache
		ClassCache.Name="ClassCache"
		ClassCache.ArrayIndex=0
		ClassCache.KnowValue=CreatePageObj("ClassID")
		ClassInfo = ClassCache.FindNeedRecord("")
		Set ClassCache = Nothing
		If CInt(GetConfig(21))=1 Then
			DateStr = CreatePageObj("Path")
		Else
			DateStr = ""
		End If
		If ClassInfo(13)="/" Then
			f_SavePath= Get_RootDir & "/" & ClassInfo(2) & DateStr
		Else
			f_SavePath= Get_RootDir & ClassInfo(13) & "/" & ClassInfo(2) & DateStr
		End If
		RefreshInfo "News",CreatePageObj("NewsID"),CreatePageObj("ClassID"),Get_RootDir & CreatePageObj("NewsTemplet"),CreatePageObj("FileName"),CreatePageObj("FileExtName"),f_SavePath
	End If	
	CreatePageObj.Close
	Set CreatePageObj = Nothing 
	Response.Redirect("ContributionList.asp?ClassID=" & IClassID)
end if
%>