newswords.asp

asp源码 图片ASP整站

				SpecialCNameText = ""
				TempISpecialID = ISpecialID
				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%" value="<% = SpecialCNameText %>" readonly>  
              <input type="hidden" name="SpecialID" value="<% = ISpecialID %>">  
              <select name="SelSpecialID" 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> 
              <input name="TxtSourceText" type="text" style="width:62%" value="<% = ITxtSource %>">  
              <input type="hidden" name="TxtSource" value="<% = ITxtSource %>">  
              <select name="SelTxtSource" 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> 
              <input name="KeywordText" type="text" style="width:62%" value="<% = IKeyWords %>"> 
              <input type="hidden" name="KeyWords" value="<% = IKeyWords %>"> 
              <select name="SelKeyWords" 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> 
              <input name="AuthorText" type="text" style="width:62%" value="<% = IAuthor %>"> 
              <input type="hidden" name="Author" value="<% = IAuthor %>"> 
              <select name="SelAuthor" 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> 
              <input name="EditerText" type="text" style="width:62%" value="<% = IEditer %>"> 
              <input type="hidden" name="Editer" value="<% = IEditer %>"> 
              <select name="Editer1" 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> 
              <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>
<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>
          </tr>
          <tr> 
            <td height="30"> 
              <div align="center">扩&nbsp;展&nbsp;名</div></td>
            <td>
<select name="FileExtName" id="select10" style="width:100%">
                <option <% if IFileExtName = "htm" then Response.Write("Selected") %> value="htm">htm</option>
                <option <% if IFileExtName = "html" then Response.Write("Selected") %> value="html">html</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 height="30"> 
              <div align="center">可选属性</div></td>
            <td><input name="SBSNews" type="checkbox" id="SBSNews" value="1" <%if ISBSNews = "1" then Response.Write("checked") end if%>>
              并排 　　 
              <input name="MarqueeNews" type="checkbox" id="MarqueeNews" value="1" <%if IMarqueeNews = "1" then Response.Write("checked") end if%>>
              滚动 　　　 
              <input name="ProclaimNews" type="checkbox" id="ProclaimNews" value="1" <%if IProclaimNews = "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="AuditTF" 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="ReviewTF" type="checkbox" id="ReviewTF" value="1" onClick="ChooseRiview();" <%if IReviewTF = "1" then Response.Write("checked") end if%>>
              允许评论 
              <input name="ShowReviewTF" type="checkbox" id="ShowReviewTF" value="1" disabled <%if IShowReviewTF = "1" then Response.Write("checked") end if%>>
              显示评论 　<br>
              <br>
              <input name="LinkTF" type="checkbox" id="LinkTF" value="1" <%if ILinkTF = "1" then Response.Write("checked") end if%>>
              内部链接 &nbsp;
              <input name="ManuTF" type="checkbox" id="ManuTF" value="1" <%if Request("ManuTF")="1" then Response.Write("checked") end if%>>
              投稿 　　 &nbsp;&nbsp;
              <input type="checkbox" name="SavePic" value="1" <%if ISavePic = "1" then Response.Write("checked") end if%>>
              远程存图 　 &nbsp;
              <input name="TodayNewsTF" type="checkbox" id="TodayNewsTF" value="1" <%if ITodayNewsTF = "1" then Response.Write("checked") end if%>>
              今日头条 </td>
          </tr>
        </table></td>
    </tr>
    <%if UserWebEditor = 0 then%>
    <tr id="ContentArea"> 
      <td colspan="2"><iframe id='NewsContent' src='../../Editer/NewsEditer.asp' frameborder=0 scrolling=no width='100%' height='440'></iframe></td>
    </tr>
 <%else%>
 <tr id="ContentArea"> 
      <td colspan="2"><INPUT type="hidden" name="Content" value="">
  <IFRAME ID="eWebEditor" src="/Ewebeditor/ewebeditor.asp?id=Content&style=standard1" frameborder="0" scrolling="no" width="100%" height="440"></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>