fyerror.asp

一个不错的论坛原代码

    <a href=reg.asp title="免费注册">注册</a> | 
    <a href="login.asp" title="登陆论坛">登陆</a> |  
    <%else%>
    <font style="CURSOR:hand" onclick="Show(user);" >控制面板</font> |
    <a href=login.asp  title="重登陆">重登陆</a> | 
    <%    if cpbhidden="0" then%>
    <a href=loginfo.asp?action=hidden  title="隐身">隐身</a> | 
    <%else%>
     <a href=loginfo.asp?action=online  title="上线">上线</a> | 
     
    <%end if
    end if%>
    <a href="search.asp" title="搜索论坛帖或者会员">搜索</a> | 
    <a href="fyonline.asp" title="查看在线人员状态">在线</a> | 
    <a href=day.asp title="查看论坛日志">日志</a> | 
    <font style="CURSOR:hand" onclick="Show(skin);" >界面选择</font> |    
    <%if u_grade="0" then response.write("<a href=admindefault.asp title=""后台管理人口"">管理</a> | ")%>
    <%if cpbusername<>"" then%><a href="logout.asp" title="退出论坛">退出</a> | <%end if%>
    <a href="recycle.asp" title="回收站">回收站</a> | 
    <a href="index.asp" title="论坛首页">首页</a>
       </tr>
</table>

<font size="1">&nbsp;</font><br>  
</center>



<div id="skin" style="FILTER: revealTrans(transition=23,duration=0.5) blendTrans(duration=0.5); POSITION: absolute; z-index:1; background-color:<%=tcolor1%>; border: 1px none <%=tcolor1%>; top:80px;left:300px;width:256px; visibility: hidden; height:45px"> 
        <table border=1 borderColor=<%=tdc2%> cellPadding=0 cellSpacing=0 width=100% style="border-collapse: collapse">
          <tr> 
            <td> 
              <table width=100%  border=0 cellspacing=0 cellpadding=2 onMouseOver="dragObj=skin; drag=1;move=0" style="WIDTH: 100%; CURSOR: move" onMouseOut="drag=0">
                <tr> 
                  <td class=tdc1 <%=tcolor%> height=23><B>当前界面：</b> <%sql="select bdtj2 from stycss where s_id="&h_sid&""
      set rs=conn.execute(sql)
      if not rs.eof then  response.write(rs("bdtj2"))           
      set rs=nothing%></td>           <td align="right" valign="middle" <%=tcolor%>> <span style="CURSOR:hand" onClick="Hide(skin);"><img src="image/close.gif"></span></td>
                </tr>
              </table>
              <table width=100%  border=0 cellspacing=0 cellpadding=2>
                <tr>
                  <td class=tdc bgcolor=<%=tcolor1%>>
                     <form name="form2" method="post" action="index.asp"> 界面选择： 
					  <select name='skin' class=bdtj3>					   
      <%sql="select s_id,bdtj2 from stycss"
 set rs=conn.execute(sql)
 do while not rs.eof %>
       <option  value=<%=rs("s_id")%> ><%=rs("bdtj2")%></option>
   <%rs.movenext
   loop
   set rs=nothing%>  </select>
<input type="submit" name="Submit" value="更换" class=bdtj>
<input type="hidden" value="1" name="editskin">
</form>   </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </div>
      
      <div id="user" style="FILTER: revealTrans(transition=23,duration=0.5) blendTrans(duration=0.5); POSITION: absolute; z-index:1; background-color:<%=tcolor1%>; border: 1px none <%=tcolor1%>; top:80px;left:100px;width:220px; visibility: hidden; height:45px"> 
        <table border=1 borderColor=<%=tdc2%> cellPadding=0 cellSpacing=0 width=100% style="border-collapse: collapse">
          <tr> 
            <td> 
              <table width=100%  border=0 cellspacing=0 cellpadding=2 onMouseOver="dragObj=skin; drag=1;move=0" style="WIDTH: 100%; CURSOR: move" onMouseOut="drag=0">
                <tr> 
                  <td class=tdc1 <%=tcolor%> height=23><B>请选择进入的面版：</b></td>           <td align="right" valign="middle" <%=tcolor%>> <span style="CURSOR:hand" onClick="Hide(user);"><img src="image/close.gif"></span></td>
                </tr>
              </table>
              <table width=100%  border=0 cellspacing=0 cellpadding=2>
                <tr>
                  <td class=tdc bgcolor=<%=tcolor1%> height=40 align=center>
                      面版选择： 
					  <select name='memo1' class=bdtj3 onChange="jump('parent',this,0)">					   
     <option  value=userindex.asp >请选择面版</option>

       <option  value=userindex.asp >控制面版首页</option>
        <option  value=edituser.asp?action=editbasic >基本资料修改</option>
         <option  value=edituser.asp?action=editlink >联系资料修改</option>
         <option  value=edituser.asp?action=editpw>用户密码修改</option>
         <option  value=friend.asp>编辑好友列表</option>
          <option  value=friend.asp?action=badfriend>编辑忽略列表</option>
           <option  value=fav.asp>用户收藏管理</option>
            <option  value=pm.asp>用户短信管理</option>
     </select>

