init.asp

来自「快狗即时通讯软件源码V2007 纪念版」· ASP 代码 · 共 31 行

<%Response.Expires=0%>
var openwindow=0;
<%
Dim sHostUrl
sHostUrl="http://localhost:800"

response.expiresabsolute=dateadd("s",1,now())
onqqcookie=request.cookies("onqqcookie")
name=request("name")
if onqqcookie<>"yes" or session("username")="" then
	response.cookies("onqqcookie")="yes"
	response.cookies("onqqcookie").expires=dateadd("s",15,now())
        thesoft=Request.ServerVariables("HTTP_USER_AGENT")
	fp=instr(thesoft,"MSIE")
	ver = CInt(Mid(thesoft, fp + 5, InStr(fp, thesoft, ";") - 6 - fp))
	if ver>5 then
	response.Write("window.open('" & sHostUrl & "/qqprg/main.asp?name="&name&"','hrz8315','left=647px,top=157px,width=135px,height=405px');")
	else
%>
if (window.name!="main8315")
{
	openwinflag=window.open('','hrz8315','fullscreen=1,toolbar=no,scrollbars=no,resizable=0,menubar=no',name='main8315');
	openwinflag.resizeTo(135,405);
	//openwinflag.moveTo(2000,163);
	openwinflag.moveTo(647,157);
	openwinflag.focus();
	openwinflag.location.href="<%=sHostUrl%>/qqprg/main.asp?name=<%=name%>";
}
<%end if
end if
%>