程序代码：<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>私服发布</title><link href="style.css" type=text/css rel="stylesheet" />
<style type="text/css">
<!--
.STYLE4 {color: #000000}
-->
</style>
</head>
<body>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td colspan="2"><!--#include file="top.asp"--></td>
</tr>
<%
if request("action")="add" then
if request("gameid")=0 then
response.Write"<script>alert('选择游戏分类！');history.back();</script>"
response.End()
end if
if request("name")="" then
response.Write"<script>alert('官方网址不能为空！');history.back();</script>"
response.End()
end if
if request("IP")="" then
response.Write"<script>alert('登陆器地址不能为空！');history.back();</script>"
response.End()
end if
if request("sdate")="点击选择" then
response.Write"<script>alert('开区时间不能为空！');history.back();</script>"
response.End()
end if
if request("hour")="" then
response.Write"<script>alert('开区时间不能为空！');history.back();</script>"
response.End()
end if
if request("minute")="" then
response.Write"<script>alert('开区时间不能为空！');history.back();</script>"
response.End()
end if
if request("qq")="" then
response.Write"<script>alert('客服QQ不能为空！');history.back();</script>"
response.End()
end if
if request("addr")="" then
response.Write"<script>alert('线路不能为空！');history.back();</script>"
response.End()
end if
if request("Service")="" then
response.Write"<script>alert('线路不能为空！');history.back();</script>"
response.End()
end if
if request("xingzhi")="" then
response.Write"<script>alert('版本介绍不能为空！');history.back();</script>"
response.End()
end if
if request("homepage")="" then
response.Write"<script>alert('网站地址不能为空！');history.back();</script>"
response.End()
end if
if request("download")="" then
response.Write"<script>alert('登陆器地址不能为空！');history.back();</script>"
response.End()
end if
set rst=server.CreateObject("adodb.recordset")
rst.open"select * from [sosokad_user] where username='"&session("username")&"' and password='"&session("password")&"'",conn,1,3
if rst.eof and rst.bof then
response.Write"<script>alert('登录超时，请重新登录！');location.href='login.asp';</script>"
response.End()
end if
Gradeid=dealNum(rst("gradeid"))
set rs=conn.execute("select * from UserGrade where gradeid="&gradeid)
if request("isBest")=1 then k=rs("gu") else k=0 '套黄价格,固定价格
if request("hot")=1 then kk=rs("tx") else kk=0 '通宵价格
if request("hot")=2 then tk=rs("txgu") else tk=0 '通宵固顶价格
if request("fine")=1 then kkq=rs("jp") else kkq=0 '精品价格
kkk=(kkq+k+tk+kk)
if (rst("money")-kkk)<0 then
rst("money")=safestr(rst("money"))
rst.update
response.Write"<script>alert('对不起，你的余额已不足，请冲值后再发布！');location.href='index.asp';</script>"
response.End()
elseif kkk<1 then
response.Write"<script>alert('请选择推荐方式！');history.back();</script>"
response.End()
else
rst("money")=(safestr(rst("money"))-kkk)
rst.update
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from Gq_sfdata where id is null",conn,1,3
rs.addnew
rs("u_id")=dealNum(rst("id"))
rs("name")=safestr(request("name"))
rs("ip")=safestr(request("ip"))
rs("gameid")=dealNum(request("gameid"))
rs("service")=dealNum(request("service"))
rs("sdate")=safestr(request("sdate"))
rs("hour")=safestr(request("hour"))
rs("minute")=safestr(request("minute"))
rs("addr")=safestr(request("addr"))
rs("xingzhi")=safestr(request("xingzhi"))
rs("qq")=safestr(request("qq"))
rs("homepage")=safestr(request("homepage"))
rs("download")=safestr(request("download"))
rs("isBest")=dealNum(request("isBest"))
rs("hot")=safestr(request("hot"))
rs("fine")=safestr(request("fine"))
rs("ulock")=1
rs("Daytime")=0
if trim(request.form("isBest"))="1" then
rs("BestTime")=Now()
end if
if trim(request.form("hot"))="1" or trim(request.form("hot"))="2" then
rs("hottime")=Now()
end if
if trim(request.form("fine"))="1" then
rs("finetime")=Now()
end if
rs.update
response.Write"<script>alert('发布成功！\n当前余额为"&rst("money")&"元!');location.href='index.asp';</script>"
rs.close
set rs=nothing
end if
rst.close
set rst=nothing
end if
%>
<tr>
<td width="10%" align="center" valign="top" style="border:1px solid #dddddd; color:#FF6600; font-size:14px;"><!--#include file="left.asp"--></td>
<td width="76%" valign="top" style="border:1px solid #dddddd;">
<SCRIPT language=javascript src="../JS/setday.js"></SCRIPT>
<FORM name="form" action="?action=add" method="post">
<table class="tableBorder" bordercolor="#ffffff" cellspacing="1" cellpadding="2"
width="100%" align=center bgcolor=#F5FFFA border=1>
<tbody>
<tr>
<td colspan="2" align=middle class=TableRow1><font color=#ff0000> 发布游戏时，游戏名、登陆器、无规定可带字符美化，链接必须对应地址。</font></td>
</tr>
<tr>
<td class=TableRow1 align=middle width="15%">游戏分类：</td>
<td class=TableRow1 width="90%"><select id=select size=1
name=gameid>
<option value=6 selected>丝路私服</option>
</select>
<font
color=#ff0000>*</font></td>
</tr>
<tr>
<td class=TableRow1 align=middle width="15%">游戏名：</td>
<td class=TableRow1><input maxlength=12 size=16 name=name>
<font
face=宋体 color=#ff0000>*</font> <font color=#006600>此为游戏名称，对应链接地址在下“官方网址”限8个汉字</font></td>
</tr>
<tr>
<td class=TableRow1 align=middle width="15%">登陆器：</td>
<td class=TableRow1><input id=ip2 maxlength=16 size=16 name=ip>
<font color=#ff0000>*</font> <font color=#006600>此为登陆器名，对应链接地址在下“登陆器地址”</font></td>
</tr>
<tr>
<td class=TableRow1 align=middle width="15%">开服时间：</td>
<td class=TableRow1><INPUT name=sdate onfocus=setday(this) value="点击选择" size=10 maxlength="12">
<select name=hour>
<option value="" selected>开区小时</option>
<option value=8>上午8点</option>
<option value=09>上午9点</option>
<option value=10>上午10点</option>
<option value=11>上午11点</option>
<option value=12>中午12点</option>
<option value=13>下午13点</option>
<option value=14>下午14点</option>
<option value=15>下午15点</option>
<option value=16>下午16点</option>
<option value=17>下午17点</option>
<option value=18>晚上18点</option>
<option value=19>晚上19点</option>
<option value=20>晚上20点</option>
<option value=21>晚上21点</option>
<option value=22>晚上22点</option>
<option value=23>晚上23点</option>
</select>
<select name=minute>
<option value=00 selected>00分</option>
<option
value=30>30分</option>
</select>
<font color=#ff0000>*</font></td>
</tr>