⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 site.asp

📁 asp源码 图片ASP整站
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
		</tr>
	</table>
</form>
<% End Sub

Sub AddFolder()
	if Not JudgePopedomTF(Session("Name"),"P080101") then Call ReturnError1()
	Dim TempletDirectory
	if SysRootDir <> "" then
		TempletDirectory = "/" & SysRootDir & "/" & TempletDir
	else
		TempletDirectory = "/" & TempletDir
	end if
%>
<form name="AddSiteFolderForm" method="post" action="site.asp?sfid=<%=Trim(Request("SiteFolderID"))%>">
	<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
		<tr bgcolor="#EEEEEE">
			<td height="26" colspan="5" valign="middle"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
					<tr>
						<td width=35 align="center" alt="保存" onClick="document.AddSiteFolderForm.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
						<td width=2 class="Gray">|</td>
						<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
						<td>&nbsp;
							<input name="vs" type="hidden" id="vs2" value="addfolder">
						</td>
					</tr>
				</table></td>
		</tr>
	</table>
	<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="dddddd">
		<%
	Dim SiteFolderID,RsSiteFolder
	SiteFolderID = Request("SiteFolderID")
	If Trim(SiteFolderID)<>"" Then
		Set RsSiteFolder = CollectConn.Execute("select * from FS_SiteFolder where ID=" & CInt(SiteFolderID))
		If RsSiteFolder.EOF Then
			Response.write "<script>alert('该栏目不存在！');history.back();</script>"
			Response.End
		End If
	%>
		<tr bgcolor="#FFFFFF">
			<td width="100" height="26"><div align="center">栏目名称:</div></td>
			<td><input style="width:100%" type="text" name="SiteFolder" value="<%=RsSiteFolder("SiteFolder")%>"></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="100" height="26"><div align="center">栏目说明:</div></td>
			<td><textarea style="width:100%" name="SiteFolderDetail" rows="10"><%=RsSiteFolder("SiteFolderDetail")%></textarea></td>
		</tr>
		<%
	Else
	%>
		<tr bgcolor="#FFFFFF">
			<td width="100" height="26"><div align="center">栏目名称:</div></td>
			<td><input style="width:100%" type="text" name="SiteFolder"></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td width="100" height="26"><div align="center">栏目说明:</div></td>
			<td><textarea style="width:100%" name="SiteFolderDetail" rows="10"></textarea></td>
		</tr>
		<%
	End If
	%>
	</table>
</form>
<% End Sub %>
</body>
</html>
<%
Function ClassList()
	Dim ClassListObj
	Set ClassListObj = Conn.Execute("Select ClassID,ClassCName from FS_NewsClass where ParentID='0' and IsOutClass=0 order by ClassID desc")
	do while Not ClassListObj.Eof
		ClassList = ClassList & "<option value="&ClassListObj("ClassID")&"" & ">" & ClassListObj("ClassCName") & "</option><br>"
		ClassList = ClassList & ChildClassList(ClassListObj("ClassID"),"")
		ClassListObj.MoveNext	
	loop
	ClassListObj.Close
	Set ClassListObj = Nothing
End Function

Function FolderList()
	Dim FolderListObj,StrSelected
	Set FolderListObj = Collectconn.Execute("Select * from FS_SiteFolder order by ID desc")
	do while Not FolderListObj.Eof
		If CInt(Request("FolderID"))=FolderListObj("ID") Then
			StrSelected="selected"
		Else
			StrSelected=""
		End If
		FolderList = FolderList & "<option value="&FolderListObj("ID")&" " & StrSelected & ">&nbsp;&nbsp;|--" & FolderListObj("SiteFolder") & "</option><br>"
		FolderListObj.MoveNext	
	loop
	FolderListObj.Close
	Set FolderListObj = Nothing
End Function

