admin_js.asp

电子备课系统

		Response.Write  "模板文件不存在，无法完成操作"
		Response.End
	End If
	eName = Trim(request("ename"))
	If eName ="" Then
		oblog.ShowMsg "请选择一个项目",""
	Else
		arrTemp = Split (eName,",")
		For Each eName In  Request("ename")
			Set nodeTemp = xmlTemp.NodeObj("template[@name='"&eName&"']")
			If Not (nodeTemp Is Nothing ) Then
				xmlTemp.removeChild("template[@name='"&eName&"']")
			End if
		Next
		xmlTemp.Save()
		oblog.ShowMsg "删除成功",""
	End if
End Sub

Sub saveAdd()

	If eName = "" Then
		oblog.ShowMsg "名称不能为空","back"
	End If
	If Intro = "" Then
		oblog.ShowMsg "调用说明不能为空","back"
	End If
	If eType = 0 Then
		oblog.ShowMsg "请选择一个调用类别","back"
	End If
	If Update ="" Or Not IsNumeric(Update) Then Update = 600
	Set xmlDoc = new Cls_xmlDoc
	xmlDoc.Unicode = False

	If Not xmlDoc.LoadXml("../xmlData/jsTemplate.config") Then
		oblog.ShowMsg "模板文件不存在，无法完成操作","back"
	End If

	Set node = XmlDoc.NodeObj("template[@name='"&eName&"']")

	If isModify = "" Then
	'非编辑模式不允许重名
		If Not (node Is Nothing ) Then
			oblog.ShowMsg "此名称已经存在，请换名重试","back"
		End If
		XmlDoc.InsertElement2 XmlDoc.NodeObj("root"),"template","",False,"name",eName
	End If

	Set node = XmlDoc.NodeObj("template[@name='"&eName&"']")

	xmlDoc.setAttributeNode "template[@name='"&eName&"']","type",etype
	xmlDoc.setAttributeNode "template	[@name='"&eName&"']","intro",intro
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","update",update
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","IP",oblog.UserIp
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","admin",session("adminname")

	If isModify = "" Then
		xmlDoc.setAttributeNode "template[@name='"&eName&"']","addTime",Now()
		XmlDoc.InsertElement node,"head",head,False,True
		XmlDoc.InsertElement node,"main",skinmain,False,True
		XmlDoc.InsertElement node,"foot",foot,False,True
	Else
		XmlDoc.UpdateNodeText2 node.selectSingleNode("head"),head,True
		XmlDoc.UpdateNodeText2 node.selectSingleNode("main"),skinmain,True
		XmlDoc.UpdateNodeText2 node.selectSingleNode("foot"),foot,True
	End If

	xmlDoc.setAttributeNode "template[@name='"&eName&"']","updateTime",Now()

	Select Case eType
		Case 1
		Case 2 : Call listUser()
		Case 3
		Case 4 : Call listClass()
		Case 5 : Call showLog()
		Case 6 : Call showPhoto()
		Case 7 : Call showBlogStar()
		Case 8 : Call showTeam()
		Case 9 : Call showTeamPost()
		Case 10 : Call showTag()
		Case 11 : Call showDigg()
		case 12 : Call showUserDigg()
	End Select


	If isModify = "" Then
		XmlDoc.InsertElement node,"sql",sql,True,True
	Else
		XmlDoc.UpdateNodeText2 node.selectSingleNode("sql"),sql,True
	End if
	XmlDoc.save()
	oblog.ShowMsg "操作成功",""
End Sub

Sub listUser()

	xmlDoc.setAttributeNode "template[@name='"&eName&"']","length",OB_IIF(length,20)
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","topN",OB_IIF(topN,10)

	Select Case CLng(order)
		Case 0:order="log_count DESC,userid"
		Case 1:order="user_siterefu_num DESC,userid"
		Case 2:order="scores DESC,userid"
		Case 3:order="userid"
	End Select

	If isbest = "on" Then
		Sql = "SELECT TOP "&topN&" username,log_count,blogname,userid,user_domain,user_domainroot FROM [oblog_user] WHERE user_isbest=1 ORDER BY log_count,userid DESC"
	Else
		Sql = "SELECT TOP "&topN&" username,log_count,blogname,userid,user_domain,user_domainroot FROM [oblog_user] ORDER BY "&order&" DESC"
	End If

End Sub

Sub listClass()
	Dim classType
	classType = Trim(request("classType"))
	If classType = "-1" Then
		Sql = "SELECT id,classname FROM [oblog_userclass] ORDER BY RootID,OrderID"
	Else
		Sql = "SELECT id,classname FROM  [oblog_logclass] WHERE idtype= "&CLng(classType)&" ORDER BY RootID,OrderID"
	End if
