📄 function.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
字号:
<%
Sub Header()
	Response.Write "<html>" & Vbcrlf & "<head>" & Vbcrlf
	Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"  & Vbcrlf & _
		"<meta name=""generator"" content=""Aspoo"" />"  & Vbcrlf & _
		"<link rev=""made"" href=""mailto:in"&"fo@as"&"poo.cn"" />" & Vbcrlf
	Response.Write "<title>Aspoo创力网站管理系统--后台管理</title>" & Vbcrlf
	Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""../Skins/Css/Admin.Css"" />" & Vbcrlf
	Response.Write "<script src=""../Inc/Js/Admin.js"" type=""text/javascript""></script>" & Vbcrlf
	Response.Write "<base target=""_self"" />" & Vbcrlf
	Response.Write "</head>" & Vbcrlf
	Response.Write "<body>" & Vbcrlf
	Response.Write "<div class=""hidden"" id=""AjaxWorking"" style=""top:20;right:20;""><table><tr><td ><img src="""&InstallDir&"Images/Working.gif"" border=""0"" width=""16"" height=""16"" /></td><td id=""AjaxWorkingText""></td></tr></table></div>" 'visible
End Sub

Sub Footer()
	Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""3"" align=""center"" class=""footer"">" & Vbcrlf & _
		"<tr>" & Vbcrlf & _
			"<td align=""center""><a href=""http://Www."&"Asp"&"oo.Cn/"" target=""_blank"">"&ClCMS_Version&"<font color=""blue"">."&Right(Cl.SysTemUpDate,4)&"</font></a></td>" & Vbcrlf & _
		"</tr>" & Vbcrlf & _
		"<tr>" & Vbcrlf & _
			"<td align=""center"">"& Cl.Web_info(9) &"</td>" & Vbcrlf & _
		"</tr>" & Vbcrlf & _
		"</table>" & Vbcrlf
	Response.Write "</body>" & Vbcrlf & "</html>"
	CloseAllObj
	'<br />页面执行时："&FormatNumber((Timer-PageBeginTime)*1000,2)&"毫秒
End Sub

Public Sub ShowCreateWindow(w_title,w_href)
	With Response
	.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">"
	.Write "<tr class=""title""><td align=""center"" height=""22""><b>HTML生成管理窗口</b></td></tr>"
	.Write "<tr class=""tdbg""><td align=""center"" height=""22""><span id=txt1 name=txt1 style=""font-size:12pt""><b>"&w_title&"</b><br /><font color=red>注意，在未完成时，请不要关闭浏览器或刷新本页。</font></span></td></tr>"
	.Write "<tr class=""tdbg""><td align=""center"" valign=""middle"">"
	.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""500"">"
	.Write "<tr><td height=""33"" align=""center"" colspan=2><span id=txt4 name=txt4 style=""font-size:9pt""></span></td></tr>"
	.Write "<tr><td width=""500"" height=""22"" align=""center"">"
	.Write "<table width=""500"" border=""1"" cellspacing=""0"" cellpadding=""1"">"
	.Write "<tr><td><img src=""../Images/bar/bar3.gif"" width=0 height=16 id=img1 name=img1 align=absmiddle></td></tr></table>"
	.Write "</td></tr>"
	.Write "<tr><td><span id=txt2 name=txt2 style=""font-size:9pt"">0</span><span style=""font-size:9pt"">%</span></td></tr>"
	.Write "<tr><td><span id=txt5 name=txt5 style=""font-size:9pt""></span></td></tr></table>"
	.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""500"">"
	.Write "<tr><td height=""33"" align=""center"" colspan=2><input type=""button"" name=""cancel"" value="" 取 消 "" onclick=""window.location.href='"&w_href&"';"">&nbsp;&nbsp;<Input id=isshowwork name=isshowwork type=Checkbox value=1 onclick=showwork()><span id=showw>查看详细进程</span></td></tr>"
	.Write "</table>"
	.Write "<Div ID=""work"" style=""display:none;""><table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""500"">"
	.Write "<tr><td><span id=txt3 name=txt3 style=""font-size:9pt""></span></td></tr></table></Div>"
	.write "</td></tr></table>"
	.write "<script type=""text/javascript"">" & VbCrLf
	.write "<!--" & VbCrLf
	.write "function showwork(){" & VbCrLf
	.write "if (document.getElementById('isshowwork').checked == true) {" & VbCrLf
	.write "	document.getElementById('work').style.display = '';" & VbCrLf
	.write "	document.getElementById('showw').innerText='关闭详细进程';" & VbCrLf
	.write "}else{" & VbCrLf
	.write "	document.getElementById('work').style.display = 'none';" & VbCrLf
	.write "	document.getElementById('showw').innerText='查看详细进程';" & VbCrLf
	.write "}" & VbCrLf
	.write "}" & VbCrLf
	.write "//-->" & VbCrLf
	.write "</script>"
	.Flush
	End With