Function ChildClassList(ClassID,Temp)
	Dim TempRs,TempStr
	Set TempRs = Conn.Execute("Select ClassID,ClassCName from FS_NewsClass where ParentID='" & ClassID & "' and IsOutClass=0 order by ClassID desc")
	TempStr = Temp & " |- "
	do while Not TempRs.Eof
		ChildClassList = ChildClassList & "<option value="&TempRs("ClassID")&"" & ">" & TempStr & TempRs("ClassCName") & "</option><br>"
		ChildClassList = ChildClassList & ChildClassList(TempRs("ClassID"),TempStr)
		TempRs.MoveNext
	loop
	TempRs.Close
	Set TempRs = Nothing
End Function

Set Conn = Nothing
Set CollectConn = Nothing
%>
<script language="JavaScript">
var DocumentReadyTF=false;
var ListObjArray = new Array();
var ContentMenuArray=new Array();
function document.onreadystatechange()
{
	if (DocumentReadyTF) return;
	<% if Request("Action") <> "Addsite" and Request("Action") <> "AddsiteFolder" then %>
	IntialListObjArray();
	InitialContentListContentMenu();
	<% end if %>
	DocumentReadyTF=true;
}
function InitialContentListContentMenu()
{
	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction("parent.AddSite();",'新建站点','disabled');
	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction("parent.EditSite();",'修改','disabled');
	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction("parent.DelSite();",'删除','disabled');
	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('seperator','','');
//	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.StartCollect();','采集','disabled');
//	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.ResumeCollect();','续采','disabled');
//	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.StartCollectAtServer();','后台采集','disabled');
//	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.EditSiteGuide();','向导','disabled');
//	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.CopySite();','复制','disabled');
//	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('seperator','','');
	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.Lock(true);','锁定','disabled');
	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.Lock(false);','解锁','disabled');
	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('seperator','','');
	//ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.Export();','导出','disabled');
	//ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('parent.Import();','导入','disabled');
	//ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('seperator','','');
	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('top.GetEkMainObject().location.reload();','刷新','');
//	ContentMenuArray[ContentMenuArray.length]=new ContentMenuFunction('prompt(\'本页面路径属性\',\'<%=Request.ServerVariables("SCRIPT_NAME")%>\');','路径属性','');
}
function ContentMenuFunction(ExeFunction,Description,EnabledStr)
{
	this.ExeFunction=ExeFunction;
	this.Description=Description;
	this.EnabledStr=EnabledStr;
}
function ContentMenuShowEvent()
{
	ChangeContentMenuStatus();
}
function ChangeContentMenuStatus()
{
	var EventObjInArray=false,SelectContent='',SelectFolder='',DisabledContentMenuStr='';
	for (var i=0;i<ListObjArray.length;i++)
	{
		if (event.srcElement==ListObjArray[i].Obj)
		{
			if (ListObjArray[i].Selected==true) EventObjInArray=true;
			break;
		}
	}
	for (var i=0;i<ListObjArray.length;i++)
	{
		if (event.srcElement==ListObjArray[i].Obj)
		{
			ListObjArray[i].Obj.className='TempletSelectItem';
			ListObjArray[i].Selected=true;
			if (ListObjArray[i].Obj.SiteID!=null)
			{
				if (SelectContent=='') SelectContent=ListObjArray[i].Obj.SiteID;
				else SelectContent=SelectContent+'***'+ListObjArray[i].Obj.SiteID;
			}
			if (ListObjArray[i].Obj.SiteFolderID!=null)
			{
				if (SelectFolder=='') SelectFolder=ListObjArray[i].Obj.SiteFolderID;
				else SelectFolder=SelectFolder+'***'+ListObjArray[i].Obj.SiteFolderID;
			}
		}
		else
		{
			if (!EventObjInArray)
			{
				ListObjArray[i].Obj.className='TempletItem';
				ListObjArray[i].Selected=false;
			}
			else
			{
				if (ListObjArray[i].Selected==true)
				{
					if (ListObjArray[i].Obj.SiteID!=null)
					{
						if (SelectContent=='') SelectContent=ListObjArray[i].Obj.SiteID;
						else SelectContent=SelectContent+'***'+ListObjArray[i].Obj.SiteID;
					}
					if (ListObjArray[i].Obj.SiteFolderID!=null)
					{
						if (SelectFolder=='') SelectFolder=ListObjArray[i].Obj.SiteFolderID;
						else SelectFolder=SelectFolder+'***'+ListObjArray[i].Obj.SiteFolderID;
					}
				}
			}
		}
	}
	if (SelectContent=='' && SelectFolder=='') DisabledContentMenuStr=',修改,删除,向导,复制,采集,续采,后台采集,锁定，解锁,导出,';
	else if (SelectContent!='' && SelectFolder!='')
	{
		DisabledContentMenuStr=',修改,向导,采集,续采,后台采集,锁定，解锁,导出,';
	}
	else if (SelectContent!='')
	{
		if (SelectContent.indexOf('***')==-1) DisabledContentMenuStr='';
		else DisabledContentMenuStr=',修改,向导,复制,';
	}
	else
	{		
		if (SelectFolder.indexOf('***')==-1) DisabledContentMenuStr=',向导,采集,续采,后台采集,锁定，解锁,导出,';
		else DisabledContentMenuStr=',修改,向导,采集,续采,后台采集,锁定，解锁,导出,';
	}
	for (var i=0;i<ContentMenuArray.length;i++)
	{
		if (DisabledContentMenuStr.indexOf(ContentMenuArray[i].Description)!=-1) ContentMenuArray[i].EnabledStr='disabled';
		else  ContentMenuArray[i].EnabledStr='';
	}
}
function FolderFileObj(Obj,Index,Selected)
{
	this.Obj=Obj;
	this.Index=Index;
	this.Selected=Selected;
}
function IntialListObjArray()
{
	var CurrObj=null,j=1;
	for (var i=0;i<document.all.length;i++)
	{
		CurrObj=document.all(i);
		if (CurrObj.SiteID!=null)
		{
			ListObjArray[ListObjArray.length]=new FolderFileObj(CurrObj,j,false);
			j++;
		}
		if (CurrObj.SiteFolderID!=null)
		{
			ListObjArray[ListObjArray.length]=new FolderFileObj(CurrObj,j,false);
			j++;
		}
	}
}
function SelectSite()
{
	var el=event.srcElement;
	var i=0;
	if ((event.ctrlKey==true)||(event.shiftKey==true))
	{
		if (event.ctrlKey==true)
		{
			for (i=0;i<ListObjArray.length;i++)
			{
				if (el==ListObjArray[i].Obj)
				{
					if (ListObjArray[i].Selected==false)
					{
						ListObjArray[i].Obj.className='TempletSelectItem';
						ListObjArray[i].Selected=true;
					}
					else
					{
						ListObjArray[i].Obj.className='TempletItem';
						ListObjArray[i].Selected=false;
					}
				}
			}
		}
		if (event.shiftKey==true)
		{
			var MaxIndex=0,ObjInArray=false,EndIndex=0,ElIndex=-1;
			for (i=0;i<ListObjArray.length;i++)
			{
				if (ListObjArray[i].Selected==true)
				{
					if (ListObjArray[i].Index>=MaxIndex) MaxIndex=ListObjArray[i].Index;
				}
				if (el==ListObjArray[i].Obj)
				{
					ObjInArray=true;
					ElIndex=i;
					EndIndex=ListObjArray[i].Index;
				}
			}
			if (ElIndex>MaxIndex)
				for (i=MaxIndex-1;i<EndIndex;i++)
				{
					ListObjArray[i].Obj.className='TempletSelectItem';
					ListObjArray[i].Selected=true;
				}
			else
			{
				for (i=EndIndex;i<MaxIndex-1;i++)
				{	
					ListObjArray[i].Obj.className='TempletSelectItem';
					ListObjArray[i].Selected=true;
				}
				ListObjArray[ElIndex].Obj.className='TempletSelectItem';
				ListObjArray[ElIndex].Selected=true;
			}
		}
	}
	else
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -