admin_type_edit.asp

来自「发布整站源码 可以再开发~ 本人实用中 效果嗷嗷滴~」· ASP 代码 · 共 102 行

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
'检查管理员是否登录
AdminName = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("RndPassword")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
	Response.Redirect "Admin_login.asp"
End If
%>
<%
dim rs,options

set rs = server.CreateObject("adodb.recordset")

select case request.form("options")
	case "add"
		call add()
	case "edit"
		call edit()
	case "del"
		call del()
end select

sub add()
	dim game,orderid
	game=htmlencode(trim(request.Form("game")))
	orderid=htmlencode(trim(request.Form("orderid")))
	if game="" then
		response.write "<script>alert('名称不能为空，请重新填写');history.back()</script>"
		response.end
	end if
	sql="select * from gametype where game='"&game&"'"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		rs.close
		sql="select * from gametype"
		rs.open sql,conn,1,3
		rs.AddNew
		rs("game") = game
		rs("orderid") = int(orderid)
		rs.Update
		rs.Close
		set rs=nothing
		response.Redirect "Admin_type.asp"
	else
		rs.close
		set rs=nothing
		response.write "<script>alert('当前提交的分类名已经存在\n请重新检查后提交，请不要提交重复信息');history.back()</script>"
	end if
end sub

sub edit()
	set rs = server.CreateObject("adodb.recordset")
	dim game,orderid,id
	id=cint(htmlencode(trim(request.form("id"))))
	game=htmlencode(trim(request.Form("game")))
	orderid=trim(request.form("orderid"))
	if game="" or orderid="" then
		response.write "<script>alert('名称和序号不能为空，请重新填写');history.back()</script>"
		response.end
	end if
	sql="select * from gametype where id="&id
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		rs.close
		response.write "<script>alert('数据非法！');history.back()</script>"
	else
		rs.close
		rs.open sql,conn,1,3
		rs("game") = game
		rs("orderid") = orderid
		rs.Update
		rs.Close
		set rs=nothing
		response.Redirect "Admin_type.asp"
	end if
end sub

sub del()
	on error resume next
	dim id,sql
	id=cint(htmlencode(trim(request.form("id"))))
	sql="delete from Gametype where id="&id
	conn.execute sql
	sql="delete from Jzdata where gameid="&id
	conn.execute sql
	sql="delete from Sfdata where gameid="&id
	conn.execute sql
	if err.Number<>0 then
		err.clear
		call closeconn()
		response.write "<script>alert('数据库操作失败! ');history.back()"
	else
		finished
		call closeconn()
		response.Redirect "Admin_type.asp"
	end if
end sub
%>