外挂编程

开发平台：
ASP/ASPX

Admin_Add.asp：源码内容
							<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
If Not CheckAdmin("AddGameList") Then
    Server.Transfer("showerr.asp")
    Response.End
End If
'=====================================================================
' 作者声明：转载请保留版权信息，鄙视不要脸的人
'=====================================================================
' 程序名称：蓝宇网络发布系统
' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
' 文件名称：Admin_Add.Asp
' 更新日期：2007-6-4
'=====================================================================
' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
' 程序开发：蓝宇,╲、随心゛
' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
'=====================================================================
' Copyright 2004-2007 蓝宇 - All Rights Reserved.
'=====================================================================
Dim Rs_type, Sql_Type
titlename="添加私服管理"
Admin_header
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "add"
	Call AddGame()
Case Else
	Call AddList()
End Select
Sub AddList()
%>
<SCRIPT language=JavaScript>
function check(){
if(document.form1.name.value=="")
  {
alert("私服服务器名称不能为空！");
document.form1.name.focus();
return false;
}
if(document.form1.ip.value=="")
{
alert("IP地址不能为空！");
document.form1.ip.focus();
return false;
}
if(document.form1.gameid.value=="")
{
alert("请选择您要发布的私服类型！");
document.form1.gameid.focus();
return false;
}
if(document.form1.service.value=="")
{
alert("请选择您的服务器线路！");
document.form1.service.focus();
return false;
}
if(document.form1.addr.value=="")
{
alert("请选择您的服务器所在地！");
document.form1.addr.focus();
return false;
}
if(document.form1.Sdate.value=="")
{
alert("请填写开区具体时间！");
document.form1.Sdate.focus();
return false;
}
if(document.form1.xingzhi.value=="")
{
alert("游戏版本不能为空！");
document.form1.xingzhi.focus();
return false;
}
}
</SCRIPT>
<SCRIPT language=javascript src="../JS/setday.js"></SCRIPT>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<FORM name="form" action="?action=add" method="post">
<tr> 
<th colspan="2">私服管理－－添加私服</th>
</tr>
<TR>
<td width="15%" align="right" class="TableRow1">游戏分类：</TD>
<td class="TableRow1">
<%
Set Rs_type = Server.CreateObject("ADODB.RecordSet")
Sql_Type="select * from Gq_Gametype order by orderid"
rs_type.open sql_type,conn,1,3
%>
<select id=select size=1 name=gameid>
<%
if rs_type.eof and rs_type.bof then
response.Write "<option value= selected>请添加游戏分类</option>"
else
do while not rs_type.EOF
response.Write "<option value="&rs_type("id")&">"&rs_type("game")&"</option>"
rs_type.movenext
loop
rs_type.close
end if
%></select><font color="#FF0000">*</font></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">服务器名：</TD>
<td class="TableRow1"><INPUT name=name size="16" maxLength=20> <FONT face=宋体 color=#FF0000>*</FONT> <FONT color=#006600>限8个汉字</FONT></TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">服务器IP：</TD>
<td class="TableRow1"><INPUT name=ip id="ip2" value="专用登录器" size="16" maxLength=16> 
<font color="#FF0000">*</font></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">开区时间：</TD>
<td class="TableRow1"><INPUT name=sdate onfocus=setday(this) value="点击选择" size=10 maxlength="12">
<SELECT name=hour>
<OPTION value="" selected>开区小时</OPTION>
<OPTION value=00>凌晨0点</OPTION>
<OPTION value=01>凌晨1点</OPTION>
<OPTION value=02>凌晨2点</OPTION>
<OPTION value=03>凌晨3点</OPTION>
<OPTION value=04>凌晨4点</OPTION>
<OPTION value=05>凌晨5点</OPTION>
<OPTION value=06>凌晨6点</OPTION>
<OPTION value=07>上午7点</OPTION>
<OPTION value=08>上午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>&nbsp;
<SELECT name=minute>
<OPTION value=00 selected>00分</OPTION>
<OPTION value=30>30分</OPTION>
</SELECT> <font color="#FF0000">*</font></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">客服QQ：</TD>
<td class="TableRow1"><INPUT name=QQ value="游戏中查询" size="16" maxLength=10> <font color="#FF0000">*</font> 填写号码即可</TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">地区线路：</TD>
<td class="TableRow1"><input name="addr" id="addr" value="线路" size="16" maxlength="10" />
  <SELECT id=select7 size=1 name=Service>
          <option value="" selected>线路</option>
      <%for i=0 to ubound(split(tee5.ssign,","))
