class.asp

gmaple软件下载系统1.0Beta 具有一下功能: 1.模板功能,前台的呈现更加灵活. 2.支持静态生成,可在动态与静态间随时切换. 3.在静态模式下,可自定义生成目录,生成方式灵活.

<!--#include file="Inc/Templet.asp"-->
<%
S_Class_1 = request.QueryString("id")
call CheckNum(S_Class_1)
sql="select SD_S_Class_Parent,SD_S_Class_Name from [S_Class] where SD_S_Class_Id="&S_Class_1
rs.open sql,conn,1,1
	S_Class_Name_1=rs("SD_S_Class_Name")
	S_Class_Parent_1=rs("SD_S_Class_Parent")
rs.close
if S_Class_Parent_1<>0 then
	sql="select * from [Classs] where SD_S_Class_Parent="& S_Class_Parent_1 &" order by SD_S_Class_Order desc"
elseif S_Class_Parent_1=0 then
	sql="select * from [Classs] where SD_S_Class_Parent="& S_Class_1 &" order by SD_S_Class_Order desc"
end if
	rs.open sql,conn,1,1
	if not rs.eof then
		while not rs.eof
			Class_Parent_Name=rs("S_Class_1.SD_S_Class_Name")
			Class_List=Class_List&"<li><a href="""&SiteUrl&"Class.asp?id="&rs("S_Class.SD_S_Class_Id")&""">"& rs("S_Class.SD_S_Class_Name") &"</a></li>"
		rs.movenext
		wend
	end if
	rs.close
	
sql="select * from [Templet] where SD_templet_default=1 and SD_templet_type='List'"
rs.open sql,conn,1,1
if not rs.eof then
	Templet_content = rs("SD_templet_content")
else
	response.Write("未设置默认模板或参数错误!")
end if
rs.close
'模板嵌套调用替换
while cint(InStr(Templet_content,"{$Templet("))>0
	Templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$Templet("))+2,cint(InStr(Templet_content,")Templet$}"))-cint(InStr(Templet_content,"{$Templet("))-2)    
	Templet_content=replace(Templet_content,"{$"&Templet_str&")Templet$}",SD_Templet_change(replace(Templet_str,"Templet(","")))
wend
'基本标签替换
			Templet_content=replace(Templet_content,"{$HomePage$}","{$SiteUrl$}index.asp")
			Templet_content=replace(Templet_content,"{$DowuHomeUrl$}","{$SiteUrl$}ClassList.asp")
			if S_Class_Parent_1<>0 then
				Templet_content=replace(Templet_content,"{$P_Class_Url$}","{$SiteUrl$}Class.asp?id={$S_Class_Parent_1$}")
				Your_Location="<a href=""{$DowuHomeUrl$}"">下载首页</a> >> <a href=""{$P_Class_Url$}"">{$Class_Parent_Name$}</a> >> "&S_Class_Name_1
			elseif S_Class_Parent_1=0 then
				Templet_content=replace(Templet_content,"{$P_Class_Url$}","{$SiteUrl$}Class.asp?id={$S_Class_1$}")
				Your_Location="<a href=""{$DowuHomeUrl$}"">下载首页</a> >> <a href=""{$P_Class_Url$}"">{$Class_Parent_Name$}</a>"	
				
			end if
			
P_Class_Url="{$SiteUrl$}Class.asp?id="&S_Class_Parent_1
Templet_content=replace(Templet_content,"{$Your_Location$}",Your_Location)
Templet_content=replace(Templet_content,"{$P_Class_Url$}",P_Class_Url)
Templet_content=replace(Templet_content,"{$SearchUrl$}",SiteUrl&"Search.asp")
Templet_content=replace(Templet_content,"{$HomePage$}","{$SiteUrl$}index.asp")
Templet_content=replace(Templet_content,"{$DowuHomeUrl$}","{$SiteUrl$}ClassList.asp")
Templet_content=replace(Templet_content,"{$SiteUrl$}",SiteUrl)
Templet_content=replace(Templet_content,"{$Directory$}",Directory)
Templet_content=replace(Templet_content,"{$SiteName$}",SiteName)
Templet_content=replace(Templet_content,"{$SiteLogo$}",SiteLogo)
Templet_content=replace(Templet_content,"{$Dir_Class$}",Dir_Class)
Templet_content=replace(Templet_content,"{$Dir_Index$}",Dir_Index)
Templet_content=replace(Templet_content,"{$SiteBanner$}",SiteBanner)
Templet_content=replace(Templet_content,"{$SiteMail$}",SiteMail)
Templet_content=replace(Templet_content,"{$S_Class_Name_1$}",S_Class_Name_1)
Templet_content=replace(Templet_content,"{$S_Class_Parent_1$}",S_Class_Parent_1)
Templet_content=replace(Templet_content,"{$Class_Parent_Name$}",Class_Parent_Name)
Templet_content=replace(Templet_content,"{$Class_List$}",Class_List)
Templet_content=replace(Templet_content,"{$S_Class_1$}",S_Class_1)

Templet_content=replace(Templet_content,"{$Jquery2Search$}","")
'debug(Templet_content)
'函数替换

while cint(InStr(Templet_content,"{$"))>0
	templet_str=mid(Templet_content,cint(InStr(Templet_content,"{$"))+2,cint(InStr(Templet_content,"$}"))-cint(InStr(Templet_content,"{$"))-2)
	
	'exp:templet_str -->SD_Soft_List(15,1,,1,4)
	templet_str2 = split(templet_str,"(")		'exp:templet_str2(0) -->SD_Soft_List   templet_str2(1) -->15,1,,1,4)
	templet_str3 = replace(templet_str2(1),")","")	'exp:templet_str3 -->15,1,,1,4
	templet_str_l = split(templet_str3,",")
	
	Select Case templet_str2(0)
		Case "SD_Soft_List_Img":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List_Img(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3)))
		Case "SD_Soft_List":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3),templet_str_l(4)))
		Case "SD_Soft_One":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_One(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
		Case "SD_Soft_List_Text":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Soft_List_Text(templet_str_l(0),Cyc,Cyc_Time,S_Class_1))
		Case "SD_Class_List_Page":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Class_List_Page(templet_str_l(0)))
		Case "SD_Img_Star":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Img_Star(templet_str_l(0)))
		Case "SD_S_plugin":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_S_plugin(templet_str_l(0)))
		Case "SD_Down_Url":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_Down_Url(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
		Case "SD_link_more":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_link_more(templet_str_l(0),templet_str_l(1),templet_str_l(2)))
		Case "SD_FriendLinks":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_FriendLinks(templet_str_l(0),templet_str_l(1),templet_str_l(2),templet_str_l(3),templet_str_l(4)))
		Case "SD_SiteInfo":Templet_content=replace(Templet_content,"{$"&templet_str&"$}",SD_SiteInfo(templet_str_l(0)))
		Case else:Templet_content=replace(Templet_content,"{$"&templet_str&"$}",templet_str&"参数错误!")
	End Select
wend
call pagend()
response.Write(Templet_content)
%>