admin_edit.asp

本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化

<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/code.asp"-->
<!--#include file="../inc/SqlIn.Asp"-->
<!--#include file="../inc/check.asp"-->
<%
set rs = server.createobject("adodb.recordset")
dim id,name,ip,gameid,sdate,hour,minute,addr,xingzhi,zhuce,dk,homepage,Service,download,ulock,addtime,top,hot,time,Fine
id=request("id")
name=htmlencode(request("name"))
ip=htmlencode(request.form("ip"))
dk=htmlencode(request.form("dk"))
gameid=trim(request.form("gameid"))
Service=trim(request.form("Service"))
sdate=htmlencode(request("sdate"))
hour=htmlencode(request("hour"))
minute=htmlencode(request("minute"))
addr=htmlencode(request.form("addr"))
xingzhi=htmlencode(request.form("xingzhi"))
QQ=htmlencode(request.form("QQ"))
homepage=htmlencode(request.form("homepage"))
download=htmlencode(request.form("download"))
zhuce=htmlencode(request.form("zhuce"))
time=htmlencode(request.form("time"))
addtime=request("addtime")
top=htmlencode(request("top"))
hot=htmlencode(request("hot"))
ulock=htmlencode(request("ulock"))
Fine=htmlencode(request.form("Fine"))
if top="" then top="0"
if hot="" then hot="0"
if Fine="" then Fine="0"
if name="" or ip="" or gameid="" or Service="" or Sdate="" or xingzhi="" or addr="" then
response.write "<script>alert('带*的选项必须填写或选择，请返回检查后再提交');history.back()</script>"
call CloseConn()
response.end
end if

if int(service)>ubound(split(ssign,",")) then
response.write "<script>alert('非法数据，请勿试图提交非法参数');history.back()</script>"
call CloseConn()
response.end
end if

call edit()
call closeconn()
sub edit()
	sql="select * from Gq_sfdata where id="&request("id") 
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	response.write "<script>alert('无此ID，请返回重新检查');history.back()</script>"
	else
	rs("name")=name
	rs("ip")=ip
	rs("dk")=dk
	rs("gameid")=gameid
	rs("service")=service
	rs("addr")=addr
	rs("xingzhi")=xingzhi
	rs("homepage")=homepage
	rs("download")=download
	rs("zhuce")=zhuce
        if ulock="" then
	rs("ulock")=0
	rs("top")=0
	rs("hot")=0
	rs("Fine")=0
	else
	rs("ulock")=ulock
	rs("top")=top
	rs("hot")=hot
	rs("Fine")=Fine
        end if
	rs("sdate")=sdate
	rs("time")=time
	rs("hour")=hour
	rs("minute")=minute
	rs("addtime")=addtime
	rs("gameid")=gameid
	rs("QQ")=QQ
        if trim(request.form("top"))="1" then
	rs("toptime")=Now()
	end if
        if trim(request.form("hot"))="1" then
	rs("hottime")=Now()
	end if
        if trim(request.form("fine"))="1" then
	rs("finetime")=Now()
	end if
	rs.update
	response.Redirect "Admin_list.asp"
	rs.close
	end if
end sub
%>