End Sub

Sub showLog()

	Dim isClass,isSubject
	If Trim(request("iscid")) = "on" Then
		isClass = 1
	Else
		isClass = 0
	End If
	If Trim(request("issid")) = "on" Then
		isClass = 1
	Else
		isClass = 0
	End if
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","length",OB_IIF(length,20)
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","formatTime",formatTime
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","isClass",isClass
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","isSubject",isSubject
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","topN",OB_IIF(topN,10)

	Dim usersql,isbestsql,sdatesql,classsql
	Dim sDate
	if Trim(request("userid"))>"0" then
		usersql=" AND a.userid="&CLng(userid)
	Else
		usersql=""
	End If
	If Not IsNumeric(Request("sdate")) then
		oblog.showMsg ("错误的时间参数"),"back"
	end If
	If isbest = "on" Then
		isbestsql=" AND isbest=1"
	Else
		isbestsql = ""
	End If
	If Is_Sqldata = 0 Then
		sdatesql = sdatesql&" DATADIFF('d',oblog_log.truetime,Now())<"&Int(sdate)&" "
	Else
		sdate = DateAdd("d",-1*Abs(sdate),Now())
		sdate = GetDateCode(sdate,0)
		sdatesql = sdatesql&" truetime>'"&sdate&"'"
	End If

	If Trim(request("classid")) = "0" Then
		classsql = ""
	Else
		Dim rs,ustr
		set rs=oblog.execute("SELECT id FROM oblog_logclass WHERE parentpath LIKE '"&CLng(classid)&",%' OR parentpath LIKE '%,"&CLng(classid)&"' OR parentpath LIKE '%,"&classid&",%'")
		While Not rs.EOF
			ustr=ustr&","&rs(0)
			rs.MoveNext
		Wend
		ustr=classid&ustr
		classsql=" AND classid IN ("&ustr&")"
	End If

	Select Case CLng(order)
		Case 0:order="iis DESC,logid"
		Case 1:order="commentnum DESC,logid"
		Case 2:order="logid"
	End Select

	Sql = "SELECT TOP "&topN&" author,topic,logid,classid,subjectid,truetime,iis,commentnum,a.userid,user_domain,user_domainroot FROM oblog_log a INNER JOIN oblog_user b ON B.userid=A.userid WHERE "&sdatesql&usersql&isbestsql&" AND passcheck=1 AND a.isdel=0 AND isdraft=0 AND  (IsSpecial = 0 OR IsSpecial IS NULL) "&classsql&" ORDER BY "&order&" DESC]"
End Sub

Sub showPhoto()

	xmlDoc.setAttributeNode "template[@name='"&eName&"']","br",OB_IIF(Trim(request("br")),1)
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","topN",OB_IIF(topN,10)

	If Trim(request("isalbum")) = "on" Then
		Select Case CLng(order)
			Case 0:order="photoID "
			Case 1:order="views DESC,photoID"
			Case 2:order="commentnum DESC,photoID"
		End Select
	Else
		Select Case CLng(order)
			Case 0:order="subjectid "
			Case 1:order="views DESC,subjectid"
		End Select
	End If
	If Trim(request("isalbum")) = "on" Then
		Sql = "SELECT TOP "&topN&" photo_path,subjectname,userid,subjectid,subjectlognum FROM oblog_subject WHERE subjecttype = 1 AND (ishide = 0 OR ishide IS NULL) ORDER BY "&ORDER&" DESC "
	else
		Sql = "SELECT TOP "&topN&"  photo_path,photo_readme,userid FROM oblog_album  where (ishide = 0 OR ishide IS NULL) ORDER BY "&ORDER&" DESC"
	End if
End Sub

Sub showBlogStar()

	xmlDoc.setAttributeNode "template[@name='"&eName&"']","br",OB_IIF(Trim(request("br")),1)
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","topN",OB_IIF(topN,10)

	Sql = "SELECT TOP "&topN&" userurl , picurl ,info ,blogname,userid FROM oblog_blogstar WHERE ispass=1 ORDER BY ID DESC"
End Sub

