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

📄 syscode.asp

📁 电子备课系统
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<%
Dim G_P_Show
G_P_Show=G_P_Show& "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"& vbcrlf
G_P_Show=G_P_Show& "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbcrlf
G_P_Show=G_P_Show& "<head>" & vbcrlf
G_P_Show=G_P_Show& "<meta http-equiv=""content-type"" content=""text/html; charset=gb2312"">" & vbcrlf
G_P_Show=G_P_Show& "<meta name=""generator"" content=""oblog"">" & vbcrlf
G_P_Show=G_P_Show& "<meta name=""keywords"" content="""&oblog.cacheConfig(9)&""">" & vbcrlf
G_P_Show=G_P_Show& "<link rel=""alternate"" href=""rss2.asp"" type=""application/rss+xml"" title=""rss"" >" & vbcrlf
G_P_Show=G_P_Show& "<title>$show_title$</title>" & vbcrlf
G_P_Show=G_P_Show& "<link href=""OblogStyle/OblogsysDefault4.css"" rel=""stylesheet"" type=""text/css"" /> " & vbcrlf
G_P_Show=G_P_Show& "<script src=""inc/main.js""></script>" & vbcrlf
G_P_Show=G_P_Show& "<script>function chkdiv(divid){var chkid=document.getElementById(divid);if(chkid != null){return true; }else {return false; }}</script>" & vbcrlf
G_P_Show=G_P_Show& "{OB_STYLE}" & vbcrlf
G_P_Show=G_P_Show& "</head>" & vbcrlf
G_P_Show=G_P_Show& "<body>" & vbcrlf

Function show_userlogin(n)
	if n=0 then
		show_userlogin = "<div id=""ob_login""></div>"&"<script src=""login.asp?action=showindexlogin""></script>"
	else
		show_userlogin = "<div id=""ob_login""></div>"&"<script src=""login.asp?action=showindexlogin&n=1""></script><script src=""inc/main.js""></script>"
	end if
End Function

Sub indexshow()
	G_P_Show = Replace (G_P_Show,"$show_title$",oblog.cacheConfig(2))

	If InStr(G_P_Show, "$show_sitename$") > 0 Then
		G_P_Show = Replace(G_P_Show, "$show_sitename$", oblog.cacheconfig(1))
	End If

	If InStr(G_P_Show, "$show_placard$") > 0 Then
		G_P_Show = Replace(G_P_Show, "$show_placard$", show_placard())
	End If

	If InStr(G_P_Show, "$show_friends$") > 0 Then
	G_P_Show = Replace(G_P_Show, "$show_friends$", show_friends())
	End If

	If InStr(G_P_Show, "$show_count$") > 0 Then
		G_P_Show = Replace(G_P_Show, "$show_count$", show_count())
	End If

	If InStr(G_P_Show, "$show_userlogin$") > 0 Then
		G_P_Show = Replace(G_P_Show, "$show_userlogin$", show_userlogin(0))
	End If

	If InStr(G_P_Show, "$show_userlogin_l$") > 0 Then
		G_P_Show = Replace(G_P_Show, "$show_userlogin_l$", show_userlogin(1))
	End If

	If InStr(G_P_Show, "$show_xml$") > 0 Then
		G_P_Show = Replace(G_P_Show, "$show_xml$", show_sysxml())
	End If

	If InStr(G_P_Show, "$show_blogstar$") > 0 Then
		G_P_Show = Replace(G_P_Show, "$show_blogstar$", show_blogstar())
	End If

	If InStr(G_P_Show, "$show_cloudtags$") > 0 Then
		G_P_Show = Replace(G_P_Show, "$show_cloudtags$", Tags_SystemTags("1"))
	End If

	Call runsub("$show_newblogger")
	Call runsub("$show_comment")
	Call runsub("$show_subject")
	Call runsub("$show_blogupdate")
	Call runsub("$show_bestblog")
	Call runsub("$show_bloger")
	Call runsub("$show_class")
	Call runsub("$show_log")
	Call runsub("$show_userlog")
	Call runsub("$show_search")
	Call runsub("$show_cityblogger")
	Call runsub("$show_newphoto")
	Call runsub("$show_blogstar2")
	Call runsub("$show_teams")
	Call runsub("$show_posts")
	Call runsub("$show_hotblog")
	Call runsub("$show_hottag")
	Call runsub("$show_treeclass")
	Call runsub("$show_bl")
	Call runsub("$show_template")
	Call runsub("$show_album")
	Call runsub("$show_pic")
	Call runsub("$show_diggs")
	Call runsub("$show_userdiggs")
	Call runsub("$show_rnduser")
End Sub

Sub sysshow()
	if Application(oblog.cache_name&"_list_update")=False And application(oblog.cache_name&"list")<>"" Then
		G_P_Show=application(oblog.cache_name&"list")
	Else
		Dim rstmp,sContent,sStyle
		Set rstmp = oblog.execute("select skinshowlog from oblog_sysskin where isdefault=1")
		sContent=rstmp(0)
		sStyle=OB_PickUpCss(sContent)
		G_P_Show=Replace(G_P_Show,"{OB_STYLE}",sStyle)
		G_P_Show = Replace (G_P_Show,"$show_title$","$show_title_list$")
		'Response.Write sStyle
		'Response.Write sContent
		G_P_Show=G_P_Show&sContent
		Set rstmp = Nothing
		'副模板取消城市选项
		G_P_Show=Replace(G_P_Show,"show_cityblogger(0)$","")
		G_P_Show=Replace(G_P_Show,"show_cityblogger(1)$","")
		Call indexshow
		Application.Lock
		application(oblog.cache_name&"_list_update")=False
		application(oblog.cache_name&"list")=G_P_Show
		Application.unLock
	End If
End Sub

Sub runsub(label)
'	On Error Resume Next
	Dim tmp1, tmp2, i
	Dim tmpstr, para
	tmp2 = 1
	While InStr(tmp2, G_P_Show, label) > 0
		tmp1 = InStr(tmp2, G_P_Show, label)
		tmp2 = InStr(tmp1 + 1, G_P_Show, "$")
		tmpstr = Mid(G_P_Show, tmp1, tmp2 - tmp1)
		tmpstr = Replace(tmpstr, "(", "")
		tmpstr = Replace(tmpstr, ")", "")
		tmpstr = Trim(Replace(tmpstr, label, ""))
		para = Split(tmpstr, ",")
		select Case label
		Case "$show_log"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_log(para(0),para(1),para(2),para(3),para(4),para(5),para(6),para(7),para(8)))
			If Err Then
				Response.Write "<br/>$show_log$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_userlog"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_userlog(para(0),para(1),para(2),para(3),para(4),para(5)))
			If Err Then
				Response.Write Err.Description
				Response.Write "<br/>$show_userlog$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_comment"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_comment(para(0),para(1)))
			If Err Then
				Response.Write "<br/>$show_comment$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_subject"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_subject(para(0)))
			If Err Then
				Response.Write "<br/>$show_subject$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_blogupdate"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_blogupdate(para(0)))
			If Err Then
				Response.Write "<br/>$show_blogupdate$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_newblogger"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_newblogger(para(0)))
			If Err Then
				Response.Write "<br/>$show_newblogger$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_bestblog"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_bestblog(para(0)))
			If Err Then
				Response.Write "<br/>$show_bestblog$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_bloger"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_bloger(para(0)))
			If Err Then
				Response.Write "<br/>$show_bloger$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_class"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_class(para(0)))
			If Err Then
				Response.Write "<br/>$show_class$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_search"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_search(para(0)))
			If Err Then
				Response.Write "<br/>$show_search$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_cityblogger"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_cityblogger(para(0)))
			If Err Then
				Response.Write "<br/>$show_cityblogger$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_newphoto"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_newphoto(para(0),para(1),para(2),para(3)))
			If Err Then
				Response.Write Err.Description
				Response.Write "<br/>$show_newphoto$标签有错误，请检查参数"
				Response.End()
			End If
		Case "$show_blogstar2"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",show_blogstar2(para(0),para(1),para(2),para(3)))
			If Err Then
				Response.Write "<br/>$show_blogstar2$标签有错误，请检查参数"
				Response.End()
			End If
		 Case "$show_hottag"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetHotTags(para(0),para(1),para(2),para(3)))
		Case "$show_treeclass"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",TreeClass(para(0)))
			If Err Then
				Response.Write "<br/>$show_treeclass$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_teams"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetTeams(para(0),para(1),para(2),para(3),para(4),para(5)))
			If Err Then
				Response.Write "<br/>$show_teams$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_posts"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetPosts(para(0),para(1),para(2),para(3),para(4)))
			If Err Then
				Response.Write "<br/>$show_posts$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_hotblog"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetHotUsers(para(0),para(1)))
			If Err Then
				Response.Write "<br/>$show_hotblog$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_bl"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetArgueList(para(0),para(1),para(2)))
			If Err Then
				Response.Write "<br/>$show_bl$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_template"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetTemplate(para(0)))
			If Err Then
				Response.Write "<br/>$show_template$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_album"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetAlbum(para(0),para(1)))
			If Err Then
				Response.Write "<br/>$show_album$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_pic"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetPic(para(0),para(1)))
			If Err Then
				Response.Write "<br/>$show_pic$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_diggs"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetDiggs(para(0),para(1)))
			If Err Then
				Response.Write "<br/>$show_diggs$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_userdiggs"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetUserDiggs(para(0),para(1)))
			If Err Then
				Response.Write "<br/>$show_diggs$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		Case "$show_rnduser"
			G_P_Show=Replace(G_P_Show,label&"("&tmpstr&")$",GetRndUser(para(0),para(1),para(2),para(3),para(4),para(5)))
			If Err Then
				Response.Write "<br/>$show_rnduser$标签有错误，请检查参数"
				Response.Write Err.Description
				Response.End()
			End If
		End select
		tmp2 = 1
	Wend
End Sub

Function show_log(n, l, order, action, sdate, classid, classname, subjectname, info)
	show_log = ""
	Dim rs, msql, ordersql, actionsql, classsql, rstmp, i, postname, posttime, userurl, ustr
	Dim arrayList,arrayListTemp
	ReDim arrayList(n-1)
	i = 0
	select Case order
	Case 1
	   ordersql = " order by logid desc"
	   'ordersql = " order by addtime desc"
	Case 2
		ordersql = " order by iis desc,logid DESC"
	Case 3
		ordersql = " order by commentnum desc,logid DESC"
1234

⌨️ 快捷键说明

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