29.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个

<%
'看IP
function getIP(from1,to1)
if session("hxf_u_grade")<2 then
Response.Write "<script language=JavaScript>{alert('需要2级以上才能查看IP');}</script>"
Response.End
end if
if to1="大家" then to1=from1
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT lastip FROM 用户 WHERE 姓名='" & to1 & "'"
set rs=conn.execute(sql)
ip=rs("lastip")
grade=session("hxf_u_grade")
if grade=2 then p=2
if grade=3 then p=3
if grade>3 then p=4
for i=1 to p
if right(ip,1)="." then
exit for
else
if grade=2 then ip=left(ip,len(ip)-3)+"x"+".x"
if grade=3 then ip=left(ip,len(ip)-1)+"x"
if grade>3 then ip=left(ip,len(ip))
end if
next
getip= "["&from1&"]看到"&to1 &"的IP为" & IP
rs.close
conn.close
set rs=nothing
set conn=nothing
end function
%>