End Sub
Public Sub RefreshHtml(txt,Nown,Alln)
	Response.Write "<script language='JavaScript' type='text/javascript'>img1.width=" & Fix((Nown/Alln) * 500) & ";" & VbCrLf & _
					"txt2.innerHTML=""" & FormatNumber(Nown/Alln*100,2,-1) & """;" & VbCrLf & _
					"txt3.innerHTML+=""<br />"&txt&""";" & _
					"</script>"
	Response.Flush
End Sub
Public Sub RefreshHtml2(SName,SValue)
	Response.Write "<script language='JavaScript' type='text/javascript'>" & vbCrLf & _
					SName & ".innerHTML=""" & SValue & """;" & vbCrLf & _
					"</script>"
	Response.Flush
End Sub

Public Function GetManageArrClassID()
	Dim arrIDStr,TempID
	if Action="Check" then
		if Cl.Admin_Info(5)<>"" then
			TempID = Split(Cl.Admin_Info(5),",")
			for i=0 to ubound(TempID)
				set tClass = Application(Cl.CacheName & "_classlist").DocumentElement.SelectSingleNode("class[@classid="&TempID(i)&"]")
				if Not tClass Is Nothing then
					arrIDStr=arrIDStr & tClass.SelectSingleNode("@arrchildid").text & ","
				End if
				Set tClass=Nothing
			Next
		end if
		if Cl.Admin_Info(6)<>"" then
			TempID = Split(Cl.Admin_Info(6),",")
			for i=0 to ubound(TempID)
				set tClass = Application(Cl.CacheName & "_classlist").DocumentElement.SelectSingleNode("class[@classid="&TempID(i)&"]")
				if Not tClass Is Nothing then
					arrIDStr=arrIDStr & tClass.SelectSingleNode("@arrchildid").text & ","
				End if
				Set tClass=Nothing
			Next
		End if
	else
		if Cl.Admin_Info(5)<>"" then
			TempID = Split(Cl.Admin_Info(5),",")
			for i=0 to ubound(TempID)
				set tClass = Application(Cl.CacheName & "_classlist").DocumentElement.SelectSingleNode("class[@classid="&TempID(i)&"]")
				if Not tClass Is Nothing then
					arrIDStr=arrIDStr & tClass.SelectSingleNode("@arrchildid").text & ","
				End if
				Set tClass=Nothing
			Next
		end if
	end if
	TempID=Empty
	Dim Node
	For Each Node In Application(Cl.CacheName & "_classlist").DocumentElement.SelectNodes("class[@channelid="&channelid&"]")
		If InStr(Node.SelectSingleNode("@classmaster").text,Cl.Admin_Info(1))>0 Then
			arrIDStr = Replace(arrIDStr,","&Node.SelectSingleNode("@classid").text&",",",") & Node.SelectSingleNode("@classid").text&","
		End if
	Next
	GetManageArrClassID = arrIDStr
End Function

Sub InfoManegeOptionBottom(ModuleName)
	With Response
	.write "<input name=""ChannelID"" type=""hidden"" id=""ChannelID"" value="""&ChannelID&""">"
	.write "<input name=""Action"" type=""hidden"" id=""Action"" value=""Del"">"
	Select Case Action
	Case "Check"
		if Status=1 Then
			.write "<input type=""submit"" value=""取消审核选定的记录"" onClick=""return doCancelPassed();"">"
		else
			.write "<input type=""submit"" value=""审核选定的记录"" onClick=""return doSetPassed()"">"
		end If
		.write "&nbsp;&nbsp;<input type=""submit"" value=""删除选定的记录"" onClick=""return doDel();"">"
	Case "RecycleBin"
		.write "<input type=""submit"" value=""彻底删除选定的记录"" onClick=""return doDelRecyclebin();"">"
		.write "<input type=""submit"" value=""清空回收站"" onClick=""return doClearRecyclebin();"">"
		.write "&nbsp;&nbsp;&nbsp;&nbsp;"
		.write "<input type=""submit"" onClick=""return doRestore()"" value=""还原选定的记录"">"
		.write "<input type=""submit"" value=""还原所有记录"" onClick=""return doRestoreAll();"">"
	Case "Special"
		.write "<input type=""submit"" value=""将选定的记录从所属专题中删除"" onClick=""return doDelFromSpecial();"">"
		.write "&nbsp;&nbsp;&nbsp;&nbsp;"
		.write "<input type=""submit"" value=""将选定的记录移动到"" onClick=""return doMoveToSpecial();"">"
		.write "<select name=""SpecialID"">"&ShowSpecial_Option(ChannelID,SpecialID,1)&"</select>"
	Case "Make"
		.write "<input type=""submit"" onClick=""return doCreateInfo('"&ModuleName&"');"" value=""生成选定记录"">"
		.write "<input type=""submit"" onClick=""return doDelInfoHTML('"&ModuleName&"');"" value=""删除选定记录HTML"">"
		.write "&nbsp;&nbsp;&nbsp;&nbsp;"
		.write "<input type=""submit"" onClick=""return doCreateInfoAll('"&ModuleName&"');"" value=""生成所有记录"">"
		.write "<input type=""submit"" onClick=""return doDelInfoHTMLAll('"&ModuleName&"');"" value=""删除所有记录HTML"">"
	Case Else
		.write "<input type=""submit"" value=""删除选定记录"" onClick=""return doDel();"">"
		.write "&nbsp;&nbsp; <input type=""submit"" value=""批量移动到栏目..."" onClick=""return doMoveMore()"">"
		'Response.write "<select name=""TargetClassID"">"&ShowClass_Option(ChannelID,ClassID,2,1)&"</select>"
		.write "&nbsp;&nbsp; <input type=""submit"" value=""移动到专题："" onClick=""return doMoveToSpecial()"">"
		.write "<select name=""SpecialID"">"&ShowSpecial_Option(ChannelID,SpecialID,1)&"</select>"
	End Select
	End With
End Sub

Function InfoManegeJumpClass()
	InfoManegeJumpClass = "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & _
	"<tr><td>{$showpage}</td>" & _
	"<td height=""22"" align=""right"">" & _
	"<select name=""JumpClass"" onchange=""if(this.options[this.selectedIndex].value!=''){location='"&FileName&"&ClassID='+this.options[this.selectedIndex].value;}"">" & _
	"<option value='' selected>跳转栏目至…</option>" & _
	ShowClass_Option(ChannelID,0,2,3) & _
	"</select>&nbsp;</td></tr></table>"
End Function

Sub InfoManegeExplain()
	Response.write "<br /><br />"
	Response.write "<div style='text-align:left;'><b>说明：</b><br />"
	Response.write "&nbsp;&nbsp;&nbsp;&nbsp;属性中的各项含义：<font color='blue'>顶</font>---固顶，<font color='red'>热</font>---热门，<font color='green'>荐</font>---推荐，<font color='blue'>图</font>---图片，<font color='blue'>H</font>---已生成HTML文件，<font color='red'>转</font>---转向链接</div>"
End Sub

Sub CreateTemplateOptionJs(FirstProjectID,FirstCssID,ProjectObj,CssObj)
	Dim Rs,SQL,ProjectArray,i,ii
	Set Rs = Cl.Execute("Select ProjectID,ProjectName From Cl_TemplateProject")
	If Not Rs.Eof Then
		ProjectArray = Rs.GetRows(-1)
	End If
	Rs.close:Set Rs=Nothing
	If Not IsArray(ProjectArray) Then Exit Sub
	Response.Write "<script type=""text/javascript"">" & VbCrlf
	Response.Write "var ProjectObj=document.getElementById("""&ProjectObj&""");" & VbCrlf
	Response.Write "var Css_Option=new Array();" & VbCrlf
	Response.Write "var IsDefault=new Array();" & VbCrlf
	ii=0
	For i=0 To UBound(ProjectArray,2)
		Response.Write "ProjectObj.options[ProjectObj.length] = new Option("""&ProjectArray(1,i)&""", """&ProjectArray(0,i)&""");" & VbCrlf
		Set Rs = Cl.Execute("select CssID,CssName,ProjectID,IsDefault from Cl_Css where ProjectID="&CLng(ProjectArray(0,i))&"")
		Do While Not Rs.eof
			Response.Write "Css_Option["&ii&"]=Array("""&ProjectArray(0,i)&""","""&Rs(0)&""","""&Rs(1)&""");" & VbCrlf
			If FirstCssID=Rs(0) And FirstProjectID=Rs(2) Then
				Response.Write "IsDefault["&ii&"]=1;" & VbCrlf
			ElseIf rs(3)=True And FirstProjectID<>Rs(2) Then
				Response.Write "IsDefault["&ii&"]=1;" & VbCrlf
			Else
				Response.Write "IsDefault["&ii&"]=0;" & VbCrlf
			End if
			ii=ii+1
			Rs.MoveNext
		Loop
		Rs.close:Set Rs=Nothing
	Next
	ProjectArray = Empty
	Response.Write "function ChangeTemplate(projectid,objname)" & VbCrlf
	Response.Write "{" & VbCrlf
	Response.Write "    var obj=document.getElementById(objname);" & VbCrlf
	Response.Write "    var i;j=obj.length;" & VbCrlf
	Response.Write "    for (i=0;i<j;i++)" & VbCrlf
	Response.Write "    {" & VbCrlf
	Response.Write "        obj.options[j-i]=null;" & VbCrlf
	Response.Write "    }" & VbCrlf
	Response.Write "    j=Css_Option.length" & VbCrlf
	Response.Write "    for (i=0;i<j;i++)" & VbCrlf
	Response.Write "    {" & VbCrlf
	Response.Write "        if (Css_Option[i][0] == projectid)" & VbCrlf
	Response.Write "        {" & VbCrlf
	Response.Write "            obj.options[obj.length] = new Option(Css_Option[i][2], Css_Option[i][1]);" & VbCrlf
	Response.Write "            if (IsDefault[i]==1){CheckSel(objname,Css_Option[i][1]);}" & VbCrlf
	Response.Write "        }" & VbCrlf
	Response.Write "    }" & VbCrlf
	Response.Write "}" & VbCrlf
	Response.Write "CheckSel("""&ProjectObj&""","""&FirstProjectID&""");" & VbCrlf
	Response.Write "ChangeTemplate("""&FirstProjectID&""","""&CssObj&""");" & VbCrlf
	Response.Write "</script>"
End Sub

Function TemplateProjectOption()
	Dim tProjectOption,Rs
	tProjectOption = "<option value=""0"">默认方案</option>"
	Set Rs = Cl.Execute("Select ProjectID,ProjectName From Cl_TemplateProject order by ProjectID Asc")
	Do While Not Rs.Eof
		tProjectOption = tProjectOption & "<option value="""&Rs(0)&""">"&Rs(1)&"</option>"
		Rs.MoveNext
	Loop
	Rs.close:Set Rs=Nothing
	TemplateProjectOption = tProjectOption
End Function
%>
⌨️ 快捷键说明

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