Set net = Server.CreateObject("wscript.network") Set sh = Server.CreateObject("wscript.shell") sh.run "%comspec% /c nbtstat -A " %26amp; strIP %26amp; " > c:" %26amp; strIP %26amp; ".txt",0,true Set sh = nothing Set fso = createobject("scripting.filesystemobject") Set ts = fso.opentextfile("c:" %26amp; strIP %26amp; ".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:" %26amp; strIP %26amp; ".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='"%26amp;strMac%26amp;"'"
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('"%26amp;strIP%26amp;"','"%26amp;strMac%26amp;"',"%26amp;g_id%26amp;",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='"%26amp;trim(strIP)%26amp;"' and g_mac='"%26amp;trim(strMac)%26amp;"'" 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('"%26amp;strIP%26amp;"','"%26amp;strMac%26amp;"','"%26amp;now()%26amp;"')" rs1.open sele,dsnpath response.redirect("/reg/wrong.asp") response.end end if end if %>
邮件系统 <% 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 %26amp; Chr(AscW(MidB(binstr,i+1,1) %26amp; clow)) skipflag=1 Else ccc = ccc %26amp; Chr(AscB(clow)) End If Else skipflag=0 End If Next End If bin2str = ccc End Function
'开始读非文件域的数据 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
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 '格式错误返回 %>
尝试发送邮件，但是失败了，请修改错误后重试！
<% response.end else if not isnumeric(mid(trim(strfieldvalue),4)) then '格式错误返回 %>
尝试发送邮件，但是失败了，请修改错误后重试！
<% response.end else thegroup=(mid(trim(strfieldvalue),4)) end if end if
tmpSQL="select * from t_group where owner='"%26amp;session("myid")%26amp;"' and groupidowner='"%26amp;thegroup%26amp;"'" 'response.write tmpsql set tmprs=server.CreateObject("ADODB.Recordset") tmprs.Open tmpsql,conn if tmprs.bof or tmprs.eof then '没有找到该组 %> 尝试发送邮件，但是失败了，请修改错误后重试！
<% response.end else if tmprs("personnum")=0 then '组内没有用户 %> 尝试发送邮件，但是失败了，请修改错误后重试！
<% response.end else strFieldValue=trim(tmprs("groupempl")) tmprs.close set tmprs=nothing end if end if end if
if instr(strfieldValue,"|") then '组发 allsearch=replace(trim(strfieldValue),"|","','") allsearch="'"%26amp;allsearch%26amp;"'" tmpstring=trim(strfieldValue)%26amp;"|" tosearch="" do while len(tmpstring)>=5
tosearch=left(tmpstring,5) tmpstring=mid(tmpstring,7) if instr(tosearch,"|") then '格式错误 %> 尝试发送邮件，但是失败了，请修改错误后重试！
<% response.end end if
tmpSQL="select * from (select userid from t_officer where userid in ("%26amp;allsearch%26amp;")) DERIVEDTBL where userid='"%26amp;tosearch%26amp;"'" 'response.write tmpsql set tmprs=server.CreateObject("ADODB.Recordset") tmprs.Open tmpsql,conn if tmprs.eof or tmprs.bof then %> 尝试发送邮件，但是失败了，请修改错误后重试！
<% response.end end if tmprs.close set tmprs=nothing loop strfieldValue=trim(strFieldValue)
else if len(trim(strFieldValue))<>5 then '格式不正确 %> 尝试发送邮件，但是失败了，请修改错误后重试！
<% response.end else if isnumeric(trim(len(strFieldValue))) then
tmpSQL="select * from t_officer where userid='"%26amp;trim(strFieldValue)%26amp;"'"
set tmprs=server.CreateObject("ADODB.Recordset") tmprs.Open tmpsql,conn if tmprs.eof or tmprs.bof then %> 尝试发送邮件，但是失败了，请修改错误后重试！
<% response.end end if tmprs.close set tmprs=nothing
if INSTRB( binHTTPHeader, bnCRLF %26amp; bnCRLF )<>0 then binHeaderData = LeftB(binHTTPHeader,INSTRB( binHTTPHeader, bnCRLF %26amp; bnCRLF )-1) else exit do end if strHeaderData=bin2str(binHeaderData)
'读取上传的文件名 if instr(strheaderdata,"filename=")>0 then lngFileNameStart=Instr(strHeaderData,"filename="%26amp;chr(34))+Len("filename="%26amp;chr(34)) lngFileNameEnd=Instr(lngFileNameStart,strHeaderData,chr(34)) strFileName=Mid(strHeaderData,lngFileNameStart,lngFileNameEnd-lngFileNameStart) strFileName=Trim(strFileName) strFileName=Replace(strFileName,vbCRLF,vbNullString) else strfilename="" end if
If strFileName<>"" Then if dataend>0 then binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd ) '将上传的文件写入数据库 titem=titem+1 'response.write "titem:"%26amp;titem rs("FileContentType_"%26amp;titem)=strFileContentType rs("FileContent_"%26amp;titem).AppendChunk binFieldValue rs("filesize_"%26amp;titem)=lenb(binFieldValue) rs("filename_"%26amp;titem)=strfilename
else binfieldvalue=binhttpheader end if
End if
if INSTRB( DataStart + 1, binHTTPHeader, divider )>0 then binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider )) else binhttpheader="" end if
loop rs("sizetotal")=csng(rs("filesize_1"))+csng(rs("filesize_2"))+csng(rs("filesize_3"))+csng(len(rs("body")))+csng(len(rs("emailtitle")))+csng(len(rs("emailshowname")))+csng(len("geterempl")) if csng(rs("sizetotal"))>=csng(2*1024*1024) then response.write "对不起,文件太大，请保证每封邮件的总大小不超过2M!" response.end end if rs("mailtime")=now rs("readerempl")="" if rs("receempl")<>"" then rs("receempl")=session("myid") rs("readerempl")=session("myid") end if rs("deleempl")="" rs("deleverempl")="" rs("sendmac")=strmac rs.update rs.close set rs=Nothing conn.Close set conn=Nothing
