62,267
社区成员
发帖
与我相关
我的任务
分享
<%
'浮动广告开始
set rsn=server.CreateObject("adodb.recordset")
set rsu=server.CreateObject("adodb.recordset")
rsu.open "select Ulevel from users where uid="&uid&"",conn,1,1
if session("language")="English" then
if rsu("Ulevel")=0 then
rsn.open "select top 1 Etry as Title from config",conn,1,1
else
rsn.open "select EBgImg as BgImg,ETitle as Title from Floating where uid="&uid&"",conn,1,1
end if
else
if rsu("Ulevel")=0 then
rsn.open "select top 1 try as title from config",conn,1,1
else
rsn.open "select BgImg,Title from Floating where uid="&uid&"",conn,1,1
end if
end if
if not rsn.eof then %>
<div id="img" style="position:absolute; width: 98;">
<table width="98" height="190" border="0" align="center" cellpadding="0" cellspacing="0" <% if isnull(rsn("BgImg"))=true then%>background="../../../images/pp.jpg"<%else%>background="../../../user/<%=trim(session("username"))%>/upload/<%=trim(rsn("BgImg"))%>"<%end if%>>
<tr>
<td height="100" align="center"><a href="#" onClick="javascript:show('../../../ShowFloat.asp')"><img src="../../../images/AnnounceHot.gif" border="0" width="98" height="100"></a></td>
</tr>
<tr>
<td align="center" valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><table width="95%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="dfont"><br><a href="#" onClick="javascript:show('../../../ShowFloat.asp')"><%=left(trim(rsn("Title")),30)%></a></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="15" align="right"><%if rsu("Ulevel")=0 then%><%else%><a style="cursor:hand;" onClick="img.style.display='none'"><img src="../../../images/close.gif" border="0"></a><%end if%> </td>
</tr>
</table></div>
<SCRIPT LANGUAGE="JavaScript">
<!--
var xPos = 20;
var yPos = document.body.clientHeight;
var step = 1;
var delay = 30;
var height = 0;
var Hoffset = 0;
var Woffset = 0;
var yon = 0;
var xon = 0;
var pause = true;
var interval;
img.style.top = yPos;
function changePos() {
width = document.body.clientWidth;
height = document.body.clientHeight;
Hoffset = img.offsetHeight;
Woffset = img.offsetWidth;
img.style.left = xPos + document.body.scrollLeft;
img.style.top = yPos + document.body.scrollTop;
if (yon) {
yPos = yPos + step;
}
else {
yPos = yPos - step;
}
if (yPos < 0) {
yon = 1;
yPos = 0;
}
if (yPos >= (height - Hoffset)) {
yon = 0;
yPos = (height - Hoffset);
}
if (xon) {
xPos = xPos + step;
}
else {
xPos = xPos - step;
}
if (xPos < 0) {
xon = 1;
xPos = 0;
}
if (xPos >= (width - Woffset)) {
xon = 0;
xPos = (width - Woffset);
}
}
function www_helpor_net() {
img.visibility = "visible";
interval = setInterval('changePos()', delay);
}
www_helpor_net();
//For more,visit:www.helpor.net
-->
</script>
<% end if
rsn.close
set rsn=nothing
rsu.close
set rsu=nothing
%>
<!--浮动广告结束-->