<%
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.CodePage=936
Response.Charset="GB2312"
if Session("UserName")="" OR Session("UID")="" OR Session("Password")="" OR Session("Locked")=1 OR Session("Manager")=0 then
Response.Write("<script>alert('系统提示: 对不起,非法登录,请您重新登录系统!');this.location.href='../index.asp';</SCRIPT>")
response.end
end if

'保存Session函数开始
Function GetPopedomList(UserName)
GetPopedomList = Session("PopedomList")
End Function

Function JudgePopedomTF(UserName,PopedomName)
Dim PopList
JudgePopedomTF = False
if Session("Manager") = "0" then
JudgePopedomTF = True
else
PopList = GetPopedomList(UserName)
if (PopList <> "") and (PopedomName <> "") then
if InStr(PopList,PopedomName) <> 0 then
JudgePopedomTF = True
else
JudgePopedomTF = False
end if
else
JudgePopedomTF = False
end if
end if
End Function

Sub ReturnError()
Response.Write("<script>alert('[思康系统错误]\n\n您的权限不足!请与系统管理员联系!');window.close();</script>")
Response.End
end Sub

Sub ReturnError1()
Response.Write("<script>alert('[思康系统错误]\n\n您的权限不足!请与系统管理员联系!');location.href=""javascript:history.go(-1)"";</script>")
Response.End 
end Sub

Sub ReturnError2()
Response.Write("loading...")
Response.End 
end Sub

Sub ReturnError3()
Response.Write"对不起,没有数据!"
Response.End
end Sub

Sub ReturnError4()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,此参数不存在或者你没有权限访问！');window.close();</script>")
Response.End
end Sub

Sub ReturnError5()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,存在相同的数据！');history.go(-1);</script>")
Response.End
end Sub

Sub ReturnError6()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,此参数不存在或者你没有权限访问！');history.go(-1);</script>")
Response.End
end Sub

Sub ReturnError7()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,你还没有选择对象！');history.go(-1);</script>")
Response.End
end Sub

Sub ReturnError8()
Response.Write"对不起,没有您所需要的信息!"
end Sub

Sub ReturnError9()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,存在相同的客户编号和客户名称！');history.go(-1);</script>")
Response.End
end Sub

Sub ReturnError10()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,请不要提交非法参数！');window.close();</script>")
Response.End
end Sub

Sub ReturnError11()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,存在相同的名称！');history.go(-1);</script>")
Response.End
end Sub

Sub ReturnError12()
Response.Write"<font color=#0099CC>关联客户已被删除</font>"
end Sub

Sub ReturnError13()
Response.Write"关联客户已被删除"
end Sub

Sub ReturnError14()
Response.Write"<font color=#0099CC>联系人已被删除</font>"
end Sub

Sub ReturnError15()
Response.Write"联系人已被删除"
end Sub

Sub ReturnError16()
Response.Write"用户已被删除"
end Sub

Sub ReturnError17()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,内容没有填写完整！');history.go(-1);</script>")
Response.End
end Sub

Sub ReturnError18()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,当天你已经新建过日志了,请修改日志即可！');window.close();</script>")
Response.End
end Sub

Sub ReturnError19()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,该日志你已经点评过了,可在查看日志中修改点评！');window.close();</script>")
Response.End
end Sub

Sub ReturnError20()
Response.Write("<script LANGUAGE='javascript'>alert('对不起,该跟进你已经点评过了,可在查看跟进中修改点评！');window.close();</script>")
Response.End
end Sub

Sub ReturnError21()
Response.Write"关联订单已被删除"
end Sub

Sub ReturnError22()
Response.Write"关联合同已被删除"
end Sub

Sub Returnokback()
Response.Write("<script LANGUAGE='javascript'>alert('恭喜你,操作成功！');history.go(-1);</script>")
Response.End
end Sub

Sub Returnoktoback()
Response.Write("<script LANGUAGE='javascript'>alert('恭喜你,操作成功！');history.go(-2);</script>")
Response.End
end Sub

Sub Returnokclose()
Response.Write("<script LANGUAGE='javascript'>alert('恭喜你,操作成功！');window.close();window.opener.location.reload();</script>")
Response.End
end Sub

Sub AddedORWaive()
Response.Write("<script>if (confirm(""恭喜你操作成功,是否继续新建?"")==false) window.close(); else history.go(-1);;window.opener.location.reload();</script>")
Response.End
end Sub

'保存Session函数结束
%>