www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/saveip1.asp
<!--#include file="const.asp"--> <!--#include file="checkadmin.inc"--> <% dim sip,str1,str2,str3,str4,num_1,num_2 sip=cstr(request.form("ip1")) 'dot=instr(ip,".")-1 'response.write dot str1=left(sip,cint(instr(sip,".")-1)) sip=mid(sip,cint(instr(sip,"."))+1) str2=left(sip,cint(instr(sip,"."))-1) sip=mid(sip,cint(instr(sip,"."))+1) str3=left(sip,cint(instr(sip,"."))-1) str4=mid(sip,cint(instr(sip,"."))+1) num_1=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1 mbname=cstr(request.form("mbname")) data=cstr(request.form("data")) sip=cstr(request.form("ip2")) str1=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str2=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str3=left(sip,instr(sip,".")-1) str4=mid(sip,instr(sip,".")+1) num_2=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1 'response.write num_1 &","& num_2 'response.end set rs = server.CreateObject ("adodb.recordset") sql="select * from LockIP" rs.open sql,conn,1,3 rs.addnew rs("ip1")=num_1 rs("why")=trim(request.form("why")) rs("ip2")=num_2 rs("sip1")=request.form("ip1") rs("sip2")=request.form("ip2") rs("mbname")=mbname rs("type")=1 rs("time")=now()+data rs.update rs.close set rs=nothing conn.close set conn=nothing Response.Redirect "admin_killip_mana.asp" %>