admin.asp

来自「搜索动力2009(asp+access) Ver 3.2 (思亲版): 1. 新」· ASP 代码 · 共 342 行 · 第 1/2 页

<!--#include file="config.asp"-->
<!--#include file="version.asp"-->
<!--#include file="md5.asp"-->
<%
if request("action")="login" Then
	dim sql
	dim rs
	dim password
	password=replace(trim(Request("password")),"'","")
	password=MD5(password)
	set rs=server.createobject("adodb.recordset")
	sql="select * from zxsou_config where password='"&password&"'"
	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if password=rs("password") then
			Session("zxsouadmin")=password
			Response.Redirect "?"
 		end if
		else
		response.write "<script language=javascript>"	
		response.write "alert('密码不正确!');"	
		response.write "</script>"
		response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
		Response.End	
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
end if

if request("action")="logout" Then
session("zxsouadmin")=""
Response.Redirect "?"
end if

if request("action")="changepw" then
pass1=request.Form("pass1")
pass2=request.Form("pass2")
if pass1="" then
		response.write "<script language=javascript>"	
		response.write "alert('请填写新密码!');"	
		response.write "</script>"
		response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
		Response.End	
end if
if pass1 <> pass2 then
		response.write "<script language=javascript>"	
		response.write "alert('您填写的新密码与确认密码不一致，请检查。');"	
		response.write "</script>"
		response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
		Response.End	
end if
  sql="select * from zxsou_config"
  Set zxsou_edit=Server.CreateObject("ADODB.RecordSet")
  zxsou_edit.open sql,conn,1,3
  pass=MD5(pass1)
  zxsou_edit("password")=pass
  zxsou_edit.update
  zxsou_edit.close
  response.write "<script language=javascript>"	
  response.write "alert('修改成功！');"	
  response.write "</script>"
  response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
  Response.End
end if
if request("action")="sysconfig" then
  sql="select * from zxsou_config"
  Set zxsou_edit=Server.CreateObject("ADODB.RecordSet")
  zxsou_edit.open sql,conn,1,3
  zxsou_edit("name")=request.Form("name")
  zxsou_edit("logo")=request.Form("logo")
  zxsou_edit("logosmall")=request.Form("logosmall")
  zxsou_edit("domain")=request.Form("domain")
  zxsou_edit("weburl")=request.Form("weburl")
  zxsou_edit("adminurl")=request.Form("adminurl")
  zxsou_edit("sysurl")=request.Form("sysurl")
  zxsou_edit("mobileurl")=request.Form("mobileurl")
  zxsou_edit("indexkeywords")=request.Form("indexkeywords")
  zxsou_edit("indexdescription")=request.Form("indexdescription")
  zxsou_edit("navigation")=request.Form("navigation")
  zxsou_edit("stat")=request.Form("stat")
  zxsou_edit("statview")=request.Form("statview")
  zxsou_edit("icp")=request.Form("icp")
  zxsou_edit("mode")=request.Form("mode")
  zxsou_edit("notice")=request.Form("notice")
  zxsou_edit("authorize")=request.Form("authorize")
  zxsou_edit.update
  zxsou_edit.close
  response.write "<script language=javascript>"	
  response.write "alert('修改成功！');"	
  response.write "</script>"
  response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
  Response.End
end if
if request("action")="userconfig" then
  sql="select * from zxsou_config"
  Set zxsou_edit=Server.CreateObject("ADODB.RecordSet")
  zxsou_edit.open sql,conn,1,3
  zxsou_edit("skin")=request.Form("skin")
  zxsou_edit("showtop")=request.Form("showtop")
  zxsou_edit("weathershow")=request.Form("weathershow")
  zxsou_edit("scrollshow")=request.Form("scrollshow")
  zxsou_edit("changenav")=request.Form("changenav")
  zxsou_edit("indexfocus")=request.Form("indexfocus")
  zxsou_edit("formtarget")=request.Form("formtarget")
  zxsou_edit("searchtype")=request.Form("searchtype")
  zxsou_edit("key_web")=request.Form("key_web")
  zxsou_edit("key_photo")=request.Form("key_photo")
  zxsou_edit("key_music")=request.Form("key_music")
  zxsou_edit("key_video")=request.Form("key_video")
  zxsou_edit("key_game")=request.Form("key_game")
  zxsou_edit("key_know")=request.Form("key_know")
  zxsou_edit("key_other")=request.Form("key_other")
  zxsou_edit("siteshow")=request.Form("siteshow")
  zxsou_edit("festivalshow")=request.Form("festivalshow")
  zxsou_edit("sethomepage")=request.Form("sethomepage")
  zxsou_edit("ranklink")=request.Form("ranklink")
  zxsou_edit("mobilelink")=request.Form("mobilelink")
  zxsou_edit("getcode")=request.Form("getcode")
  zxsou_edit("adminlink")=request.Form("adminlink")
  zxsou_edit("ico")=request.Form("ico")
  zxsou_edit("find")=request.Form("find")
  zxsou_edit.update
  zxsou_edit.close
  response.write "<script language=javascript>"	
  response.write "alert('修改成功！');"	
  response.write "</script>"
  response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
  Response.End
end if
if request("action")="adconfig" then
  sql="select * from zxsou_config"
  Set zxsou_edit=Server.CreateObject("ADODB.RecordSet")
  zxsou_edit.open sql,conn,1,3
  zxsou_edit("adcode")=request.Form("adcode")
  zxsou_edit("adshow")=request.Form("adshow")
  zxsou_edit("adcode_search")=request.Form("adcode_search")
  zxsou_edit("adshow_search")=request.Form("adshow_search")
  zxsou_edit("friendlink")=request.Form("friendlink")
  zxsou_edit.update
  zxsou_edit.close
  response.write "<script language=javascript>"	
  response.write "alert('修改成功！');"	
  response.write "</script>"
  response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
  Response.End
end if
if request("action")="zxsoumeng" then
  sql="select * from zxsou_config"
  Set zxsou_edit=Server.CreateObject("ADODB.RecordSet")
  zxsou_edit.open sql,conn,1,3
  zxsou_edit("webmaster")=request.Form("webmaster")
  zxsou_edit("chinesego")=request.Form("chinesego")
  zxsou_edit("serverline")=request.Form("serverline")
  zxsou_edit("dns")=request.Form("dns")
  zxsou_edit("prhelp")=request.Form("prhelp")
  zxsou_edit.update
  zxsou_edit.close
  response.write "<script language=javascript>"	
  response.write "alert('修改成功！');"	
  response.write "</script>"
  response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
  Response.End
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理</title>