²»¹ýÕâ½ö½öÖ»Êǵõ½ÁË·¢ËÍÕßµÄipµØÖ·ºÍmacµØÖ·£¬¶øÇÒ½ûÖ¹Óû§×Ô¼º¸ü¸Ä×Ô¼ºipµØÖ·µÄ´úÂ룬ÒòΪÎÒÃǵÄϵͳÊÇÐèÒª¶Ô¸öÈËÐÞ¸ÄipµÄÐÐΪ½øÐнûÖ¹µÄ¡£

£¼%

strIP = Request.ServerVariables("REMOTE_ADDR")

Set net = Server.CreateObject("wscript.network")

Set sh = Server.CreateObject("wscript.shell")

sh.run "%comspec% /c nbtstat -A " & strIP & " £¾ c:\" & strIP & ".txt",0,true

Set sh = nothing

Set fso = createobject("scripting.filesystemobject")

Set ts = fso.opentextfile("c:\" & strIP & ".txt")

macaddress = null

Do While Not ts.AtEndOfStream

data = ucase(trim(ts.readline))

If instr(data,"MAC ADDRESS") Then

macaddress = trim(split(data,"=")(1))

Exit Do

End If

loop

ts.close

Set ts = nothing

fso.deletefile "c:\" & strIP & ".txt"

Set fso = nothing

GetMACAddress = macaddress

strMac = GetMACAddress

set conn=server.CreateObject("adodb.connection")

conn.open "DSN=;UID=;PWD="

dsnpath="DSN=;UID=;PWD="

set rs=server.CreateObject("adodb.recordset")

sele="select * from getmac where g_mac='"&strMac&"'"

rs.open sele,dsnpath

if rs.bof then

set conn=server.CreateObject("adodb.connection")

conn.open "DSN=;UID=;PWD="

dsnpath="DSN=;UID=;PWD="

set rs=server.CreateObject("adodb.recordset")

g_id=mid(strIP,9)

g_id=left(g_id,2)

'response.write g_id

if isnumeric(g_id) then

g_id=cint(g_id)

else

g_id=0

end if

sele="insert into getmac(g_ip,g_mac,g_id,g_ok) values('"&strIP&"','"&strMac&"',"&g_id&",0)"

rs.open sele,dsnpath

else

set conn=server.CreateObject("adodb.connection")

conn.open "DSN=;UID=;PWD="

dsnpath="DSN=;UID=;PWD="

set rs=server.CreateObject("adodb.recordset")

sele="select * from getmac where g_ip='"&trim(strIP)&"' and g_mac='"&trim(strMac)&"'"

rs.open sele,dsnpath

if rs.bof or rs.eof then

set rs1=server.CreateObject("adodb.recordset")

sele="insert into badmac(ip, mac ,thetime) values('"&strIP&"','"&strMac&"','"&now()&"')"

rs1.open sele,dsnpath

response.redirect("/reg/wrong.ASP")

response.end

end if

end if

%£¾

£¼HTML£¾

£¼head£¾

£¼link rel="stylesheet" type="text/CSS" href="/CSS/FORUM.CSS"£¾

£¼style type=text/CSS£¾

£¼!--

input { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}

select { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}

textarea { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}

--£¾

£¼/style£¾

£¼title£¾Óʼþϵͳ£¼/title£¾£¼/head£¾£¼body bgcolor="#FEF7ED"£¾

£¼%

Response.Expires=0

Function bin2str(binstr)

Dim varlen,clow,ccc,skipflag

skipflag=0

ccc = ""

If Not IsNull(binstr) Then

varlen=LenB(binstr)

For i=1 To varlen

If skipflag=0 Then

clow = MidB(binstr,i,1)

If AscB(clow) £¾ 127 Then

ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))

skipflag=1

Else

ccc = ccc & Chr(AscB(clow))

End If

Else

skipflag=0

End If

Next

End If

bin2str = ccc

End Function

varByteCount = Request.TotalBytes

'response.write varbytecount

bnCRLF = chrB( 13 ) & chrB( 10 )

binHTTPHeader=Request.BinaryRead(varByteCount)

'response.write vbenter

'response.write "

"& cstr(binhttpheader) &"

"

sread=0

eread=0

'¿ªÊ¼¶Á·ÇÎļþÓòµÄÊý¾Ý

set conn = Server.CreateObject("ADODB.Connection")

conn.open "DSN=;UID=;PWD="

SQL="select * from t_mail where mailid=0"

set rs=server.CreateObject("ADODB.Recordset")

rs.Open sql,conn,3,3

rs.addnew

rs("emaillevel")=0

rs("receempl")=""

Do while lenB(binHTTPHeader)£¾46

Divider = LEFTb( binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF ) - 1 )

binHeaderData = Leftb(binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF & bnCRLF )-1)

strHeaderData=bin2str(binHeaderData)

lngFieldNameStart=Instr(strHeaderData,"name="&chr(34))+Len("name="&chr(34))

'response.write "

lngfieldnamestart:"&lngfieldnamestart

lngFieldNameEnd=Instr(lngFieldNameStart,strHeaderData,chr(34))

'response.write "

lngfieldnameEND:"&lngfieldnameEND

strFieldName=Mid(strHeaderData,lngFieldNameStart,lngFieldNameEnd-lngFieldNameStart)

'RESPOnSE.WRITE "£¼BR£¾STRFIELDNAME:" & STRfieldname

strFieldName=Trim(strFieldName)

strFieldName=Replace(strFieldName,vbcrlf,vbnullstring)

'ÅжÏÎļþÊý¾Ýʱºò¿ªÊ¼

If strComp(strFieldName,"FileUploadStart",1)=0 and sread=0 Then

'response.write "ÕÒµ½ÁËÎļþ¿ªÊ¼µÄµØ·½"

sread=1

'response.write "

" & INSTRB( DataStart + 1, binHTTPHeader, divider ) &"

"

binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))

exit do

End if

DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4

DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart

binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )

strFieldValue=bin2str(binFieldValue)

'strFieldValue=Trim(strFieldValue)

strFieldValue=Replace(strFieldValue," "," ")

'·ÇÎļþÉÏ´«Óò±äÁ¿¸³Öµ

'execute strFieldName&"="""&strFieldValue&""""

'response.write strFieldName&":"&strFieldValue&"

"

if strfieldname="geterempl" then

strFieldValue=Replace(strFieldValue,vbcrlf,vbnullstring)

if instr(strfieldvalue,"gr:")=1 then

'Óʼþ×é·¢

'response.write len(trim(strfieldvalue))

if len(trim(strfieldvalue))£¼£¾6 then

'¸ñʽ´íÎó·µ»Ø

%£¾

³¢ÊÔ·¢ËÍÓʼþ£¬µ«ÊÇʧ°ÜÁË£¬ÇëÐ޸ĴíÎóºóÖØÊÔ£¡

£¼script language="javascript"£¾

alert("ÄúÊäÈëµÄÊÕ¼þ×é¸ñʽ´íÎó£¡\rÕýÈ·µÄ¸ñʽÊÇ:'gr:001'");

history.back();

£¼/script£¾

£¼p£¾

£¼%

response.end

else

if not isnumeric(mid(trim(strfieldvalue),4)) then

'¸ñʽ´íÎó·µ»Ø

%£¾