soft.asp

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

<!--#include file="Inc/Templet.asp"-->
<%
Add_id = request.QueryString("Add_id")
if Add_id<>"" then
	sql="update [Soft] set SD_Soft_Times=SD_Soft_Times+1,SD_Soft_Times_m=SD_Soft_Times_m+1 where SD_Soft_Id="&Add_id
	conn.execute(sql)
	'response.Write(sql)
	response.End()
end if

id = request.QueryString("id")
call CheckNum(id)
sql="select * from [Softs] where SD_Soft_Id="&id
rs.open sql,conn,1,1
if not rs.eof then
	Soft_Id=rs("SD_Soft_Id")
	Soft_Name=rs("SD_Soft_Name")
	Soft_Class_Parent_Name=rs("S_Class_1.SD_S_Class_Name")
	Soft_Class_Name=rs("S_Class.SD_S_Class_Name")
	Soft_Class_Id=rs("S_Class.SD_S_Class_Id")
	Soft_Class_Parent_Id=rs("S_Class_1.SD_S_Class_Id")
	Soft_Size=rs("SD_Soft_Size")
	Soft_Language=rs("SD_Soft_Language")
	Soft_Class=rs("SD_Soft_Class")
	Soft_Right=rs("SD_Soft_Right")
	Soft_Level=rs("SD_Soft_Level")
	Soft_Update=rs("SD_Soft_Update")
	Soft_Developer=rs("SD_Soft_Developer")
	Soft_Operation=rs("SD_Soft_Operation")
	Soft_Level=rs("SD_Soft_Level")
	Soft_Annex=rs("SD_Soft_Annex")
	Soft_Info=rs("SD_Soft_Info")
	Soft_Img=rs("SD_Soft_Img")
	Soft_Url=rs("SD_Soft_Url")
	
	Soft_Name1 = left(Soft_Name,instr(Soft_Name,"【")-1)
	Soft_Name2 = mid(Soft_Name,instr(Soft_Name,"【")+1,instr(Soft_Name,"】")-instr(Soft_Name,"【")-1)
	Soft_Name3 = right(Soft_Name,len(Soft_Name)-instr(Soft_Name,"】"))
end if
rs.close
conn.execute("update [Soft] set SD_Soft_Click_times=SD_Soft_Click_times+1 where SD_Soft_Id="&id)
sql="select * from [Templet] where SD_templet_default=1 and SD_templet_type='Text'"
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
'基本标签替换
			if Soft_Img<>"" then
				Templet_content=replace(Templet_content,"{$Soft_Img$}","<img src='{$SiteUrl$}images/Upload/"&Soft_Img&"' />")
			else
				Templet_content=replace(Templet_content,"{$Soft_Img$}","")
			end if
			
Templet_content=replace(Templet_content,"{$HomePage$}","{$SiteUrl$}index.asp")
Templet_content=replace(Templet_content,"{$DowuHomeUrl$}","{$SiteUrl$}ClassList.asp")
Templet_content=replace(Templet_content,"{$P_Class_Url$}","{$SiteUrl$}Class.asp?id={$Soft_Class_Parent_Id$}")
Templet_content=replace(Templet_content,"{$Class_Url$}","{$SiteUrl$}Class.asp?id={$Soft_Class_Id$}")

Templet_content=replace(Templet_content,"{$SoftUrl$}","{$SiteUrl$}Soft.asp?id={$Soft_Id$}")

Templet_content=replace(Templet_content,"{$SearchUrl$}",SiteUrl&"Search.asp")
Templet_content=replace(Templet_content,"{$SiteUrl$}",SiteUrl)
Templet_content=replace(Templet_content,"{$SiteName$}",SiteName)
Templet_content=replace(Templet_content,"{$SiteLogo$}",SiteLogo)
Templet_content=replace(Templet_content,"{$SiteBanner$}",SiteBanner)
Templet_content=replace(Templet_content,"{$SiteMail$}",SiteMail)

Templet_content=replace(Templet_content,"{$Jquery2Search$}","")


Templet_content=replace(Templet_content,"{$Soft_Id$}",Soft_Id)
Templet_content=replace(Templet_content,"{$Soft_Name$}",Soft_Name)
Templet_content=replace(Templet_content,"{$Soft_Class_Parent_Name$}",Soft_Class_Parent_Name)
Templet_content=replace(Templet_content,"{$Soft_Class_Name$}",Soft_Class_Name)
Templet_content=replace(Templet_content,"{$Soft_Class_Id$}",Soft_Class_Id)
Templet_content=replace(Templet_content,"{$Soft_Class_Parent_Id$}",Soft_Class_Parent_Id)
Templet_content=replace(Templet_content,"{$Soft_Size$}",Soft_Size)
Templet_content=replace(Templet_content,"{$Soft_Language$}",Soft_Language)
Templet_content=replace(Templet_content,"{$Soft_Class$}",Soft_Class)
Templet_content=replace(Templet_content,"{$Soft_Right$}",Soft_Right)
Templet_content=replace(Templet_content,"{$Soft_Level$}",Soft_Level)
Templet_content=replace(Templet_content,"{$Soft_Update$}",Soft_Update)
Templet_content=replace(Templet_content,"{$Soft_Developer$}",Soft_Developer)
Templet_content=replace(Templet_content,"{$Soft_Operation$}",Soft_Operation)
Templet_content=replace(Templet_content,"{$Soft_Level$}",Soft_Level)
Templet_content=replace(Templet_content,"{$Soft_Annex$}",Soft_Annex)
Templet_content=replace(Templet_content,"{$Soft_Info$}",Soft_Info)
Templet_content=replace(Templet_content,"{$Soft_Img$}",Soft_Img)
Templet_content=replace(Templet_content,"{$Soft_Url$}",Soft_Url)
Templet_content=replace(Templet_content,"{$Soft_Name1$}",Soft_Name1)
Templet_content=replace(Templet_content,"{$Soft_Name2$}",Soft_Name2)
Templet_content=replace(Templet_content,"{$Soft_Name3$}",Soft_Name3)	
'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 = split(templet_str2(1),")")(0)	'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)))
		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 else:Templet_content=replace(Templet_content,"{$"&templet_str&"$}",templet_str&"参数错误!")
	End Select
	
wend
call pagend
response.Write(Templet_content)

%>