default.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<IMG src="" width=0 height=5><BR>

<TABLE width="<% Response.Write strTableWidth %>" bgcolor="<% Response.Write strPopUpBorderColor %>" align=center border=0 nowrap valign="bottom" cellspacing=1 cellpadding=6>
<!--#include file="privatemess.asp"-->
<% if strShowStatistics = "1" then %>
<!--#include file="statistics.asp"-->
<% End If %>
<!--#include file="online2.asp"-->
</TABLE>

<IMG src="" width=0 height=5><BR>
<TABLE cellspacing=0 cellpadding=0 width="<% Response.Write strTableWidth %>" bgcolor="<% Response.Write strPopUpBorderColor %>" align=center border=0 nowrap valign="bottom">
<TR><TD>
<TABLE cellspacing=1 cellpadding=3 width=100% border=0>
<TR><TD width=80% bgcolor="<% Response.Write strHeadCellColor %>"><img src="" height=12 width=3><img src="<% Response.Write strImageURL %>icon_2.gif" width="10" height="10" border="0"> <A href="http://www.chinaxp.net" target=_blank><b>
  SHine STudio
  论坛图例</b></A></FONT></TD>
    <TD valign=right noWrap bgcolor="<% Response.Write strHeadCellColor %>" width="20%" align="center">所有时间均为 - 北京时间</TD>
</TR>
<TR><TD bgcolor="<% Response.Write strForumCellColor %>" colspan=3>
<TABLE cellspacing=4 cellpadding=0 width=92% border=0 align=center>
      <TR>
	<TD valign=center width=25% colspan=4>论坛图例仅当你登陆并且上次访问后才显示</TD>
      </TR>
      <TR>
	<TD valign=center width="25%"><img alt="新文章" src="<% Response.Write strImageURL %>icon_folder_new_<% =strFolderImg %>.gif"> 上次来之后有新的贴子</TD>
	<TD valign=center width="25%"><img alt="锁定后有新贴" src="<% Response.Write strImageURL %>icon_folder_locked_new_<% =strFolderImg %>.gif"> 锁定后有新贴发表</TD>
	<TD valign=center width="28%"></TD>
	<TD align=right valign=top rowspan=4 width="22%">
    <a href="http://www.cnbest.net">
    <img border="0" src="http://www.520boy.com/temp/photo/mylogo.gif" alt="SHine STudio 正版标识"></a></TD>
      </TR>
      <TR>
	<TD valign=center width="25%"><img alt="旧文章" src="<% Response.Write strImageURL %>icon_folder_<% =strFolderImg %>.gif"> 上次来之后没有新贴子</TD>
	<TD valign=center width="25%"><img alt="已锁定" src="<% Response.Write strImageURL %>icon_folder_locked_<% =strFolderImg %>.gif"> 锁定后有没有贴发表</TD>
	<TD valign=center width="28%"><img alt="联盟论坛" src="<% Response.Write strImageURL %>icon_url.gif"> 联盟论坛区</TD>
     </TR>
</TABLE>
</TD></TR></TABLE></TD></TR></TABLE>
<%
set rs = nothing
set rsForum = nothing
%>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
sub PostingOptions()
	if (mlev = 4) or (lcase(strNoCookies) = "1") then
		Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""post.asp?method=Category""><img border=0 src=""" & strImageURL & "icon_folder_new_topic.gif"" alt=""建立分类"" border=0></a></font>" & vbcrlf
		Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""post.asp?method=SortCategory""><img border=0 src=""" & strImageURL & "icon_folder_sort.gif"" alt=""分类排序"" border=0></a></font>" & vbcrlf
	else
		Response.Write "&nbsp;" & vbcrlf
	end if
end sub

