admin_webmaster.asp

大型黄页系统,精美黄页flash演示,10m

		Response.Write " </td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " </form>" & vbCrLf
		Response.Write " </table>" & vbCrLf
		Rs.Close
		Set Rs = Nothing
	Else
		NC_Admin.Error_msg ("<li>您没有设置权限!<li>如有什么问题请联系站长？")
	End If
End Sub


Private Sub newpass()
	Dim passnw
	Dim usernw
	Dim aduser
	Dim oldpassword
	Set Rs = DownsysClass.Execute("select * from " & Admintable & " where id=" & Request("id"))
	oldpassword = Rs("password")
	If Request("username2") = "" Then
		ErrMsg = "<li>请输入管理员名字。<a href=?>［ <font color=red>返回</font> ］</a>"
		Founderr = True
		Exit Sub
	Else
		usernw = Trim(Request("username2"))
	End If
	If Request("password2") = "" Then
		passnw = "没有修改"
	Else
		passnw = Request("password2")
	End If
	If NC_Admin.ChkAdmin("09999", NC_Admin.Purview) Then
		Set Rs = CreateObject("adodb.recordset")
		SQL = "select * from " & Admintable & " where adminname='" & Trim(Request("oldusername")) & "'"
		Rs.Open SQL, conn, 1, 3
		If Not Rs.EOF And Not Rs.bof Then
			Rs("adminname") = usernw
			If Request("password2") <> "" Then Rs("password") = md5(Request("password2"))
			Rs("isActive") = Request.Form("isActive")
			Rs("flag") = Request.Form("flag")
			NC_Admin.Succeed_Msg ("<li>管理员资料更新成功，请记住更新信息。<br> 管理员：" & Request("username2") & " <BR> 密   码：" & passnw & "")
			Rs.update
		End If
		Rs.Close
		Set Rs = Nothing
	Else
		NC_Admin.Error_msg ("<li>您没有设置权限!<li>如有什么问题请联系站长？")
	End If
End Sub


Private Sub addadmin()
	Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write "<form action=""?action=savenew"" method=post>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <th colspan=2 height=23>管理员管理－－添加管理员" & vbCrLf
	Response.Write " </th>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr >" & vbCrLf
	Response.Write " <td width=""26%"" align=""right"" class=forumrow>后台登陆名称：</td>" & vbCrLf
	Response.Write " <td width=""74%"" class=forumrow>" & vbCrLf
	Response.Write " <input type=text name=""username2"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td width=""26%"" align=""right"" class=forumrow>后台登陆密码：</td>" & vbCrLf
	Response.Write " <td width=""74%"" class=forumrow>" & vbCrLf
	Response.Write " <input type=""password"" name=""password2"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td width=""26%"" align=""right"" class=forumrow>管理员级别：</td>" & vbCrLf
	Response.Write " <td width=""74%"" class=forumrow>" & vbCrLf
	Response.Write " <input type=radio name=flag value='0' checked> 普通管理员&nbsp;&nbsp;" & vbCrLf
	Response.Write " <input type=radio name=flag value='1'> 系统CEO （拥有最高权限）" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td width=""26%"" align=""right"" class=forumrow>是否激活管理员：</td>" & vbCrLf
	Response.Write " <td width=""74%"" class=forumrow>" & vbCrLf
	Response.Write " <input type=radio name=isActive value='0' checked> 否&nbsp;&nbsp;" & vbCrLf
	Response.Write " <input type=radio name=isActive value='1'> 是" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr align=""center"">" & vbCrLf
	Response.Write " <td colspan=""2"" class=forumrow>" & vbCrLf
	Response.Write " <input type=""submit"" name=""Submit"" value=""添 加"" class=""button"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </form>" & vbCrLf
	Response.Write " </table>" & vbCrLf
End Sub


Private Sub savenew()
	Dim adminuserid
	If Request.Form("username2") = "" Then
		ErrMsg = "请输入后台登陆用户名！"
		Founderr = True
		Exit Sub
	Else
		adminuserid = Request.Form("username2")
	End If
	If Request.Form("password2") = "" Then
		ErrMsg = "请输入后台登陆密码！"
		Founderr = True
		Exit Sub
	End If
	Set Rs = DownsysClass.Execute("select adminname from " & Admintable & " where adminname='" & Replace(Request.Form("username2"), "'", "") & "'")
	If Not (Rs.EOF And Rs.bof) Then
		ErrMsg = "您输入的用户名已经在管理用户中存在！"
		Founderr = True
		Exit Sub
	End If
	Set Rs = Server.CreateObject("adodb.recordset")
	SQL = "select * from " & Admintable & " where (id is null)"
	Rs.Open SQL, conn, 1, 3
	Rs.addnew
	Rs("adminname") = Replace(Request.Form("username2"), "'", "")
	Rs("password") = md5(Request.Form("password2"))
	Rs("isActive") = Request.Form("isActive")
	Rs("flag") = Request.Form("flag")
	Rs.update
	Rs.Close
	Set Rs = Nothing
	NC_Admin.Succeed_Msg ("用户ID:" & adminuserid & " 添加成功，请到管理员管理给予相应的权限，如需修改请返回管理员管理！")
