op.asp

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

<!--#include file="admin_include.asp"-->
<%

if request.QueryString.Count>0 then
	n = request.QueryString("n")
	if n = 1 then
		Pid = request.QueryString("Pid")
		sql="select * from [S_Class] where SD_S_Class_Parent="& Pid &" order by SD_S_Class_Order desc"
		rs.open sql,conn,1,1
		if not rs.eof then
			ReHtml=""
			ReHtml=ReHtml&"<select name='Soft_Class' id='ClassAddTo'>"
			ReHtml=ReHtml&"<option vlue='-1'>请选择</option>"
			while not rs.eof
				ReHtml=ReHtml&"	<option value='"&rs("SD_S_Class_Id")&"'>"&rs("SD_S_Class_Name")&"</option>"
			rs.movenext
			wend
			ReHtml=ReHtml&"</select>&nbsp;<span id='NewClassList'><a href='javascript:AddClass()'>新分类</a></span>"
			'ReHtml=ReHtml&"</select>"
		else
			ReHtml="<select name='Soft_Class' id='ClassAddTo'><option value='-1'>无</option></select>&nbsp;<span id='NewClassList'><a href='javascript:AddClass()'>新分类</a></span>"
			'ReHtml="<span id='NewClassList'><a href='Soft_Class_Add.asp'>请先添加子分类!</a></div>"
		end if
		rs.close
		response.Write(ReHtml)
		response.End()
	elseif n = 2 then		'设置默认模板方案
		id = request.QueryString("id")
		sql="update [TempletProject] set SD_project_default=0"
		application.Lock()
		conn.execute(sql)
		application.UnLock()
		sql="update [TempletProject] set SD_project_default=1 where SD_project_id="&id
		application.Lock()
		conn.execute(sql)
		application.UnLock()
		sql="update [Templet] set SD_templet_default=1 where SD_templet_project="&id
		application.Lock()
		conn.execute(sql)
		application.UnLock()		
		response.Redirect("TempletPro.asp")
	elseif n = 3 then 	'设置默认模板
		id = request.QueryString("id")
		templet_type = request.QueryString("templet_type")
		templet_default = request.QueryString("default")
		if templet_default=0 then
			sql="update [Templet] set SD_templet_default=1 where SD_templet_id="&id
		else
			sql="update [Templet] set SD_templet_default=0 where SD_templet_id="&id
		end if
		application.Lock()
		conn.execute(sql)
		application.UnLock()
		response.Redirect("Templet.asp?templet_type="&templet_type)
	elseif n=4 then 	'删除模板方案
		id = request.QueryString("id")
		sql="update [Templet] set SD_templet_del=1 where SD_templet_project="&id
		application.Lock()
		conn.execute(sql)
		application.UnLock()
		sql="update [TempletProject] set SD_project_del=1,SD_project_default=0 where SD_project_id="&id
		application.Lock()
		conn.execute(sql)
		application.UnLock()
		response.Redirect("TempletPro.asp")
	elseif n = 5 then
		id = request.QueryString("id")
		sql="update [Templet] set SD_templet_del=1,SD_templet_default=0 where SD_templet_id="&id
		application.Lock()
		conn.execute(sql)
		application.UnLock()
		response.Redirect("Templet.asp")
	elseif n = 6 then		'设置服务器路径
		id = request.QueryString("id")
		sql="select SD_Server_Way from [Server] where SD_Server_Id="&id
		rs.open sql,conn,1,1
		if not rs.eof then
			SD_Server_Way=rs("SD_Server_Way")
		end if
		rs.close
		if SD_Server_Way<>"" then
			SD_Server_Way=replace(SD_Server_Way,"{$Year$}",Year(Now()))
			SD_Server_Way=replace(SD_Server_Way,"{$Month$}",right("00"&Month(Now()),2))
			SD_Server_Way=replace(SD_Server_Way,"{$Day$}",right("00"&Day(Now()),2))
		else
			SD_Server_Way="$$$$$"
		end if
		response.Write(SD_Server_Way)
		response.End()
	end if
elseif request.Form.Count > 0 then
	Pid = request.Form("Pid")
	ClassName = request.Form("NewClass")
	if Pid<>"" then
		sql="select * from [S_Class] where SD_S_Class_Name='"& ClassName &"'"
		rs.open sql,conn,1,3
		if not rs.eof then
			rs.close
			response.Write("分类已经存在!")
			response.End()
		else
			rs.addnew
			rs("SD_S_Class_Parent")=Pid
			rs("SD_S_Class_Name")=ClassName
			rs("SD_S_Class_Html")=0
			rs.update
		end if
		rs.close
		debug(sql)
		sql="select S_Class_Id from [S_Class] where SD_S_Class_Name='"& ClassName &"'"
		rs.open sql,conn,1,1
			response.Write(rs("S_Class_Id"))
		rs.close
		response.End()
	elseif Pid="" then
		objval = request.Form("objval")
		obj2val = request.Form("obj2val")
		obj3val = request.Form("obj3val")
		rehtml="<span class=""tip_red"" ondblclick=""this.parentNode.removeChild(this)""><div>"
		rehtml=rehtml&"<select name=""Addr_Server"">"
		rehtml=rehtml&"	<option value=""-1"" "&Check_id12("-1",obj2val)&">无</option>"
			sql="select * from [Server] order by SD_Server_Id desc"
			rs.open sql,conn,1,1
			if not rs.eof then
				while not rs.eof
					rehtml=rehtml&"<option value="""&rs("SD_Server_Id")&""" "&Check_id12(""&rs("SD_Server_Id")&"",obj2val)&">"&rs("SD_Server_Name")&"</option>"
				rs.movenext
				wend
			end if
			rs.close
		rehtml=rehtml&"</select>"
		rehtml=rehtml&"<input name=""Addr_name"" readonly=""readonly"" class=""TextBox2"" value='"&objval&"' />"
		rehtml=rehtml&"&nbsp;<input name=""Addr_url"" readonly=""readonly"" class=""TextBox3"" value='"&obj3val&"' />&nbsp;"
		rehtml=rehtml&"×双击删除</div></span>"
		response.Write(rehtml)
		response.End()	
	end if
end if
%>