save.asp

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

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

call add()
        call CloseConn()
sub add()
sql="SELECT * FROM Gq_sfdata where name='"&name&"' and ip='"&ip&"'"
	rs.open sql,conn,1,1 
	if rs.bof and rs.eof then 
	rs.close
	sql="select * from Gq_sfdata" 
	rs.open sql,conn,1,3
	rs.addnew
	rs("name")=name
	rs("ip")=ip
	rs("gameid")=gameid
	rs("Service")=Service
	rs("SDATE")=sdate
	rs("hour")=hour
	rs("minute")=minute
	rs("addr")=addr
	rs("xingzhi")=xingzhi
	rs("QQ")=QQ
	rs("homepage")=homepage
       rs("zhuce")=zhuce
       rs("dk")=dk
	rs("download")=download
	rs("ulock")=SFUlock   '1:前台添加私服时自动通过审核；0:前台发布私服后需在后台审核后才能显示。
	rs("top")=0
        rs("hot")=0
	rs.update
	name=rs("name")
	response.write "<script>alert('服务器"&name&"提交成功\n请等待管理员审核。\n请不要重复发布信息！\n如果信息发布错误需要修改，\n请直接联系管理员。');location.replace('index.asp')</script>"
	rs.close
	rs.nothing
	else
	response.write "<script>alert('当前提交的服务器名或IP在数据库里已经存在\n请重新检查后提交，请不要提交重复信息');history.back()</script>"
	rs.close
	rs.nothing
	end if
end sub
%>