|
<!--#include file="conn.asp"-->
<!--#include file="fun.asp"-->
<%
dim rs,sql
if not IsObject(conn) then
LinkData
end if
Call sysinfo()
call LxTel_MB '读取模板
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Application(BBSInfo&"sysinfo")(4,0)%></title>
<meta name="keywords" content="LVGO，手机，PSP，音乐，电影，社区，新闻">
<meta name="description" content="LVGO-爱我网络服务中国！" />
<!--刷新代码-->
<%
if Request.QueryString("refreshTime")<>"" and Request.QueryString("refreshTime")<>0 then
%>
<meta http-equiv="refresh" content="<%=Request.QueryString("refreshTime")%>">
<%
end if
%>
<!--刷新代码-->
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<script>
var tb_h=new Array()
function init(ids,cons,dis,hids,tbs){
document.getElementById(ids).getElementsByTagName('li')[0].className='active';
document.getElementById(cons).innerHTML=document.getElementById(dis+"l1").innerHTML;
document.getElementById(ids).onmouseover=function(){onmousOver(ids,cons,dis,hids);}//鼠标指向激发效果
// document.getElementById(ids).onclick=function(){onmousOver(ids,cons,dis,hids);}//点击激发效果
var obj_tab=document.getElementById(tbs)
tb_h[tbs]=obj_tab.offsetHeight;
}
function onmousOver(ids,cons,dis,hids){
o = o || window.event;
var obj=o.target || o.srcElement;
if (obj.tagName=='LI'){
if (obj.className=='active'||obj.id==hids)return;
var o=document.getElementById(ids).getElementsByTagName('li');
for (var i=0;i<=o.length-2;i++){o[i].className='default'}
obj.className='active';
if (obj.className=='active'){document.getElementById(cons).innerHTML=document.getElementById(dis+obj.id).innerHTML;}
}
}
function show_con(tbs,ids,hids){
var obj_click=document.getElementById(hids);
obj_click.innerHTML=(obj_click.innerHTML=="+")?"-":"+"
obj_click.className=(obj_click.className=='showme')?'hidme':'showme'
var hid=(obj_click.className=='showme')?1:-1
var obj_tab=document.getElementById(tbs)
var obj_nav=document.getElementById(ids)
var h_m=obj_nav.offsetHeight+2
var H=tb_h[tbs]
var n=20,t=50;
var timers=new Array(n);
if (hid<0){
for(var i=0;i<n;i++){(
function(){
if(timers[i]) clearTimeout(timers[i]);
var j=i;
timers[i]=setTimeout(function(){obj_tab.style.height=H-Math.round((H-h_m)*(j+1)/n);},(i+1)*t);
}
)()};
}
if (hid>0){
for(var i=0;i<n;i++){(
function(){
if(timers[i]) clearTimeout(timers[i]);
var j=i;
timers[i]=setTimeout(function(){obj_tab.style.height=h_m+Math.round(H*(j+1)/n);},(i+1)*t);
}
)()};
}
}
</script>
<body>
<table width="76%" border="0" align="center" cellpadding="0" cellspacing="0">
<a href="http://psp.lvgo.com.cn" target="_blank"><img src="/images/logo.gif" width="183" height="86" border="0"></a>
</td>
</table>
<table width="76%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="1%" align="left" valign="middle"><img src="images/st19a.gif" width="10" height="35" /></td>
<td width="98%" align="left" valign="top" background="images/st19.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<%
dim boardid
If DataType=1 Then
sql="select BoardID,FBoardID,BoardName from LxTel_Board where NoSeeBoard=0 order by orderid "
Else
sql="select BoardID,FBoardID,BoardName from LxTel_Board where NoSeeBoard=false order by orderid "
End IF
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.BOF and rs.EOF then
Response.Write "<td width=""10%"" height=""33"" align=""center"" valign=""middle"">无论坛版块</td>"
else
while not rs.EOF
Response.Write "<td width=""10%"" height=""33"" align=""center"" valign=""middle"" class=""top""><a href=""dislist.asp?boardid="&rs("boardid")&""" class=""top"">"&rs("boardname")&"</a></td>"
boardid=rs("boardid")
rs.MoveNext
wend
end if
rs.Close
set rs=nothing
%>
</tr>
</table></td>
<td width="1%" align="left" valign="middle"><img src="images/st19b.gif" width="10" height="35" /></td>
</tr>
</table></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="20%" align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9D9D9">
<tr>
<td align="left" valign="middle" bgcolor="#FFFFFF">
<%
if trim(Request.Cookies(bbsinfo&"username"))="" then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" colspan="2" align="left" valign="middle" background="images/bg-login.gif"> <strong><img src="images/07.gif" width="16" height="14" align="absmiddle" />用户登陆</strong></td>
</tr>
<tr><form action="login.asp?login=login" method=post>
<td width="50%" height="25" align="center" valign="middle">用户名：</td>
<td width="50%" height="25" align="left" valign="middle"><input name="username" type="text" class="wbk" size="12" /></td>
</tr>
<tr>
<td width="50%" height="25" align="center" valign="middle">密 码：</td>
<td width="50%" height="25" align="left" valign="middle"><input name="password" type="text" class="wbk" size="12" /></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="middle"><input type="checkbox" name="passsave" value="360" />
<font color="#666666">在本机保存我的信息</font></td>
|
所在位置：论坛首页 -> ┈┋BBSGood专区┋┈ -> BBSGood论坛交流 -> [求助]为什么我的这个代码在显示时网页最上面留有空白！！！
