?? main.asp
字號:
<%Response.Expires=0%>
<!--#include file="error.asp"-->
<%
response.expiresabsolute=dateadd("s",1,now())
username=trim(request("name"))
if username="" then
session.abandon
call disp_error2("對不起，數(shù)據(jù)傳送出錯，快狗不能打開！")
Response.End
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%'on error resume next
set rs=CreateObject("adodb.recordset")
sql="select * from userinfo where yhm='"&username&"'"
rs.Open sql,conn,3,2
if rs.EOF or rs.BOF then
rs.Close
conn.close
Response.Write("<script language='javascript'>")
Response.Write("alert('對不起，您的網(wǎng)站還沒有注冊，請單擊確定按鈕注冊');")
Response.Write("window.open('/qq/qqprg/register.htm','','');")
Response.Write("window.close();")
Response.Write("</script>")
Response.End
end if
url=lcase(trim(rs("url1")))'取得注冊網(wǎng)址
if instr(url,"http://")<=0 and instr(url,"HTTP://")<=0 then
url="http://"&url
end if
mc=trim(rs("mc1"))'取得注冊網(wǎng)站名稱
lx=rs("lx1")
jj=rs("jj")
id=rs("id")'取得注冊網(wǎng)址的唯一id號
if mc="" then
mc="空名稱"
end if
sums=cstr(clng(rs("looksums"))+1)
rs("looksums")=clng(rs("looksums"))+1
rs.update
rs.Close
set rs=nothing
conn.close
set conn=nothing
longmc=mc&"：快狗("&sums&")"
%>
<html>
<head>
<title><%=longmc%></title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="web,26 Feb 1960 08:21:57 GMT">
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
<!--
var timerID;
var y;//頁面位置
var randtime;
var ok=null;
var listtimeid=null;
var winhandle=null;
randtime=0;
y=0;
function sx()
{ if (refflag.value=="1" && dispinfoflag.value=="0")
{
if (pageflag.value=="1")
{
listflag.value="0";
parent("dispuserwin").location.href="disp_online_user.asp?sitenumber="+sitenumber.value;
}
else if (pageflag.value=="0")
{
listflag.value="0";
parent("dispuserwin").location.href="disp_online_manager.asp?sitenumber="+sitenumber.value;
}
else
{
listflag.value="0";
parent("hiddenwin").location.href="disp_online_user.asp?sitenumber="+sitenumber.value;
}
listtime();
}
ok=setTimeout("sx()",15000+randtime*1000);
randtime=parseInt(Math.random() * 10);
}
function window_onload()
{
sx();
}
function listtime()
{
if (listflag.value=="1")
{
if (pageflag.value=="0" && dispinfoflag.value=="0")
listonlinemanager();
else if (pageflag.value=="1" && dispinfoflag.value=="0")
listonlineuser();
if (dispinfoflag.value=="0")
disp_get_info();
clearTimeout(listtimeid);
}
else
listtimeid=setTimeout("listtime()",1);
}
function listonlinehead(title)
{
if (dispinfoflag.value=="0")
disp_get_info();
window("dispuserwin").document.write("<html>");
window("dispuserwin").document.write("<head>");
window("dispuserwin").document.write("<title>"+title+"</title>");
window("dispuserwin").document.write("<meta http-equiv=\"pragma\" content=\"no-cache\">");
window("dispuserwin").document.write("<meta http-equiv=\"expires\" content=\"web,26 Feb 1960 08:21:57 GMT\">");
window("dispuserwin").document.write("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=gb2312\">");
window("dispuserwin").document.write("<style type=\"text/css\">");
window("dispuserwin").document.write("<!--");
window("dispuserwin").document.write("body { font-family: \"宋體\"; font-size: 9pt;}");
window("dispuserwin").document.write("td {font-family:\"宋體\";font-size:9pt;}");
window("dispuserwin").document.write("-->");
window("dispuserwin").document.write("</style>");
window("dispuserwin").document.write("</head>");
window("dispuserwin").document.write("<body bgcolor=\"#8482c6\" text=\"#000000\" leftmargin=\"0\" topmargin=\"2\" oncontextmenu=event.returnValue=false>");
}
function listonlineuser()
{
window("dispuserwin").document.open();
listonlinehead("本站在線用戶");
var userinfostr,userinfodim,i,dimsums,infstr,onlineflag,onlinedate,onlineflag,okcode;
onlineflag=0;
userinfostr=onlineuser.value;
if (userinfostr.length==0)
{
refflag.value=0;
}
else
{
window("dispuserwin").document.write("<table border='0' bgcolor='#8482c6' width='100%'>");
userinfodim=userinfostr.split("|");
for (i in userinfodim)
{
if(userinfodim[i]!="")
{
infstr=userinfodim[i].split("$");
window("dispuserwin").document.write("<tr>");
if (infstr[0]==usersessionid.value && infstr[2]=="0")
{
window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\"于"+infstr[3]+"上線\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16> <b>"+infstr[1]+"</b></td>");
onlineflag=1;
}
else if (infstr[0]==usersessionid.value && infstr[2]=="2")
{
window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\"于"+infstr[3]+"上線(注冊用戶)\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16> <font color=#e8e8e8><b>"+infstr[1]+"</b></font></td>");
onlineflag=1;
}
else if (infstr[2]=="2")
{
window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\"于"+infstr[3]+"上線(注冊用戶)\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16> <font color=#e8e8e8>"+infstr[1]+"</b></td>");
}
else if (infstr[2]=="0")
window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\"于"+infstr[3]+"上線\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16> "+infstr[1]+"</td>");
else
{
window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\"于"+infstr[3]+"上線(站長)\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16> <font color=#ffff00>"+infstr[1]+"</font></td>");
if (infstr[0]==usersessionid.value)
onlineflag=1;
}
window("dispuserwin").document.write("</tr>");
}
}
window("dispuserwin").document.write("</table>");
refflag.value=onlineflag;
}
window("dispuserwin").document.write("</body></html>");
window("dispuserwin").document.close();
reset_win_site();
}
function listonlinemanager()
{
window("dispuserwin").document.open();
listonlinehead("其他網(wǎng)站站長");
var userinfostr,userinfodim,i,dimsums,infstr,onlineflag,onlinedate,onlineflag,okcode;
onlineflag=0;
userinfostr=onlineuser.value;
if (userinfostr.length>0)
{
window("dispuserwin").document.write("<table border='0' bgcolor='#8482c6' width='100%'>");
userinfodim=userinfostr.split("|");
for (i in userinfodim)
{
if(userinfodim[i]!="")
{
infstr=userinfodim[i].split("$");
window("dispuserwin").document.write("<tr>");
if (infstr[0]==usersessionid.value)
{
window("dispuserwin").document.write("<td width=16 height=20 ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"window.open('"+infstr[4]+"','','toolbar=yes,scrollbars=yes,status=yes,resizable=1,menubar=yes,location=yes,width=600,height=400',name='main8315')\" title=\"到我的網(wǎng)站\"><img src='../qqpic/face/face"+infstr[7]+".gif' border=0 height=16 width=16></td>")
window("dispuserwin").document.write("<td valign=\"bottom\" height='20' ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[2]+"','"+infstr[7]+"')\" title=\""+infstr[3]+"網(wǎng)站站長："+infstr[4]+"，于"+infstr[5]+"上線\"><b>"+infstr[2]+"</b></td>");
}
else
{
window("dispuserwin").document.write("<td width=16 height=20 ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"window.open('"+infstr[4]+"','','toolbar=yes,scrollbars=yes,status=yes,resizable=1,menubar=yes,location=yes,width=600,height=400',name='main8315')\" title=\"到我的網(wǎng)站\"><img src='../qqpic/face/face"+infstr[7]+".gif' border=0 height=16 width=16></td>")
window("dispuserwin").document.write("<td valign=\"bottom\" height='20' ONMOUSEOVER=\"this.bgColor='#716fbd';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#8482c6';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[2]+"','"+infstr[7]+"')\" title=\""+infstr[3]+"網(wǎng)站站長："+infstr[4]+"，于"+infstr[5]+"上線\">"+infstr[2]+"</td>");
}
window("dispuserwin").document.write("</tr>");
}
}
window("dispuserwin").document.write("</table>");
}
window("dispuserwin").document.write("</body></html>");
window("dispuserwin").document.close();
reset_win_site();
}
function reset_win_site()
{
screeny=window("dispuserwin").document.body.scrollHeight;
y=removewin.value;
if (screeny<y)
{
y=0;
removewin.value=y;
}
window("dispuserwin").scroll(1,y);
}
//收信息
function disp_get_info()
{
var i,getinfostr,getinfodim,infstr;
getinfostr=getinfo.value;
if (getinfostr.length>0)
{
getinfodim=getinfostr.split("|");
for (i in getinfodim)
{
if (getinfodim[i]!="")
{
infstr=getinfodim[i].split("$");
history.value=getinfodim[i]+"|"+history.value;
urlstr="get_info_win.asp?id="+infstr[1]+"&yhm="+infstr[4]+"&sitemc="+infstr[2]+"&url="+infstr[3]+"&infostr="+infstr[5];
infowin=window.open(urlstr,'','height=245,width=355,toolbar=no,scrollbars=no,resizable=0,menubar=no');
}
}
}
getinfo.value="";
}
//關(guān)閉窗口
function closewindow(num)
{
if(1==parseInt(num)){
if (winhandle!=null){
if (!winhandle.closed)
winhandle.close();
}
//window.moveTo(2000,2000);
window.open('lostuser.asp','lostwin','location=no,height=10, width=10, top=2000, left=2000,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no');
}
else{
if ((event.clientX>120) && (event.clientY<0||event.altKey))
{
if (winhandle!=null){
if (!winhandle.closed)
winhandle.close();
}
window.moveTo(2000,2000);
window.open('lostuser.asp','lostwin','location=no,height=10, width=10, top=2000, left=2000,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no');
}
}
}
//打開用戶注冊頁面
function register_user()
{
if (userregisterflag.value==0)
{
window("dispuserwin").location.href="register_user.asp";
refflag.value="0";
pageflag.value="2";
}
}
//向下移動頁面
function move_down()
{
if (y+2<window("dispuserwin").document.body.scrollHeight)
{
y+=2;
removewin.value=y;
window("dispuserwin").scroll(1,y);
timerID=setTimeout("move_down()",0);
}
}
//向上移動頁面
function move_up()
{
if(y-2>0)
{
y-=2;
removewin.value=y;
window("dispuserwin").scroll(1,y);
timerID=setTimeout("move_up()",0);
}
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -