newspic.asp

asp源码 图片ASP整站

          <tr> 
            <td height="30"> <div align="center">新闻模板</div></td>
            <td colspan="3"> <input name="NewsTemplet" type="text" id="NewsTemplet" readonly style="width:74%;" value="<% = INewsTemplet %>"> 
              &nbsp; <input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=Get_RootDir %>/<% = TempletDir %>',400,300,window,document.NewsForm.NewsTemplet);document.NewsForm.NewsTemplet.focus();"> 
            </td>
          </tr>
          <tr> 
            <td height="30"> <div align="center">添加日期</div></td>
            <td colspan="3"> <input name="AddDate" readonly type="text" id="AddDate" style="width:74%;" value="<% = IAddDate %>"> 
              &nbsp; <input type="button" name="Submit43" value="选择日期" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,110,window,document.NewsForm.AddDate);document.NewsForm.AddDate.focus();"> 
            </td>
          </tr>
          <tr> 
            <td height="30"> <div align="center">所属专题</div></td>
            <td colspan="3"> <%
			if Not IsNull(ISpecialID) And (ISpecialID <> "") then
				Dim RsSpecialObj,TempISpecialID,SpecialCNameText
				SpecialCNameText = ""
				TempISpecialID = Replace(Replace(Replace(Replace(Replace(ISpecialID,"'",""),"and",""),"select",""),"or",""),"union","")
				TempISpecialID = Replace(TempISpecialID,",","','")
				Set RsSpecialObj = Conn.Execute("Select * from FS_Special where SpecialID in ('" & TempISpecialID & "')")
				do while Not RsSpecialObj.Eof
					if SpecialCNameText = "" then
						SpecialCNameText = RsSpecialObj("CName")
					else
						SpecialCNameText = SpecialCNameText & "," & RsSpecialObj("CName")
					end if
					RsSpecialObj.MoveNext
				Loop
				Set RsSpecialObj = Nothing
			end if
			%> <input name="SpecialIDText" type="text" style="width:62%" readonly value="<% = SpecialCNameText %>"> 
              <input type="hidden" name="SpecialID" value="<% = ISpecialID %>"> 
              <select name="select" style="width:25%" onChange=ChooseSpecial(this.options[this.selectedIndex].value)>
                <option value="" selected> </option>
                <option value="<%=""&"***"&"Clean"%>" style="color:red">清空</option>
                <%
				Dim SpecialIDObj
				set SpecialIDObj = Conn.Execute("Select CName,SpecialID from FS_Special order by ID desc")
				while not SpecialIDObj.eof
					%>
                <option value="<%=SpecialIDObj("CName")&"***"&SpecialIDObj("SpecialID")%>"><%=SpecialIDObj("CName")%></option>
                <%
					SpecialIDObj.Movenext
				Wend
				SpecialIDObj.Close
				Set SpecialIDObj = Nothing
				%>
              </select></td>
          </tr>
          <tr> 
            <td height="30"> <div align="center">新闻来源</div></td>
            <td colspan="3"> <input name="TxtSourceText" type="text" style="width:62%" value="<% = ITxtSource %>"> 
              <input type="hidden" name="TxtSource" value="<% = ITxtSource %>"> 
              <select name="select" style="width:25%" onChange="Dosusite(this.options[this.selectedIndex].value);">
                <option value="" selected> </option>
                <option value="<%=""&"***"&"Clean"%>" style="color:red">清空</option>
                <option value="本站原创">本站原创</option>
                <option value="不详">不详</option>
                <%
		Dim TxtSourceObj
		set TxtSourceObj = Conn.Execute("select * from FS_Routine where Type=2 order by ID desc")
		While not TxtSourceObj.eof
		%>
                <option value="<%=TxtSourceObj("Name")&"***"&TxtSourceObj("Url")%>"><%=TxtSourceObj("Name")%></option>
                <%
		TxtSourceObj.Movenext
		Wend
		TxtSourceObj.Close
		Set TxtSourceObj = Nothing
		%>
              </select> <input name="ChkSource" type="checkbox" id="ChkSource" value="SaveSource">
              保存 
              <div align="center"></div></td>
          </tr>
          <tr> 
            <td height="30"> <div align="center">关 键 字</div></td>
            <td colspan="3"> <input name="KeywordText" type="text" style="width:62%" value="<% = IKeyWords %>"> 
              <input type="hidden" name="KeyWords" value="<% = IKeyWords %>"> 
              <select name="select" style="width:25%" onChange=Dokesite(this.options[this.selectedIndex].value)>
                <option value="" selected> </option>
                <option value="Clean" style="color:red">清空</option>
                <%
		Dim KeyWordsObj
		set KeyWordsObj = Conn.Execute("select * from FS_Routine where Type=1 order by ID desc")
		while not KeyWordsObj.eof
		%>
                <option value="<%=KeyWordsObj("Name")%>"><%=KeyWordsObj("Name")%></option>
                <%
		KeyWordsObj.Movenext
		Wend
		KeyWordsObj.Close
		Set KeyWordsObj = Nothing
		%>
              </select> <input name="ChkKeyWord" type="checkbox" id="ChkKeyWord" value="SaveKeyWords">
              保存</td>
          </tr>
          <tr> 
            <td height="30"> <div align="center">新闻作者</div></td>
            <td colspan="3"> <input name="AuthorText" type="text" style="width:62%" value="<% = IAuthor %>"> 
              <input type="hidden" name="Author" value="<% = IAuthor %>"> <select name="select" id="select8" style="width:25%" onChange="Doauthsite(this.options[this.selectedIndex].value);">
                <option value="" selected> </option>
                <option value="<%=""&"***"&"Clean"%>" style="color:red">清空</option>
                <option value="佚名">佚名</option>
                <option value="本站">本站</option>
                <option value="未知">未知</option>
                <%
		Dim AuthorObj
		set AuthorObj = Conn.Execute("select * from FS_Routine where Type=3 order by ID desc")
		while not AuthorObj.eof
		%>
                <option value="<%=AuthorObj("Name")&"***"&AuthorObj("Url")%>"><%=AuthorObj("Name")%></option>
                <%
		AuthorObj.Movenext
		Wend
		AuthorObj.Close
		Set AuthorObj=nothing
		%>
              </select> <input name="ChkAuthor" type="checkbox" id="ChkAuthor" value="SaveAuthor">
              保存 </td>
          </tr>
          <tr> 
            <td height="30"> <div align="center">责任编辑</div></td>
            <td colspan="3"> <input name="EditerText" type="text" style="width:62%" value="<% = IEditer %>"> 
              <input type="hidden" name="Editer" value="<% = IEditer %>"> <select name="select" style="width:25%"  onChange="Editsite(this.options[this.selectedIndex].value);">
                <option value="" selected> </option>
                <option value="<%=""&"***"&"Clean"%>" style="color:red">清空</option>
                <%
		Dim EditerObj
		Set EditerObj = Conn.Execute("Select * from FS_Routine where Type=4 order by ID desc")
		while not EditerObj.eof
		%>
                <option value="<%=EditerObj("Name")&"***"&EditerObj("Url")%>"><%=EditerObj("Name")%></option>
                <%
		EditerObj.Movenext
		Wend
		EditerObj.Close
		Set EditerObj = Nothing

		%>
              </select> <input name="ChkEditer" type="checkbox" id="ChkEditer" value="SaveEditer">
              保存</td>
          </tr>
          <tr> 
            <td height="30"> <div align="center">浏览权限</div></td>
            <td colspan="3"> <select name="BrowPop" id="select7" style="width:100%" onChange="ChooseExeName();">
                <option value="" <%if IBrowPop = "" then Response.Write("selected")%>> 
                </option>
                <%
				Dim BrowPopObj
				Set BrowPopObj= New Cls_User
				Response.Write BrowPopObj.UserGroups("PopLevel",IBrowPop)
				Set BrowPopObj = Nothing
				%>
              </select></td>
          </tr>
          <tr> 
            <td height="30"> <div align="center">点&nbsp;&nbsp;&nbsp;&nbsp;击</div></td>
            <td width="458"> <input name="ClickNum" style="width:100%;" type="text" id="ClickNum3" size="10" value="<% if IClickNum = "" OR IsNull(IClickNum) then Response.Write("1") else Response.Write(IClickNum) %>"></td>
            <td width="108"><div align="center">扩&nbsp;展&nbsp;名</div></td>
            <td width="335"><select name="FileExtName" id="FileExtName" style="width:100%">
                <option <% if IFileExtName = "html" then Response.Write("Selected") %> value="html">html</option>
                <option <% if IFileExtName = "htm" then Response.Write("Selected") %> value="htm">htm</option>
                <option <% if IFileExtName = "shtm" then Response.Write("Selected") %> value="shtm">shtm</option>
                <option <% if IFileExtName = "shtml" then Response.Write("Selected") %> value="shtml">shtml</option>
                <option <% if IFileExtName = "asp" then Response.Write("Selected") %> value="asp">asp</option>
              </select></td>
          </tr>
		  <tr>
<td height="30"><div align="center">文&nbsp;件&nbsp;名</div></td>
<td><input name="FileName" type="text" id="FileName" value="<% = IFileName %>" style="width:80%"><a href="javascript:CheckFileName('CheckFileName.asp')"><font color="red">检查是否重名</font></a></td>
</tr>
          <tr> 
            <td> <div align="center">导航文字</div></td>
            <td height="30" colspan="3"><textarea name="NaviWords" rows="3" id="textarea2" style="width:100%"><% = INaviWords %></textarea></td>
          </tr>
          <tr> 
            <td rowspan="2"><div align="center">可选属性</div></td>
            <td height="30" colspan="3"> <input name="MarqueeNews" type="checkbox" id="MarqueeNews" value="1" <%if IMarqueeNews = 1 then Response.Write("checked") end if%>>
              滚动 
              <input name="ProclaimNews" type="checkbox" id="ProclaimNews2" value="1" <%if IProclaimNews = 1 then Response.Write("checked") end if%>>
              公告 
              <input name="ClassicalNewsTF" type="checkbox" id="ClassicalNewsTF" value="1" <%if IClassicalNewsTF = 1 then Response.Write("checked") end if%>>
              精彩 
              <input name="TodayNewsTF" type="checkbox" id="TodayNewsTF2" value="1" <%if ITodayNewsTF = 1 then Response.Write("checked") end if%>>
              头条 
              <input name="ReviewTF" type="checkbox" id="ReviewTF2" value="1" onClick="ChooseRiview();" <%if IReviewTF = 1 then Response.Write("checked") end if%>>
              允许评论 
              <input name="ShowReviewTF" type="checkbox" id="ShowReviewTF2" value="1" disabled <%if IShowReviewTF = 1 then Response.Write("checked") end if%>>
              显示评论 
              <input name="LinkTF" type="checkbox" id="LinkTF2" value="1" <%if ILinkTF = 1 then Response.Write("checked") end if%>>
              内部链接 </td>
          </tr>
          <tr> 
            <td height="30" colspan="3"><input name="SavePic" type="checkbox" id="SavePic2" value="1" <% if ISavePic = 1 then Response.Write("checked") end if %>>
              存图 
              <input name="FilterNews" type="checkbox" id="FilterNews2" value="1" <%if IFilterNews = 1 then Response.Write("checked") end if%>>
              幻灯 
              <input name="RecTF" type="checkbox" id="RecTF" value="1" <%if IRecTF = 1 then Response.Write("checked") end if%>>
              推荐 
              <input name="AuditTF" type="checkbox" id="AuditTF2" value="1" checked 
			  <%
			  if IAuditTF = 1 then Response.Write("checked")
  			  if Not (JudgePopedomTF(Session("Name"),"P010504")) then Response.Write(" style=""display:none;""><input type=""checkbox"" disabled")

			  %>>
              审核 
              <input name="FocusNewsTF" type="checkbox" id="FocusNewsTF2" value="1" <%if IFocusNewsTF = 1 then Response.Write("checked") end if%>>
              焦点 
              <input name="SBSNews" type="checkbox" id="SBSNews" value="1" <%if ISBSNews = 1 then Response.Write("checked") end if%>>
              并排 
              <input name="ManuTF" type="checkbox" id="ManuTF2" value="1" <%if IManuTF = 1 then Response.Write("checked") end if%>>
              投稿 </td>
          </tr>
        </table></td>
    </tr>
   <%if UserWebEditor = 0 then%>
    <tr id="ContentArea"> 
      <td colspan="3"><iframe id='NewsContent' src='../../Editer/NewsEditer.asp' frameborder=0 scrolling=no width='100%' height='410'></iframe></td>
    </tr>
 <%else%>
 <tr id="ContentArea"> 
      <td colspan="3"><INPUT type="hidden" name="Content" value="">
  <IFRAME ID="eWebEditor" src="/Ewebeditor/ewebeditor.asp?id=Content&style=standard1" frameborder="0" scrolling="no" width="100%" height="410"></IFRAME></td>
    </tr>
 <%end if%>