response.write "<option value='"&i&"'>"&split(tee5.ssign,",")(i)&"</option>"
next
%></SELECT> <font color="#FF0000">*</font></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">版本简介：</TD>
<td class="TableRow1"><input name="xingzhi" id="xingzhi2" size="56" maxlength="24"> <font color="#FF0000">*</font> 20个字内</TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">网站地址：</TD>
<td class="TableRow1"><input name=homepage id=homepage3 size=36 maxlength=50> <font color="#FF0000">*</font> 此私服URL,开头一定要http://否则无法连接</TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">登陆器地址：</TD>
<td class="TableRow1"><INPUT name=download id=download3 size=36 maxLength=60> <font color="#FF0000">*</font> 此私服登陆器地址,开头一定要http://否则无法连接</TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">广告期限：</TD>
<td class="TableRow1">
<select name="Daytime" size="0">
<option selected value="0">请 选 择</option>
<option value="0">推荐一天</option>
<option value="1">推荐二天</option>
<option value="2">推荐三天</option>
<option value="3">推荐四天</option>
<option value="4">推荐五天</option>
<option value="5">推荐六天</option>
<option value="6">推荐七天</option>
</select> <font color="#FF0000">*</font> <font color="#000000">广告期限选择一至七 一为一天 依次类推，按推荐日期计算</font></TD> 
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">精品推荐：</TD>
<td class="TableRow1">
<select name="Fine" size="0">
<option value="0" selected>不 推 荐</option>
<option value="2">固顶精品</option>
<option value="1">精品推荐</option>
</select> <font color="#FF0000">*</font> <font color="#0000FF">设置为精品推荐则会在首页最顶部显示精品字样</font></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">固顶推荐：</TD>
<td class="TableRow1">
<select name="isBest" size="0">
<option value=0 selected>不 固 顶</option>
<option value=1>固顶推荐</option>
</select> <font color="#FF0000">*</font> <font color="#000000">设置为固顶推荐则会在首页套黄处出现</font></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">通宵推荐：</TD>
<td class="TableRow1">
<select name="hot" size="0">
<option value=0 selected>不 通 宵</option>
<option value=1>通宵推荐</option>
</select> <font color="#FF0000">*</font> <font color="#000000">设置为通宵推荐则会在首页套黄处底部出现通宵推荐</font></TD>
</TR>
<TR>
<td class="TableRow1" colspan="2" height="30" align="center"><INPUT type=submit value= 提交私服信息 name=btn></TD>
</TR>
</FORM>
</TABLE>
<%
End Sub
Sub AddGame()
set rs = server.createobject("adodb.recordset")
dim name,ip,gameid,sdate,hour,minute,addr,xingzhi,homepage,download,hot,isBest,Daytime,Fine,Service,QQ
name=tee5.CheckStr(request("name"))
ip=tee5.CheckStr(request.form("ip"))
gameid=tee5.CheckStr(trim(request.form("gameid")))
Service=tee5.CheckStr(trim(request.form("Service")))
sdate=tee5.CheckStr(request.form("sdate"))
hour=tee5.CheckStr(request.form("hour"))
minute=tee5.CheckStr(request.form("minute"))
addr=tee5.CheckStr(request.form("addr"))
hot=tee5.CheckStr(request.form("hot"))
isBest=tee5.CheckStr(request.form("isBest"))
Daytime=tee5.CheckStr(request.form("Daytime"))
Fine=tee5.CheckStr(request.form("Fine"))
xingzhi=tee5.CheckStr(request.form("xingzhi"))
QQ=tee5.CheckStr(request.form("QQ"))
homepage=tee5.CheckStr(request.form("homepage"))
download=tee5.CheckStr(request.form("download"))
if name="" or ip="" or gameid="" or Service="" or  homepage="" or QQ="" or xingzhi="" or addr="" or SDATE="" or hour="" or minute=""  then
response.write "<script>alert('带*的选项必须填写或选择，请返回检查后再提交');history.back()</script>"
response.end
end if
	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("download")=download
	rs("ulock")=1
	rs("isBest")=1
	rs("hot")=1
	rs("Fine")=1
        rs("hot")=hot
        rs("isBest")=isBest
        rs("Fine")=Fine
        rs("Daytime")=Daytime
        if trim(request.form("isBest"))="1" then
	rs("BestTime")=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
        if trim(request.form("fine"))="2" then
	rs("finetime")=Now()
	end if
	rs.update
	Rs.Close:Set Rs = Nothing
	Succeed("<li>恭喜您！服务器"&name&"提交成功。</li>")
end sub
Admin_footer
CloseConn
%>

						