admin_action.asp

非常一般

<!--#include file="Admin_Conn.asp"-->
<!--#include file="Admin_Error.asp" -->
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/Md5.asp" -->
<META http-equiv=Content-Type content="text/html; charset=gbk">
<%
  Action = request("Action")
  Select Case Action
    Case 1                         ' 信息删除
      Action_id = request("id")
      Action_zt = request("zt")
      Action_fs = request("fs")
      If Action_zt = "w" Then
        response.write"<script language=JavaScript>{window.alert('本条消息您还未读!');window.location.href='javascript:history.go(-1)'}</script>"
      Else
        Set rs=Server.CreateObject("ADODB.Recordset")      
        Sql="Delete * from Feedback where Feedback_id="&Action_id
        Rs.Open Sql,conn,1,3
        if Action_fs = "mail" Then
          response.write"<script language=JavaScript>{window.alert('您已经成功删除一条邮件信息');window.location.href='Admin_Mail.asp'}</script>"      
        Else
          response.write"<script language=JavaScript>{window.alert('您已经成功删除一条后台信息');window.location.href='Admin_Msg.asp'}</script>"
        End if
        Set Rs = nothing
      End if
    Case 2                         ' ~{OB@-2K5%Lm<S~}
      Title = request("Title1")
	  ty = request("type")
      If Len(Title) > 10 or Title = "" or Title = Null Then
        response.write"<script language=JavaScript>{window.alert('对不起,您输入的字符不符合规范');window.location.href='javascript:history.go(-1)'}</script>"
      End if
      Set Rs=Server.CreateObject("ADODB.Recordset")
      Sql = "select * from "&ty&" where Type_value = '"&Title&"'"
      Rs.open sql,conn,1,3
      If not Rs.eof then
        Response.write"<script language=JavaScript>{window.alert('对不起,该下拉菜单名称已经存在,请重新输入');window.location.href='javascript:history.go(-1)'}</script>"
      Else
        Rs.addnew
        Rs("Type_value")=trim(Title)
        Rs.update
        Rs.close     
        Set rs = nothing
        response.write "<script language=JavaScript>{window.alert('您成功的添加了一条下拉菜单');window.location.href='Admin_Menu.asp?action=1&type1="+ty+"'}</script>"
      End if      
    Case 3                          ' 下拉菜单修改
      id = request("id")
      Title = request("Title")
	  ty = request("type")
      If Len(Title) > 10 or Title = "" or Title = Null Then
        response.write"<script language=JavaScript>{window.alert('对不起,您输入的字符不符合规范');window.location.href='javascript:history.go(-1)'}</script>"
      End if
      Set Rs=Server.CreateObject("ADODB.Recordset")
      Sql = "select * from "&ty&" where Type_id = "&id
      Rs.open sql,conn,1,3
      If Title = rs("Type_value") then
        Response.write"<script language=JavaScript>{window.alert('对不起,该下拉菜单名称已经存在,请重新输入');window.location.href='javascript:history.go(-1)'}</script>"
      Else
        Rs("Type_value")=trim(Title)
        Rs.update
        Rs.close     
        Set rs = nothing
        response.write"<script language=JavaScript>{window.alert('您成功的修改了一条下拉菜单');window.location.href='Admin_Menu.asp?action=1&type1="+ty+"'}</script>"
      End if    
    Case 4                         ' 下拉菜单删除
      ty = request("type")
	  Action_id = request("id")
      Set rs=Server.CreateObject("ADODB.Recordset")      
      Sql="Delete * from "&ty&" where Type_id="&Action_id
      Rs.Open Sql,conn,1,1          
      response.write"<script language=JavaScript>{window.alert('您已经成功删除一条记录');window.location.href='Admin_Menu.asp?Action=1&type1="+ty+"'}</script>"
      Set Rs = nothing
    Case 5                         ' 下拉菜单全部删除
      ty = request("type")
	  Set rs=Server.CreateObject("ADODB.Recordset")      
      Sql="Delete * from "&ty&""
      Rs.Open Sql,conn,1,1          
      response.write"<script language=JavaScript>{window.alert('您已经成功全部记录');window.location.href='Admin_Menu.asp?Action=1&type1="+ty+"'}</script>"
      Set rs = nothing  
    Case 6                         ' 反馈信息全部删除
      fs = request("fs")
      If fs = "Mail" Then 
        Set rs=Server.CreateObject("ADODB.Recordset")
        Sql="Delete * from Feedback where Feedback_fs = 'Mail'"
        Rs.Open Sql,conn,1,1          
        response.write"<script language=JavaScript>{window.alert('您已经成功清除全部邮件记录');window.location.href='Admin_Mail.asp'}</script>"
        Set rs = nothing
      end if
      if fs = "send" then
        Set rs=Server.CreateObject("ADODB.Recordset")
        Sql="Delete * from mailsend "
        Rs.Open Sql,conn,1,1          
        response.write"<script language=JavaScript>{window.alert('您已经成功清除全部回复邮件记录');window.location.href='Admin_Msg.asp'}</script>"
        Set rs = nothing
	  Else 
	    Set rs=Server.CreateObject("ADODB.Recordset")
        Sql="Delete * from Feedback where Feedback_zt = 1"
        Rs.Open Sql,conn,1,1          
        response.write"<script language=JavaScript>{window.alert('您已经成功清除已读后台记录');window.location.href='Admin_Msg.asp'}</script>"
        Set rs = nothing
      End if
	          
   Case 7     ' 系统设置
      name = request("name")
      url = request("url")
      fangshi = request("fangshi")
      refresh = request("refresh")
      qtime = request("time")
	  mailsave = request("mail_save")
      safe = request("safe")
	  indextext = request("indextext")
	  webback = request("webback")
	  listtt = request("listtt")
	  emailbk = request("emailbk")
	  emailback = request("emailback")
	  fkemailtitle = request("fkemailtitle")
	  emailtext = request("emailtext")
	  emailtitle = request("emailtitle")
	  listtype = request("listtype")
     Set Rs = Server.CreateObject("ADODB.Recordset")
      Sql = "select * from config"
      Rs.open sql,conn,1,3
      Rs("web_name")=trim(name)
      Rs("web_url")=trim(url)
      Rs("web_fangshi")=trim(fangshi)
      Rs("web_refresh")=refresh
      Rs("web_time")=qtime
	  Rs("mail_save")=mailsave 
      Rs("web_safe")=safe
	  Rs("indextext")=indextext
	  Rs("webback")=webback
	  Rs("listtt")=listtt
	  Rs("emailbk")=emailbk
	  Rs("emailback")=emailback
	  Rs("fkemailtitle")=fkemailtitle
	  Rs("emailtext")=emailtext
	  Rs("emailtitle")=emailtitle
	  Rs("listtype")=listtype
      Rs.update
      Rs.close     
     Set rs = nothing
      response.write"<script language=JavaScript>{window.alert('参数设置成功');window.location.href='Admin_config.asp'}</script>" 
  
    Case 8                          ' 邮件设置
      shou = request("shou")
      fa = request("fa")
      user = request("user")
      pass = request("pass")
      smtp = request("smtp")
      cd = request("cd")
      Set Rs = Server.CreateObject("ADODB.Recordset")
      Sql = "select * from config"
      Rs.open sql,conn,1,3
      Rs("mail_shou")=trim(shou)
      Rs("mail_fa")=trim(fa)
      Rs("mail_user")=trim(user)
      Rs("mail_pass")=trim(pass)
      Rs("mail_smtp")=trim(smtp)
      Rs("mail_cd")=trim(cd)
      Rs.update
      Rs.close     
      Set rs = nothing
      response.write"<script language=JavaScript>{window.alert('参数设置成功');window.location.href='Admin_JMail.asp'}</script>" 
    Case 9                         ' 增加管理员
      User = request("User")
      Pass = request("Pass")
      Set Rs=Server.CreateObject("ADODB.Recordset")
      Sql = "select * from Admin where Admin_User= '"&User&"'"
      Rs.open sql,conn,1,3
      If not Rs.eof then
        Response.write"<script language=JavaScript>{window.alert('对不起,该用户名已经存在,请重新输入');window.location.href='javascript:history.go(-1)'}</script>"
      Else
        Rs.addnew
        Rs("Admin_User")=trim(User)
        Rs("Admin_Pass")=Md5(trim(Pass),Pmode)
        Rs("Admin_Lock")="0"
        Rs.update
        Rs.close     
        Set rs = nothing
        response.write"<script language=JavaScript>{window.alert('您成功添加了一个管理员');window.location.href='Admin_Admin.asp?action=1'}</script>"
      End if
    Case 10                        ' 管理员密码修改
      id = request("id")
      ModiPass = Md5(request("Pass"),Pmode)
      NewPass = Md5(request("NewPass"),Pmode)
      QNewPass = Md5(request("QNewPass"),Pmode)
      Set Rs=Server.CreateObject("ADODB.Recordset")
      Sql = "select * from Admin where Admin_id = "&id
      Rs.open sql,conn,1,3
      If ModiPass <> Rs("Admin_Pass") Then
        response.write"<script language=JavaScript>{window.alert('对不起,您的密码输入错误');window.location.href='javascript:history.go(-1)'}</script>"
      End if
      If NewPass <> QNewPass then
        Response.write"<script language=JavaScript>{window.alert('对不起,您两次输入的密码不同,请重新输入');window.location.href='javascript:history.go(-1)'}</script>"
      Else
        Rs("Admin_Pass")=trim(NewPass)
        Rs.update
        Rs.close     
        Set rs = nothing
        response.write"<script language=JavaScript>{window.alert('您成功修改了管理员密码');window.location.href='Admin_Admin.asp?action=1'}</script>"
      End if
    Case 11                         ' 管理员删除
      id = request("id")
      Set rs=Server.CreateObject("ADODB.Recordset")      
      Sql="Delete * from Admin where Admin_id="&id
      Rs.Open Sql,conn,1,1          
      response.write"<script language=JavaScript>{window.alert('您已经成功删除一条记录');window.location.href='Admin_Admin.asp?Action=1'}</script>"
      Set Rs = nothing
    Case 12                         ' 管理员状态修改
      id = request("id")
      Lock = request("Lock")
      Set Rs=Server.CreateObject("ADODB.Recordset")
      Sql = "select * from Admin where Admin_id = "&id
      Rs.open sql,conn,1,3
      Rs("Admin_Lock")=Lock
      Rs.update
      Rs.close     
      Set rs = nothing
      response.write"<script language=JavaScript>{window.alert('您成功对管理员状态进行了操作');window.location.href='Admin_Admin.asp?action=1'}</script>"
    Case 13                         ' 清空邮件记录
      Set Rs=Server.CreateObject("ADODB.Recordset")
      Sql = "select * from Config"
      Rs.open sql,conn,1,3
      Rs("Mail_Count")=0
      Rs.update
      Rs.close     
      Set rs = nothing
      response.write"<script language=JavaScript>{window.alert('清除成功');window.location.href='Admin_Main.asp'}</script>"
    Case 14                         ' 反馈信息回复
      Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
      Mail_Mail = Request("Mail_Mail")
      Mail_Title = Request("Mail_Title")
      Mail_Info = Request("Mail_Info")
      M_Title = Request("M_Title")
	  emailid = Request("emailid")
      'jmail.silent = true     '屏蔽例外错误，返回FALSE跟TRUE两值j
      jmail.Charset = "GB2312"     '邮件的文字编码
      jmail.ContentType = "text/html"    '邮件的格式为HTML格式或纯文本
      jmail.AddRecipient Mail_Mail     '邮件收件人的地址
      jmail.From = mail_fa   '发件人的E-MAIL地址
      jmail.MailServerUserName = mail_user     '登录邮件服务器的用户名 (您的邮件地址)
      jmail.MailServerPassword = mail_pass     '登录邮件服务器的密码 (您的邮件密码)
      jmail.Subject = Mail_Title    '邮件的标题
      jmail.Body ="您在[<u>"&web_name&"</u>]提出的<u><b>"&M_Title&"</b></u>我们为您做出如下答复:<br>"&Mail_Info&""      '邮件的内容
      jmail.Priority = mail_cd       '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
      jmail.Send(mail_smtp)      '执行邮件发送（通过邮件服务器地址）
      jmail.Close()   
      set jmail = nothing
	
	Set rs=Server.CreateObject("ADODB.Recordset")
     Sql="Select * from mailsend"
     Rs.Open sql,conn,1,3
     Rs.Addnew
     Rs("Mail_Mail") = Request("Mail_Mail")
     Rs("Mail_Title") = Request("Mail_Title")
     Rs("Mail_Info") = Request("Mail_Info")
     Rs("emailid") = Request("emailid")
     Rs("sendtime")= now()
     Rs.update
     Rs.close     
     Set rs = nothing
      response.write"<script language=JavaScript>{window.alert('邮件发送成功');window.location.href='Admin_mailsend.asp'}</script>"
	  
    Case 15                        ' 信息删除
      Action_id = request("id")
	  Set rs=Server.CreateObject("ADODB.Recordset")      
      Sql="Delete * from mailsend where email_id="&Action_id
      Rs.Open Sql,conn,1,3
	  Set Rs = nothing
      response.write"<script language=JavaScript>{window.alert('您已经成功删除一条回复信息');window.location.href='javascript:history.go(-1)'}</script>"      
     
   case 16                            '保存菜单
    id = request("id")
	  listtitle = request("listtitle")
	  listorder = request("listorder")
	  listuse  = request("listuse")
	  listmust  = request("listmust")
	  listtype  = request("listtype")
      Set Rs=Server.CreateObject("ADODB.Recordset")
      Sql = "select * from list where listid = "&id
      Rs.open sql,conn,1,3
      Rs("listid")=trim(id)
      Rs("listtitle")=trim(listtitle)
	  Rs("listorder")=listorder
	 if listuse="yes" then
		Rs("listuse")=True
	 else
		Rs("listuse")=False
	 end if
	 if listmust="yes" then
		Rs("listmust")=True
	 else
		Rs("listmust")=False
	 end if
	  if listtype="yes" then
		Rs("listtype")=True
	 else
		Rs("listtype")=False
	 end if
     
        Rs.update
        Rs.close     
        Set rs = nothing
        response.write"<script language=JavaScript>{window.alert('您成功的修改了一条表单');window.location.href='Admin_list.asp'}</script>"
    
    
  End Select

%>