sub CategoryAdminOptions()
	if (mlev = 4) or (lcase(strNoCookies) = "1") then
		if (rs("CAT_STATUS") <> 0) then
			Response.Write "          ［<a href=""JavaScript:openWindow('pop_lock.asp?mode=Category&CAT_ID=" & rs("CAT_ID") & "')"">锁定分类</a>" & vbcrlf
		else
			Response.Write "          ［<a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & rs("CAT_ID") & "')"">解锁分类</a>" & vbcrlf
		end if
		if (rs("CAT_STATUS") <> 0) or (mlev = 4) then
			Response.Write "          | <a href=""post.asp?method=EditCategory&CAT_ID=" & rs("CAT_ID") & """>修改分类</a>" & vbcrlf
		end if
		Response.Write "          | <a href=""JavaScript:openWindow('pop_delete.asp?mode=Category&CAT_ID=" & rs("CAT_ID") & "')"">删除分类</a>" & vbcrlf
		if (rs("CAT_STATUS") <> 0) or (mlev = 4) then
			Response.Write "          | <a href=""post.asp?method=Forum&CAT_ID=" & rs("CAT_ID") & "&type=0"">建立论坛</a>" & vbcrlf
		end if
		if (rs("CAT_STATUS") <> 0) or (mlev = 4) then
			Response.Write "          | <a href=""post.asp?method=URL&CAT_ID=" & rs("CAT_ID") & "&type=1"">建立连接</a>］" & vbcrlf
		end if
	else
		Response.Write "          &nbsp;" & vbcrlf
	end if
end sub

sub ForumAdminOptions()
	if (mLev = 4) or (chkForumModerator(rsForum("FORUM_ID"), strDBNTUserName) = "1") or (lcase(strNoCookies) = "1") then
		
		if rsForum("F_TYPE") = 0 then
			if rs("CAT_STATUS") = 0 then
				if (mlev = 4) then
%>
          <a href="JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=<% Response.Write rs("CAT_ID") %>')"><img src="<% Response.Write strImageURL %>icon_unlock.gif" alt="解开分类锁定" border="0" hspace="0"></a>
<%
				end if
			else
				if rsForum("F_STATUS") = 1 then
%>
          <a href="JavaScript:openWindow('pop_lock.asp?mode=Forum&FORUM_ID=<% Response.Write rsForum("FORUM_ID") %>&CAT_ID=<% Response.Write rsForum("CAT_ID") %>')"><img src="<% Response.Write strImageURL %>icon_lock.gif" alt="锁定论坛" border="0" hspace="0"></a>
<%
				else
%>
          <a href="JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=<% Response.Write rsForum("FORUM_ID") %>&CAT_ID=<% Response.Write rsForum("CAT_ID") %>')"><img src="<% Response.Write strImageURL %>icon_unlock.gif" alt="解开论坛锁定" border="0" hspace="0"></a>
<%
				end if
			end if
		end if
		if rsForum("F_TYPE") = 0 then
			if (rs("CAT_STATUS") <> 0 and rsForum("F_STATUS") <> 0) or (mlev = 4 or mlev = 3) then
%>
           <a href="post.asp?method=EditForum&FORUM_ID=<% Response.Write rsForum("FORUM_ID") %>&CAT_ID=<% Response.Write rsForum("CAT_ID") %>&type=0"><img src="<% Response.Write strImageURL %>icon_pencil.gif" alt="编辑论坛属性" border="0" hspace="0"></a>
<%
			end if
		else
			if rsForum("F_TYPE") = 1 then
%>
           <a href="post.asp?method=EditURL&FORUM_ID=<% Response.Write rsForum("FORUM_ID") %>&CAT_ID=<% Response.Write rsForum("CAT_ID") %>&type=1"><img src="<% Response.Write strImageURL %>icon_pencil.gif" alt="编辑连接属性" border="0" hspace="0"></a>
<%
			end if
		end if
		if (mlev = 4) or (lcase(strNoCookies) = "1") then
%>
           <a href="JavaScript:openWindow('pop_delete.asp?mode=Forum&FORUM_ID=<% Response.Write rsForum("FORUM_ID") %>&CAT_ID=<% Response.Write rsForum("CAT_ID") %>')"><img src="<% Response.Write strImageURL %>icon_trashcan.gif" alt="删除论坛" border="0" hspace="0"></a>
<%
		end if
		if rsForum("F_TYPE") = 0 then
			if (mlev = 4) or (lcase(strNoCookies) = "1") then
%>
           <a href="post.asp?method=Topic&FORUM_ID=<% Response.Write rsForum("FORUM_ID") %>&CAT_ID=<% Response.Write rsForum("CAT_ID") %>"><img src="<% Response.Write strImageURL %>icon_folder_new_topic.gif" alt="发表新主题" border=0></a>
<%
			end if
		end if
	else
		Response.Write "&nbsp;"
	end if
end sub
%>
<% if strDBNTUserName = "" then %>
<!--别致的固定页面右下角的登陆窗口。-->
<!--开始-->
<script language=JavaScript>
	self.onError=null;
	currentX = currentY = 0;
	whichIt = null;
	lastScrollX = 0; lastScrollY = 0;
	NS = (document.layers) ? 1 : 0;
	IE = (document.all) ? 1: 0;
	function heartBeat() {
		if(IE) { diffY = document.body.scrollTop; diffX = document.body.scrollLeft; }
	    if(NS) { diffY = self.pageYOffset; diffX = self.pageXOffset; }
		if(diffY != lastScrollY) {
	                percent = .1 * (diffY - lastScrollY);
	                if(percent > 0) percent = Math.ceil(percent);
	                else percent = Math.floor(percent);
					if(IE) document.all.floater.style.pixelTop += percent;
					if(NS) document.floater.top += percent;
	                lastScrollY = lastScrollY + percent;
	    }
		if(diffX != lastScrollX) {
			percent = .1 * (diffX - lastScrollX);
			if(percent > 0) percent = Math.ceil(percent);
			else percent = Math.floor(percent);
			if(IE) document.all.floater.style.pixelLeft += percent;
			if(NS) document.floater.left += percent;
			lastScrollX = lastScrollX + percent;
		}	
	}
	function checkFocus(x,y) {
	        stalkerx = document.floater.pageX;
	        stalkery = document.floater.pageY;
	        stalkerwidth = document.floater.clip.width;
	        stalkerheight = document.floater.clip.height;
	        if( (x > stalkerx && x < (stalkerx+stalkerwidth)) && (y > stalkery && y < (stalkery+stalkerheight))) return true;
	        else return false;
	}
	function grabIt(e) {
		if(IE) {
			whichIt = event.srcElement;
			while (whichIt.id.indexOf("floater") == -1) {
				whichIt = whichIt.parentElement;
				if (whichIt == null) { return true; }
		    }
			whichIt.style.pixelLeft = whichIt.offsetLeft;
		    whichIt.style.pixelTop = whichIt.offsetTop;
			currentX = (event.clientX + document.body.scrollLeft);
	   		currentY = (event.clientY + document.body.scrollTop); 	
		} else {
	        window.captureEvents(Event.MOUSEMOVE);
	        if(checkFocus (e.pageX,e.pageY)) {
	                whichIt = document.floater;
	                StalkerTouchedX = e.pageX-document.floater.pageX;
	                StalkerTouchedY = e.pageY-document.floater.pageY;
	        }
		}
	    return true;
	}
	function moveIt(e) {
		if (whichIt == null) { return false; }
		if(IE) {
		    newX = (event.clientX + document.body.scrollLeft);
		    newY = (event.clientY + document.body.scrollTop);
		    distanceX = (newX - currentX);    distanceY = (newY - currentY);
		    currentX = newX;    currentY = newY;
		    whichIt.style.pixelLeft += distanceX;
		    whichIt.style.pixelTop += distanceY;
			if(whichIt.style.pixelTop < document.body.scrollTop) whichIt.style.pixelTop = document.body.scrollTop;
			if(whichIt.style.pixelLeft < document.body.scrollLeft) whichIt.style.pixelLeft = document.body.scrollLeft;
			if(whichIt.style.pixelLeft > document.body.offsetWidth - document.body.scrollLeft - whichIt.style.pixelWidth - 20) whichIt.style.pixelLeft = document.body.offsetWidth - whichIt.style.pixelWidth - 20;
			if(whichIt.style.pixelTop > document.body.offsetHeight + document.body.scrollTop - whichIt.style.pixelHeight - 5) whichIt.style.pixelTop = document.body.offsetHeight + document.body.scrollTop - whichIt.style.pixelHeight - 5;
			event.returnValue = false;
		} else {
			whichIt.moveTo(e.pageX-StalkerTouchedX,e.pageY-StalkerTouchedY);
	        if(whichIt.left < 0+self.pageXOffset) whichIt.left = 0+self.pageXOffset;
	        if(whichIt.top < 0+self.pageYOffset) whichIt.top = 0+self.pageYOffset;
	        if( (whichIt.left + whichIt.clip.width) >= (window.innerWidth+self.pageXOffset-17)) whichIt.left = ((window.innerWidth+self.pageXOffset)-whichIt.clip.width)-17;
	        if( (whichIt.top + whichIt.clip.height) >= (window.innerHeight+self.pageYOffset-17)) whichIt.top = ((window.innerHeight+self.pageYOffset)-whichIt.clip.height)-17;
	        return false;
		}
	    return false;
	}
	function closeLoginForm() {
		floater.style.visibility = "hidden";
	}
	function dropIt() {
		whichIt = null;
	    if(NS) window.releaseEvents (Event.MOUSEMOVE);
	    return true;
	}
	if(NS) {
		window.captureEvents(Event.MOUSEUP|Event.MOUSEDOWN);
		window.onmousedown = grabIt;
	 	window.onmousemove = moveIt;
		window.onmouseup = dropIt;
	}
	if(IE) {
		document.onmousedown = grabIt;
	 	document.onmousemove = moveIt;
		document.onmouseup = dropIt;
	}
	if(NS || IE) action = window.setInterval("heartBeat()",1);
	</script>
<!--结束-->
<% end if %>