</form>   </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </div>


      <%end sub

      
      '中间参数
      'cpbtitle为后续说明
'islist=1分论坛参数，islist=2精华区参数，islist=3，论坛贴参数，islist=0论坛其他页面参数，islist=4论坛其他页面参数， islist=5排行页面参数，gettitle论坛其他页面上级页面，geturl论坛其他页面上级页面URL
sub head(islist,gettitle,geturl,cpbtitle)
%>

<table border=0 width=<%=tdc3%> cellpadding="0" cellspacing="1"  class=tb1 >

<tr> <td class=tdc  align="left" height="23" bgcolor=<%=tcolor1%>>
<img src=image/todaytopic.gif> <a href=index.asp>论坛首页</a> ==>
<%
if islist=1 then
	
		response.write (""&ltitle&" ==> <a href=jinhua.asp?l_id="&chktopic(request.querystring("l_id"))&">本栏精华</a>")
		elseif islist=2 then
		response.write ("<a href=list.asp?l_id="&chktopic(request.querystring("l_id"))&">"&ltitle&"</a> <== "&ltitle&"精华区")	
		elseif islist=3 then
		response.write ("<a href=list.asp?l_id="&chktopic(request.querystring("l_id"))&">"&ltitle&"</a> ==> "&cpbtitle)	

elseif islist=5 then
response.write " " & cpbtitle%>
</td><td class=tdc  align="right" bgcolor=<%=tcolor1%>> 
排行跳转： <select name="menu1" onChange="jump('parent',this,0)" class="bdtj3">
      <option value=?view=fen <%if cpbview="fen" then response.write("selected")%>>++经验排行++</option>
       <option value=?view=money <%if cpbview="money" then response.write("selected")%>>++财产排行++</option>
       <option value=?view=beauty <%if cpbview="beauty" then response.write("selected")%>>++魅力排行"++</option>
       <option value=?view=send <%if cpbview="" or cpbview="send" then response.write("selected")%>>++发帖排行++</option>
      <option value=?view=newreg <%if cpbview="newreg" then response.write("selected")%>>++用户列表"++</option>
   <option value=?view=man <%if cpbview="man" then response.write("selected")%>>++管理团队"++</option>
        </select>

<%
elseif islist=0 then
	response.write "<a href="&geturl&">"&gettitle&"</a> ==> " & cpbtitle
	else
	response.write " " & cpbtitle
	end if
%>

</td></td>
 <td class=tdc  align="right" bgcolor=<%=tcolor1%>><%
 if islist=1 or islist=2 or islist=3 then
  sqlpm = "select count(*) as tpm from pm where q_receive='"&cpbusername&"'and q_read=0"
set rspm=conn.execute(sqlpm)
countpm=rspm("tpm")
set rspm=nothing
'有新短消息就读出声音文件
    if countpm>0 then response.write("<a href=""pm.asp"">您的收件箱有"&countpm&"封新邮件</a><bgsound src=""image/mail.wav"" loop=""1""><img src=image/newmsg.gif><script>if (confirm(""您有新的短消息，是否打开收件箱查看？"")) window.open(""pm.asp"");</script>")
end if
%>
</td>
</table>
  <font size="1">&nbsp;</font><br>
<%
end sub


'请尊重作者的劳动,按照说明更改连接
    sub bq()
  endtime=timer()
     response.write("<BR><center><font class=tdc> <BR><script language='JavaScript' type='text/JavaScript' src='http://union.3721.com/ads/ads.js?id=42843&ads=1&img_url=http%3A%2F%2Funion.3721.com%2Fimages%2FIM680-60.swf&img_type=1&img_h=60&img_w=680'> </script> <br><br><br><a href=http://down.dxxo.com> 『down.dxxo.com』</a> <br>本论坛言论纯属发表者个人意见，与本论坛立场无关<p>页面运行时间："&FormatNumber((endtime-starttime)*1000,3)&"毫秒</center></font><script src='http://www.21dx.com/count/count.asp?view=dxxobbs'></script>")
end sub%>