📄 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/User.Css"" />" & Vbcrlf
	Response.Write "<script src=""../Inc/Js/Admin.js"" type=""text/javascript""></script>" & Vbcrlf
	Response.Write "<script src=""../inc/Js/selectdate.js"" type=""text/javascript""></script>" & 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>"
End Sub

Sub Footer()
	Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""3"" align=""center"" class=""footer"">" & 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

Sub User_MsgNav()
	Response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">"
	Response.Write "<tr height=""22"">"
	Response.Write "	<td class=""title"" align=""center"">用户短消息功能</td>"
	Response.Write "</tr>"
	Response.Write "<TR><TD align=""center"" class=""tdbg"">"
	Response.Write "		<a href=""User_Message.asp?action=inbox""><img src="""&Cl.WebDir&"Images/Message/inbox.gif"" border=0 alt=""收件箱"" /></a> &nbsp; "
	Response.Write "		<a href=""User_Message.asp?action=outbox""><img src="""&Cl.WebDir&"Images/Message/outbox.gif"" border=0 alt=""发件箱"" /></a> &nbsp; "
	Response.Write "		<a href=""User_Message.asp?action=issend""><img src="""&Cl.WebDir&"Images/Message/issend.gif"" border=0 alt=""已发送邮件"" /></a> &nbsp; "
	Response.Write "		<a href=""User_Message.asp?action=recycle""><img src="""&Cl.WebDir&"Images/Message/recycle.gif"" border=0 alt=""废件箱"" /></a> &nbsp; "
	Response.Write "		<a href=""User_Friend.asp""><img src=""../images/Message/address.gif"" border=""0"" alt=""地址簿"" /></a> &nbsp; "
	Response.Write "		<a href=""User_Message.asp?action=new""><img src="""&Cl.WebDir&"Images/Message/write.gif"" border=0 alt=""发送消息"" /></a></td></tr>"
	Response.Write "</table><br />"
End Sub

Public Function GetManageArrClassID_U()
	Dim arrIDStr,TempID
	if Action="Check" then
		if Cl.User_Group.SelectSingleNode("@arrclassmaster").text<>"" then
			TempID = Split(Cl.User_Group.SelectSingleNode("@arrclassmaster").text,",")
			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.User_Group.SelectSingleNode("@arrclasscheck").text<>"" then
			TempID = Split(Cl.User_Group.SelectSingleNode("@arrclasscheck").text,",")
			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.User_Group.SelectSingleNode("@arrclassmaster").text<>"" then
			TempID = Split(Cl.User_Group.SelectSingleNode("@arrclassmaster").text,",")
			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
	GetManageArrClassID_U = 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
%>
💿 文件大小 6211 K
👤 上传用户 xiaoyunwang
📂 所属分类书籍源码
🏷️ 相关标签

#商 #网站 #程序
⌨️ 快捷键说明

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