fun.asp

这是一个简单的网站示例,你可以通过管理系统修改版权信息和网站标志,从而成为您自己的网站

<%
function IP2N(NEWIP)
     IF NEWIP="" THEN
         IP2N=0
      ELSE
     
     STR=INSTR(NEWIP,".")
     MYIP1=NEWIP&"."
     NEWIP=""
     DO WHILE STR<>0
         IP1=LEFT(MYIP1,STR)
         CD=LEN(IP1)
         SELECT CASE CD
               CASE 1
                  IP1="000"
               CASE 2
                   IP1="00"&IP1
               CASE 3
                   IP1="0"&IP1
               CASE 4 
                   IP1=IP1
         END SELECT
         MYIP1=MID(MYIP1,STR+1,20)
         STR=INSTR(MYIP1,".")
         newip=newip&IP1
     LOOP
     NEWIP=REPLACE(NEWIP,".","")
     if isnumeric(newip) then
        IP2N=int(NEWIP)
     else
       ip2n=0
     end if
     
      'Response.Write newip &"?<br>"
     END IF
END FUNCTION

sub s2f(filename,data)
 formdata=data
 bncrlf=chrB(13) & chrB(10) 
   divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) 
   datastart=instrb(formdata,bncrlf & bncrlf)+4 
  dataend=instrb(datastart+1,formdata,divider)-datastart 
 set ads=server.CreateObject("Adodb.Stream")
 ads.Type=1
 ads.mode=3
 ads.Open
 set data=server.CreateObject("Adodb.Stream")
 data.Type=1
 data.mode=3
 data.Open
 data.write formdata
 data.position=datastart-1
 data.copyto ads,dataend-2
with ads
 .SaveToFile server.MapPath(filename),2
 .Cancel()
 .Close()
end with
data.cancel()
data.close()
set ads=nothing
set data=nothing
end sub
%>