admin_set_index.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

<%
'==================================
'=文 件 名：admin_menu_items.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：网站主页管理
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then	
	errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
	response.End
elseif cur_adminsuper<>1 then
	errmsg=""&cur_adminname&"，您不是超级管理员，没有权限进行此操作！"
response.write "<script>window.alert('"&errmsg&"');window.location='javascript:history.go(-1);';</script>"
	response.End
end if
'==================================
'=功    能：主调代码，相应功能皆有说明
'==================================
select case request.QueryString("action")
	case "add" '新添菜单项
		call add()
	case "admin"  '菜单管理（批量管理）
		call admin()
	case "save"  '保存新添菜单项
		call save()
	case "edit"  '编辑菜单项
		call edit()
	case "del"  '删除菜单项
		call del()
	case else  
		call admin()
end Select
'==================================
'=过 程 名：add()
'=功    能：添加菜单
'==================================
sub add()
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form action="?action=save" method="post">
	<tr class="tablebody">
		<td colspan="2" class="td_title">网站菜单添加</td>
	</tr>
	<tr class="tablebody">
		<td colspan="2">提示:<br>
		1、添加设置网站主页内容。<br>
		2、各栏目全部不能为空。不使用的情况下填写任意字符。</td>
	</tr>
		<tr class="tablebody">
 		<td width="15%" align="center">&nbsp;名&nbsp;&nbsp;&nbsp;&nbsp;称</td>

		<td width="85%"><input name="txt_text" type="text" id="txt_text" size="20" maxlenth="30">
		&nbsp;&nbsp;是否换行：
		<select name="br" id="br">
		<option value="1" selected>换行</option>
        	<option value="0" style="color:#0000ff">不换</option>
		</select>
			
		&nbsp;&nbsp;栏目类型：<select name="indextype" id="indextype">
		<option value="0">文字显示</option>
		<option value="1" style="color:#0000ff">文字链接</option>
		<option value="2" style="color:#33CC00">图象显示</option>
		<option value="3" style="color:#FF00FF">图象链接</option>
		</select>
		&nbsp;&nbsp;是否隐藏：
		<select name="show" id="show">
		<option value="1">显示</option>
		<option value="0" style="color:#008000">隐藏</option>
		</select>
	</td>
	</tr>
	<tr class="tablebody">
		<td align="center">显示内容</td>
		<td><input name="txt_title" type="text" id="txt_title" size="80" maxlength="500">
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">链接地址</td>
		<td><input name="titleurl" type="text" id="titleurl" size="80" maxlength="100">
		</td>
	</tr>
	<tr class="tablebody">
		<td colspan="2" align="center"><input type="submit" name="Submit" value=" 提 交 "></td>
	</tr>
	</form>
</table>
<%
End Sub
'==================================
'=过 程 名：save()
'=功    能：保存菜单
'==================================
Sub save()
	sql = "Select top 1 * from wapls_menu order by order_num desc"
	set rs = conn.Execute (sql)
	if rs.eof then
		order = 1
	else
		order = rs(8)+1
	end if
	rs.close
	name=checksql("栏目名称",request.Form("txt_text"),1,30)
	br=checksql("是否换行",request.Form("br"),1,10)
	indextype=checksql("栏目类型",request.Form("indextype"),1,10)
	show=checksql("是否隐藏",request.Form("show"),1,10)
	title=checksql("显示内容",request.Form("txt_title"),1,500)
	titleurl=checksql("链接地址",request.Form("titleurl"),1,100)
	sql = "select * from wapls_menu"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("name")=name
	rs("br")=br
	rs("title")=title
	rs("titleurl")=titleurl
	rs("indextype")=indextype
	rs("show")=show
	rs("indextype")=indextype
	rs("order_num")=order
	rs.update
	rs.close
	response.write"<script>alert('菜单项目添加成功');location.href='?action=admin';</script>"
	response.end
End Sub
'==================================
'=过 程 名：admin()
'=功    能：管理菜单
'==================================
Sub admin()
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form action="?action=edit" method="post">
	<tr class="tablebody">
		<td colspan="10" class="td_title">网站主页批量修改</td>
	</tr>
	<tr class="tablebody">
		<td colspan="10">小技巧：进行批理管理时，建议使用<strong><span class="current_font" onclick="switchBar(this)" style="cursor:hand">切换左栏</span></strong>功能，这样显示将更会直观明了。</td>
	</tr>
	<tr class="tablebody">
<td colspan="10" class="title"><span class="current_font">注意!!!</span>各栏目不得留空.</td>
	</tr>
   <tr class="tablebody">
    <td width="5%" align="center">顺 序</td>
    <td width="15%" align="center">栏 目 名 称</td>
    <td width="40%" align="center">栏 目 内 容</td>
    <td width="10%" align="center">类 型</td>
    <td width="10%" align="center">换 行</td>
    <td width="10%" align="center">显 示</td>
    <td width="10%" align="center">操 作</td>
    </tr>
	<%
	Set rs = conn.Execute("Select * from wapls_menu order by order_num")
	if rs.eof then
		response.Write("<tr class=""tablebody""><td colspan=""8"" align=""center"" height=""70"">暂时没有任何菜单项目</td></tr>")
	end if
	dim i,j
	i = 0
	j = 1
	do while not rs.eof
	id = rs(0)
	i = i+1
	%>
