templettype.asp

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

<%
Sub TempletType(obj,Project)
	sql="select * from [TempletProject] where SD_project_default = 1"
	rst.open sql,conn,1,1
	if not rst.eof then
		templet_project=rst("SD_project_id")
		templet_name=rst("SD_project_name")
	else 
		templet_project=""
	end if
	rst.close
	if templet_project="" then
		sqlstr="select * from [Templets] where SD_templet_type<>'Topic' and SD_templet_del=0 and SD_templet_project<>'' "
	else
		sqlstr="select * from [Templets] where SD_templet_type<>'Topic' and SD_templet_del=0 and SD_templet_project="&templet_project&" "
	end if
	Select case obj
	case "Index"
		sqlstr=sqlstr &" and SD_templet_type='"& obj &"' order by SD_templet_id desc,SD_templet_name desc"
	case "Class"
		sqlstr=sqlstr &" and SD_templet_type='"& obj &"' order by SD_templet_id desc,SD_templet_name desc"
	case "List"
		sqlstr=sqlstr &" and SD_templet_type='"& obj &"' order by SD_templet_id desc,SD_templet_name desc"
	case "Text"
		sqlstr=sqlstr &" and SD_templet_type='"& obj &"' order by SD_templet_id desc,SD_templet_name desc"
	case "Search"
		sqlstr=sqlstr &" and SD_templet_type='"& obj &"' order by SD_templet_id desc,SD_templet_name desc"
	case "Fun"
		sqlstr=sqlstr &" and SD_templet_type='"& obj &"' order by SD_templet_id desc,SD_templet_name desc"
	case "Self"
		sqlstr=sqlstr &" and SD_templet_type='"& obj &"' order by SD_templet_id desc,SD_templet_name desc"
	Case Else
		sqlstr=sqlstr &" order by SD_templet_type desc,SD_templet_name desc"
	End Select
	'debug(sqlstr)
End Sub
%>