End Sub


Private Sub userinfo()
	Dim menu(6, 10)
	Dim j
	Dim tmpmenu
	Dim menuname
	Dim menurl
	menu(0, 0) = "常规设置"
	menu(0, 1) = "<a href=admin_setting.asp target=main>基本设置</a> | <a href=admin_adcolumn.asp target=main>广告管理</a>"
	menu(0, 2) = "<a href=admin_template.asp target=main>模板样式总管理</a>"
	menu(0, 3) = "<a href=admin_loadskin.asp target=main>模板导出</a> | <a href=admin_loadskin.asp?action=load target=main>模板导入</a>"
	menu(0, 4) = "<a href=admin_message.asp?action=add target=main>发布公告</a> | <a href=admin_message.asp target=main>公告管理</a>"

	menu(1, 0) = "信息管理"
	menu(1, 1) = "<a href=admin_software.asp?action=add target=main>用户发布</a> | <a href=admin_software.asp target=main>管理信息</a>"
	menu(1, 2) = "<a href=admin_sorting.asp?action=add target=main>添加信息分类</a> | <a href=admin_sorting.asp target=main>管理</a>"
	'menu(1, 3) = "<a href=admin_server.asp target=main>二级管理</a>"
	menu(1, 3) = "<a href=admin_softrec.asp target=main>回收站管理</a>"
	menu(1, 4) = "<a href=admin_softerror.asp target=main>错误信息</a> | <a href=admin_softupdate.asp target=main>更新数据</a>"
	menu(1, 5) = "<a href=admin_softessay.asp target=main>留言询价审核</a> | <a href=admin_softessays.asp target=main>管理</a>"
	menu(1, 6) = "<a href=Create_HotTopJs.asp target=main>生成信息排行JS</a>"
	menu(2, 0) = "文章管理"

	menu(2, 1) = "<a href=admin_article.asp?action=add target=main>添加文章</a> | <a href=admin_article.asp target=main>管理文章</a>"
	menu(2, 2) = "<a href=admin_class.asp?action=add target=main>添加文章分类</a> | <a href=admin_class.asp target=main>管理</a>"
	menu(2, 3) = "<a href=admin_articleupdate.asp target=main>数据更新</a> | <a href=admin_articlerec.asp target=main>回收站</a>"
	menu(2, 4) = "<a href=admin_articlessay.asp target=main>文章评论管理</a>"
	menu(3, 0) = "生成HTML"

	menu(3, 1) = "<a href=Create_Index.Asp target=main>生成首页</a> | <a href=Create_Help.asp target=main>生成帮助</a>"
	menu(3, 2) = "<a href=Create_HotSoft.Asp target=main>热门信息</a> | <a href=Create_Software.Asp target=main>生成信息</a>"
	menu(3, 3) = "<a href=Create_Latenew.Asp target=main>最新信息</a> | <a href=Create_Commend.Asp target=main>推荐信息</a>"
	menu(3, 4) = "<a href=Create_ArticleIndex.asp target=main>文章首页</a> | <a href=Create_Listing.asp target=main>文章列表</a>"
	menu(3, 5) = "<a href=Create_HotArticle.Asp target=main>热门文章</a> | <a href=Create_Article.Asp target=main>文章内容</a>"
	menu(3, 6) = "<a href=Create_Catalog.asp target=main>生成分类</a> | <a href=Create_NewArticle.Asp target=main>最新文章</a>"
	menu(3, 7) = "<a href=Create_Sorting.Asp?ado=0 target=main>供应</a> | <a href=Create_Sorting.Asp?ado=1 target=main>求购</a> | <a href=Create_Sorting.Asp?ado=2 target=main>合作</a> | "
	menu(4, 0) = "企业用户管理"

	menu(4, 1) = "<a href=admin_user.asp target=main>查看会员信息</a>"
	menu(4, 2) = "<a href=admin_password.asp target=main>管理员密码修改</a>"
	menu(4, 3) = "<a href=admin_webmaster.asp?action=add target=main>管理员添加</a> | <a href=admin_webmaster.asp target=main>管理</a>"
	menu(4, 4) = "<a href=admin_group.asp?action=addgroup target=main>用户组添加</a> | <a href=admin_group.asp target=main>管理</a>"
	menu(4, 5) = "<a href=admin_mailist.asp target=main>邮件列表</a> | <a href=admin_mailout.asp target=main>列表导出</a>"
	menu(4, 6) = "<a href=Create_PageIndex.Asp target=main>黄页首页</a> | <a href=Create_PageWare.Asp target=main>黄页信息</a>"
	menu(4, 7) = "<a href=Create_PageCity.Asp target=main>城市列表</a> | <a href=Create_PageSort.Asp target=main>行业列表</a>"
	menu(5, 0) = "其它设置"

	menu(5, 1) = "<a href=admin_link.asp?action=add target=main>友情链接添加</a> | <a href=admin_link.asp target=main>管 理</a>"
	menu(5, 2) = "<a href=admin_plusmenu.asp?action=add target=main>网站栏目添加</a> | <a href=admin_plusmenu.asp target=main>管 理</a>"
	menu(5, 3) = "<a href=admin_lockip.asp?action=add target=main>IP锁定添加</a> | <a href=admin_lockip.asp target=main>管理</a>"
	menu(5, 4) = "<a href=admin_vote.asp?action=add target=main>增加投票</a> | <a href=admin_vote.asp target=main>投票管理</a>"
	menu(5, 5) = "<a href=admin_filemanage.asp?path=" & DownsysClass.SetupDir & DownsysClass.Setting(26) & " target=main>图片管理</a> | <a href=admin_filemanage.asp?path=" & DownsysClass.SetupDir & DownsysClass.Setting(24) & " target=main>文件管理</a>"
	'menu(5, 7) = "<a href=admin_filemanage.asp target=main>在线文件管理</a>"
	'menu(6, 0) = "系统统计"

	'menu(6, 1) = "<a href=admin_database.asp#1 target=main>数据库更名</a> | <a href=admin_database.asp#2 target=main>备 份</a>"
	'menu(6, 2) = "<a href=admin_database.asp#4 target=main>数据库压缩</a> | <a href=admin_database.asp#4 target=main>恢 复</a>"
	'menu(6, 3) = "<a href=admin_probe.asp target=main>服务器信息</a>"
	'menu(6, 4) = "<a href=admin_replace.asp target=main>数据库批量替换</a>"
	'menu(6, 1) = "<a href=../SpaceSize.asp target=main>系统空间占用</a>"
	menu(6, 0) = "商店管理"

	menu(6, 1) = "<a href=admin_Shopware.asp?action=add target=main>添加商品</a> | <a href=admin_Shopware.asp target=main>管理商品</a>"
	menu(6, 2) = "<a href=admin_Shoping.asp?action=add target=main>添加商品分类</a> | <a href=admin_Shoping.asp target=main>管理</a>"
	menu(6, 3) = "<a href=admin_shopessay.asp target=main>商品定单审核</a> | <a href=admin_shopessays.asp target=main>管理</a>"
	menu(6, 4) = "<a href=Create_Shoping.Asp target=main>商店列表</a> | <a href=Create_Shopware.Asp target=main>商店子页</a>"
	Set Rs = DownsysClass.Execute("select * from " & Admintable & " where id=" & Request("id"))
	Response.Write "<form action=""?action=updat"" method=post name=adminflag>" & vbCrLf
	Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""95%"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<th height=25>管理员权限管理</b>(请选择相应的权限分配给管理员)</th>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr><td class=forumrow>" & vbCrLf
	For i = 0 To UBound(menu, 1)
		Response.Write "<b>"
		Response.Write menu(i, 0)
		Response.Write "</b><br>" & vbCrLf
		On Error Resume Next
		For j = 1 To UBound(menu, 2)
			If IsEmpty(menu(i, j)) Then Exit For
			tmpmenu = Split(menu(i, j), ",")
			menuname = tmpmenu(0)
			menurl = tmpmenu(1)
			Response.Write "<input type=""checkbox"" name=""Purview"" value="""
			Response.Write i & j
			Response.Write """ "
			If InStr(Rs("Purview"), i & j) <> 0 Then Response.Write "checked"
			Response.Write "><a href="""
			Response.Write menurl
			Response.Write """>"
			Response.Write menuname
			Response.Write "</a>&nbsp;&nbsp;" & vbCrLf
		Next
		Response.Write "<br><br>" & vbCrLf
	Next
	Response.Write "<input type=hidden name=id value="""
	Response.Write Request("id")
	Response.Write """>" & vbCrLf
	Response.Write "<input type=""submit"" name=""Submit"" value=""更新管理员权限"" class=""button"">