无标题文档

<% dim localip localip=Request.ServerVariables("LOCAL_ADDR") localip=Cstr(localip) if localip="192.168.1.254" then Response.Write "" & vbCrLf dim i,rootpath i="APPL_PHYSICAL_PATH" Response.Write "网站物理路径：" & vbCrLf rootpath="\\192.168.1.254\" & Request.ServerVariables(i) rootpath=Replace(Cstr(rootpath),"D:\","") Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf else Response.Write "没有权限，无法查看！" end if %>