</table>
</form>
</body>
</html>
<script language="javascript">
function ChangeFolder(el)
{
	if (el.className=='LableSelected') return;
	var OperObj=null;
	var FolderIDArray=new Array('ContentFolder','AttributeFolder');
	var EditAreaIDArray=new Array('ContentArea','AttributeArea');
	el.className='LableSelected';
	el.bgColor='#EFEFEF';
	for (var i=0;i<FolderIDArray.length;i++)
	{
		OperObj=document.getElementById(FolderIDArray[i]);
		AreaObj=document.getElementById(EditAreaIDArray[i]);
		if (OperObj!=null)
		{
			if (OperObj.id!=el.id)
			{
				OperObj.className='LableDefault';
				OperObj.bgColor='#FFFFFF';
				if (AreaObj!=null) AreaObj.style.display='none';			
			}
			else if (AreaObj!=null) AreaObj.style.display='';
		}
	}
}
 function ChooseRiview()
   {
      if (document.NewsForm.ReviewTF.checked==true)
	      {
		    document.NewsForm.ShowReviewTF.disabled=false;
		   }
      else
	      {
	        document.NewsForm.ShowReviewTF.disabled=true;
		   }
	}
	
function ChooseExeName()
{
  if (document.NewsForm.BrowPop.value!='') document.NewsForm.FileExtName.disabled=true;
  else document.NewsForm.FileExtName.disabled=false;
 }

function SubmitFun()
{
	if (frames["NewsContent"].CurrMode!='EDIT') {alert('其他模式下无法保存，请切换到设计模式');return;}
	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 SelectClass()
{
	var ReturnValue='',TempArray=new Array();
	ReturnValue = OpenWindow('../../FunPages/SelectClassFrame.asp',400,300,window);
	if (ReturnValue.indexOf('***')!=-1)
	{
		TempArray = ReturnValue.split('***');
		document.all.ClassID.value=TempArray[0]
		document.all.ClassCNameShow.value=TempArray[1]
	}
}
ChooseRiview();
ChooseExeName();
</script>
</script>
<script language="javascript">
function CheckFileName(gotoURL) {
var Open_url = gotoURL + "?FileName=" + NewsForm.FileName.value.toLowerCase() + "&T=FS_News";
window.open(Open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=200,height=40');
}
</script>