Sub showTeam()
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","length",OB_IIF(length,20)
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","topN",OB_IIF(topN,10)
	If Trim(request("islogo")) = "on" Then
		xmlDoc.setAttributeNode "template[@name='"&eName&"']","islogo",1
	Else
		xmlDoc.setAttributeNode "template[@name='"&eName&"']","islogo",0
	End If

	Select Case CLng(order)
		Case 0:order="icount0 DESC ,teamid "
		Case 1:order="(icount1+icount2) DESC ,teamid"
		Case 2:order="teamid"
	End Select
	Dim isbestsql
	If isbest = "on" Then
		isbestsql=" AND isbest=1"
	Else
		isbestsql = ""
	End If

	Sql = "SELECT TOP "&topN&" teamid,t_name,t_ico,icount0,(icount1+icount2) FROM oblog_team WHERE istate=3 AND isdel=0 "&isbestsql&" ORDER BY "&order&" DESC"
End Sub

Sub showTeamPost()

	xmlDoc.setAttributeNode "template[@name='"&eName&"']","length",OB_IIF(length,20)
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","formatTime",formatTime

	If Trim(request("isuname")) = "on" Then
		xmlDoc.setAttributeNode "template[@name='"&eName&"']","isuname",1
	Else
		xmlDoc.setAttributeNode "template[@name='"&eName&"']","isuname",0
	End if
	If Trim(request("istime")) = "on" Then
		xmlDoc.setAttributeNode "template[@name='"&eName&"']","istime",1
	Else
		xmlDoc.setAttributeNode "template[@name='"&eName&"']","istime",0
	End if
	Dim teamid,tsql
	teamid = Trim(request("teamid"))
	If teamid<>"" And teamid<>"0" Then
		teamid=Replace(teamid,"|",",")
		teamid  = FilterIDs(teamid)
		If teamid <> "" Then
			tsql =  " And teamid In (" & teamid & ") "
		Else
			tsql = ""
		End if
	End If
	Sql = "SELECT TOP "&topN&" teamid,postid,topic,addtime,author,userid FROM oblog_teampost WHERE 1=1 "&tsql&" AND idepth=0 AND isdel=0  ORDER BY postid DESC"
End Sub

Sub showTag()
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","br",OB_IIF(Trim(request("br")),5)

	Dim iscloud
	Dim ordersql
	iscloud = Trim (request("iscloud"))
	xmlDoc.setAttributeNode "template[@name='"&eName&"']","iscloud",iscloud
	If iscloud=1 Then
		If order = "0" Then
			ordersql= " Order By iNum Desc,tagid DESC "
		Else
			ordersql= " Order By tagid DESC "
		End if
	Else
		If Is_Sqldata = 1 Then
			ordersql= " Order By Newid()"
		Else
			Randomize
			ordersql= " Order By Rnd(-(TagID+"&Rnd()&"))"
		End If
	End if
	Sql = "SELECT * FROM (SELECT TOP "&topN&" tagid,name,inum,iState FROM Oblog_Tags "&ordersql&") AS T WHERE iNum>0 AND iState=1 "&ordersql
End Sub

Sub showDigg()
	Select Case CLng(order)
		Case 0:order="diggnum DESC,DiggID"
		Case 1:order="DiggID "
		Case 2:order="lastdiggtime "
	End Select
	Sql = "SELECT TOP "&topN&" diggnum,diggurl,diggtitle,addtime,author,authorid FROM oblog_userdigg WHERE istate = 1 ORDER BY "&order&" DESC"
End Sub

Sub showUserDigg()
	Select Case CLng(order)
		Case 0:order="diggs DESC,userid"
		Case 1:order="userid "
	End Select
	Sql = "SELECT TOP "&topN&" diggnum,diggurl,diggtitle,addtime,author,authorid FROM oblog_userdigg WHERE istate = 1 ORDER BY "&order&" DESC"
End Sub
%>
	</html>
<script>
	function CheckAll(form)
	{
	  for (var i=0;i<form.elements.length;i++)
		{
		var e = form.elements[i];
		if (e.Name != "chkAll")
		   e.checked = form.chkAll.checked;
		}
	}
	function NewsTypeSel(index)
	{
		if (index > 0)
		{
		document.getElementById('skin_info').innerHTML = document.getElementById('skininfo_'+index).innerHTML;
		document.getElementById('News').innerHTML = document.getElementById('News_'+index).innerHTML;
		}

	}
	function OutputNewsCode(values)
	{
		document.getElementById('code').value='<scr'+'ipt src="<%=Trim(oblog.CacheConfig(3))%>jsNew.asp?action='+values+'"></scr'+'ipt>';
	}
</script>
<%
If action = "modify" Then
'修改模式下，控制隐藏层的显示
%>
<script>NewsTypeSel('<%=etype%>');</script>
<%End if%>