<% If Request.Form.Count > 0 Then Function check(str, msg, num) If str = "" Then Call MyMsgBox(msg & "不可以为空!",1,2,"#") End If If GetLength(str) > num Then Call MyMsgBox(msg & "限" & num & "个字符(" & num/2 & "个汉字)以内",1,2,"#") End If If fStrFun(str) = True Then Call MyMsgBox(msg & "中不允许有１２３４５６７８９０这样的非法字符!请使用半角字符!",1,2,"#") End If End Function Function checkNum(str, msg, num) If IsNumeric(str) = false Then Call MyMsgBox(msg & "只能为数字!",1,2,"#") End If End Function tmpLevel = conn.execute("select top 1 [ID] from [Level] order by Lv_Order desc")(0) tmpName = Trim(Request.Form("Name")) 'tmpStartTime= Trim(Request.Form("StartTime")) tmpIntro = Trim(Request.Form("Intro")) 'tmpIP = Trim(Request.Form("IP")) tmpIP = "http://" & Replace(Trim(Request.Form("IP")),"http://","") tmpPort = Trim(Request.Form("Port")) tmpZone = Trim(Request.Form("Zone")) tmpStartTime1 = Trim(Request.Form("StartTime1")) tmpStartTime2 = Trim(Request.Form("StartTime2")) tmpStartTime3 = Trim(Request.Form("StartTime3")) tmpQQ = Trim(Request.Form("QQ")) tmpSite = "http://" & Replace(Trim(Request.Form("Site")),"http://","") tmpLine = Trim(Request.Form("Line")) tmpVer = "" 'tmpOverTime = Trim(Request.Form("OverTime")) tmpOverTime = 0 tmpStopTime = "1987-7-5 13:00:00" tmpBak = "" CPassword = getCPass Do While Not isNewPass(CPassword) CPassword = getCPass Loop tmpPassword = CPassword Call check(tmpName, "私服名称", 12) Call check(tmpIP, "登陆器", 100) 'Call check(tmpPort, "端口", 4) 'Call check(tmpZone, "ZONE", 4) Call check(tmpStartTime1, "(开机时间：月)", 2) Call check(tmpStartTime2, "(开机时间：日)", 2) Call check(tmpStartTime3, "(开机时间：点)", 10) Call checkNum(tmpStartTime1, "(开机时间：月)", 2) Call checkNum(tmpStartTime2, "(开机时间：日)", 2) Call checkNum(tmpStartTime3, "(开机时间：点)", 10) Call check(tmpIntro, "本版介绍", 40) Call check(tmpSite, "游戏主页", 100) Call check(tmpLine, "线路", 10) Call check(tmpQQ, "客服QQ", 13) tmpStartTime = tmpStartTime1 & "月" & tmpStartTime2 & "日" & tmpStartTime3 & "点" Set rsOrder = Server.CreateObject("ADODB.Recordset") rsOrder.Open "Select Record_Order from [Record] where Record_Level = '" & tmpLevel & "' order by Record_Order desc",conn,1,1 If rsOrder.EOF Then intOrder = 1 Else intOrder = CInt(rsOrder(0)) + 1 End If Set rsOrder = Nothing Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * from [Record]",conn,1,3 rs.AddNew rs("Record_Level") = tmpLevel rs("Record_Name") = tmpName rs("Record_StartTime") = tmpStartTime rs("Record_Intro") = tmpIntro rs("Record_IP") = tmpIP 'rs("Record_Port") = tmpPort 'rs("Record_Zone") = tmpZone rs("Record_QQ") = tmpQQ rs("Record_Site") = tmpSite rs("Record_Line") = tmpLine rs("Record_Ver") = tmpVer rs("Record_OverTime") = tmpOverTime rs("Record_DateTime") = Now rs("Record_StopTime") = tmpStopTime rs("Record_Order") = intOrder rs("Record_Bak") = tmpBak rs("Record_Password") = tmpPassword rs.Update rs.Close Set rs = Nothing Call MyMsgBox("添加成功",1,3,"../default.htm") End If %> 奇迹私服,新开奇迹私服,最新奇迹私服,变态奇迹私服,奇迹搜吧
★★
网站首页 查看本站PV 免责申明 　 自助修改广告内容 广告合作 发布私服
<% '函数作用:返回一个5位随机数 Function getCPass() For i = 1 To 5 Randomize tmpChar = CInt(Rnd()*9) tmpCPass = tmpCPass & tmpChar Next getCPass = tmpCPass End Function '函数作用:验证密码是否在数据库中已存在,存在返回False,不存在返回True Function isNewPass(CPass) Set rsPass = conn.execute("select * from [Record] where Record_Password = '" & CPass & "'") If rsPass.eof Then isNewPass = True Else isNewPass = False End If End Function %>
私服添加
私服名称  *限12个字符以内
登陆器下载地址  *限12个字符以内
开机时间 月 日 点
版本介绍  *限40个字符以内
游戏主页  *限30个字符以内
线　　路 电信 / 网通  *限10个字符以内
客服QQ  *限13个字符以内
 
Copyright © 2007 - 2010 http://www.musoba.com All rights reserved.
本站中文版权所有 奇迹搜吧私服网 保留所有权利 未经许可请勿任意转载或复制使用
请使用1024*768分辨率浏览本站以达到最佳视觉效果

加入收藏发布家族发布私服