<tr class="tablebody">
<td align="center"><input name="txt_order(<%=i%>)" type="text" id="txt_order(<%=i%>)" value="<%response.Write j:j=j+1%>" size="2" maxlength="2"></td>

<td><input name="txt_Name(<%=i%>)" type="text" id="txt_Name(<%=i%>)" value="<%=rs(1)%>" size="20" maxlength="20"><input name="i" type="hidden" id="i" value="<%=i%>" maxlength="2"><input name="id(<%=i%>)" type="hidden" id="id" value="<%=id%>" maxlength="2">
</td>

<td>
显示:<input name="txt_title(<%=i%>)" type="text" id="txt_title(<%=i%>)" value="<%=rs(2)%>" size="48" maxlength="255"><br>
地址:<input name="titleurl(<%=i%>)" type="text" id="titleurl(<%=i%>)" value="<%=rs(3)%>" size="48" maxlength="100">
</td>
		
		<td align="center">
		<select name="indextype(<%=i%>)" id="indextype">
		<option value="0" <%if rs(6)=0 then response.Write("selected")%>>文字显示</option>
		<option value="1" <%if rs(6)=1 then response.Write("selected")%> style="color:#0000ff">文字链接</option>
		<option value="2" <%if rs(6)=2 then response.Write("selected")%> style="color:#33CC00">图象显示</option>
		<option value="3" <%if rs(6)=3 then response.Write("selected")%> style="color:#FF00FF">图象链接</option>
		</select></td>

		<td align="center">
		<select name="br(<%=i%>)" id="br">
		<option value="1" <%if rs(4)=1 then response.Write("selected")%>>换行</option>
		<option value="0" <%if rs(4)=0 then response.Write("selected")%> style="color:#0000ff">不换</option>
		</select></td>

		<td align="center">
		<select name="show(<%=i%>)" id="show">
		<option value="1" <%if rs(5) = "1" then response.Write("selected")%>>显示</option>
		<option value="0" <%if rs(5) = "0" then response.Write("selected")%> style="color:#008000">隐藏</option>
		</select></td>
		
<td align="center">
<%
		if rs(7) = 1 then
			response.Write("<font color=""#ff0000"" title='系统项目，不能删除'>系统项目</font>")
		else
%>
<a href="?action=del&id=<%=id%>" onClick="{if(confirm('您确定要删除此项目吗?')){return true;}return false;}">删除栏目</a>
<%End if%>
</td>
	</tr>
	<%
	rs.movenext
	loop
	rs.close
	%>
	<tr class="tablebody">
<td colspan="10"><b>注 意：</b><br>&nbsp;&nbsp;&nbsp;&nbsp;1、对于顶部菜单，可以通过修改顺序号的方法来进行菜单的显示排序调整。请尽量保证不出现重复顺序，但这并不影响菜单的显示。
<br>&nbsp;&nbsp;&nbsp;&nbsp;2、内容的使用方法与说明:显示内容为主页显示的内容。显示图像时写入图像的地。<br>&nbsp;&nbsp;&nbsp;&nbsp;3、主页栏目不支持任何形式的语法标签，请勿与其他内容编辑相提并论。
</td>
	</tr>
	<tr class="tablebody">
		<td colspan="10" align="center"><input type="submit" name="Submit" value=" 提 交 "></td>
	</tr>
	</form>
</table>
<%
End Sub
'==================================
'=过 程 名：edit()
'=功    能：编辑菜单
'==================================
Sub edit()
	dim j,i,id
	j = request.Form("i")
	j = Split(j,",")(Ubound(Split(j,",")))
	for i = 1 to j
		order=checksql("菜单序号",request.Form("txt_order("&i&")"),0,2)
		menu_name=checksql("菜单名称",request.Form("txt_Name("&i&")"),1,20)
		id=checksql("菜单ID",request.Form("id("&i&")"),0,3)
		title=checksql("菜单内容",request.Form("txt_title("&i&")"),1,255)
		titleurl=checksql("菜单内容URL",request.Form("titleurl("&i&")"),1,100)
		indextype=checksql("菜单类型",request.Form("indextype("&i&")"),1,10)
		br=checksql("是否换行",request.Form("br("&i&")"),1,10)
		shown=checksql("是否显示",request.Form("show("&i&")"),1,10)
conn.Execute ("Update wapls_menu set name='"&menu_name&"',title='"&title&"',titleurl='"&titleurl&"',order_num="&order&",br="&br&",show="&shown&",indextype='"&indextype&"' where id ="&id)
	next
response.write"<script>alert('批量修改菜单项目成功');location.href='?action=admin';</script>"
	response.end
End sub
'==================================
'=过 程 名：del()
'=功    能：删除菜单
'==================================
Sub del()
	id = request.QueryString("id")
	conn.Execute("Delete from wapls_menu where id ="&id)
	response.write"<script>alert('删除菜单项目成功');location.href='?action=admin';</script>"
	response.end
End sub
set rs_item=nothing
set rs=nothing
%>
<!--#include file="wapls_admin_bottom.asp"-->