fyerror.asp

一个不错的论坛原代码

<%sub error(errormsg)
cpbtitle="出错提示"
response.write "<title>"&l_title&"--"&cpbtitle&"</title><table cellpadding=0 cellspacing=0 border=0   class=tb1 align=center>"&_
		"<tr><td><table cellpadding=3 cellspacing=1 border=0 width=""100%"" borderColor="&tdc2&" style=""border-collapse: collapse""><tr align=center>"&_
		"<td width=""100%"" "&tcolor&"><font class=tdc1><b>错误信息</b></font></td>"&_
		"</tr><tr><td width=""100%"" bgcolor="&tcolor2&">"&_
		"<font class=tdc><b>错误提示：</b><br><br>"&_
		"<font class=tdc><li>您是否阅读了<a href=""help.asp"">帮助文件</a>，您没有权限继续下一步操作，通常是以下原因：</li><br>"&_
		""&errormsg&" </td></tr><tr align=center><td width=""100%"" bgcolor="&tcolor2&" class=tdc>"&_
		"<a href=index.asp target=_top><font class=tdc>  返回论坛首页>></font></a> <a href=javascript:history.go(-1)><font class=tdc> << 返回上一页</font></a>"&_
		"</td></tr>   </table>   </td></tr></table>"
		
end sub


sub succ(succmsg)
cpbtitle="成功信息"
response.write "<title>"&l_title&"--"&cpbtitle&"</title><table cellpadding=0 cellspacing=0 border=0   class=tb1 align=center>"&_
		"<tr><td><table cellpadding=3 cellspacing=1 border=0 width=""100%"" borderColor="&tdc2&" style=""border-collapse: collapse""><tr align=center>"&_
		"<td width=""100%"" "&tcolor&"><font class=tdc1><b>成功信息</b></font></td>"&_
		"</tr><tr><td width=""100%"" bgcolor="&tcolor2&">"&_
		"<font class=tdc><b>操作成功：</b><br><br>"&_
		""&succmsg&" </td></tr><tr align=center><td width=""100%"" bgcolor="&tcolor2&" class=tdc>"&_
		"<a href=index.asp target=_top><font class=tdc>  返回论坛首页>></font></a> <a href=javascript:history.go(-1)><font class=tdc> << 返回上一页</font></a>"&_
		"</td></tr>   </table>   </td></tr></table>"
		
end sub 

'论坛登陆入口
sub login()
url=Request.ServerVariables("HTTP_REFERER")
dim p
randomize 
p = Int((8999 * Rnd) + 1000)  
session("cpbcode")=p
%>
<center>
 
     
        <table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse">
        <%if request("action")="password" then%>
        <form name="form2" method="post" action="loginfo.asp?action=password&l_id=<%=request.querystring("l_id")%>">
        <%ctitle="加密论坛登录"
       else%>
        <form name="form1" method="post" action="loginfo.asp">
        <%ctitle="论坛登录"
end if%>
          <tr align="center" > 
            <td colspan="2" height="22"   <%=hColor%> class=tdc1><%=ctitle%></td>
          </tr>
         
          <tr > 
            <td width="30%" align="right"  bgcolor=<%=tColor2%> class=tdc height="25">用户名
            ：</td>
            <td width="70%" bgcolor=<%=tColor2%> class=tdc height="25"> 
              &nbsp;<input type="text" name="l_user" size="20"  class="bdtj3" value="<%=cpbusername%>">
              <a href="reg.asp">我要注册</a></td>
          </tr>
          <tr > 
            <td width="30%" align="right"  bgcolor=<%=tColor2%> class=tdc height="25">密码
            ：</td>
            <td width="70%"  bgcolor=<%=tColor2%> class=tdc height="25"> 
              &nbsp;<input type="password" name="l_password" size="25" class="bdtj3" value=""> <a href="findpw.asp">忘记密码</a>
            </td>
          </tr>
          <%if t_viewcheck=0 then%>
          <TR>
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">输入验证码：</td>
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
      &nbsp;<input type="text" name="cpbcode" size="20" class="bdtj3"> 请在左边框输入:<B><span style="background-color: <%=tColor1%>"><%=session("cpbcode")%></span></b></td>
    </tr>
    <%end if%>
     <%if request("action")="password" then%>
    <tr > 
            <td width="30%" align="right"  bgcolor=<%=tColor2%> class=tdc height="25">
            加密论坛的密码：</td>
            <td width="70%"  bgcolor=<%=tColor2%> class=tdc height="25"> 
              &nbsp;<input type="password" name="fy_lpassword" size="23" class="bdtj3" value="<%=session("fy_lpassword")%>"> 
              请在此输入你获得密码
            </td>
          </tr>
          <%end if%>
           <tr>
            <td width="30%" valign="top" bgcolor=<%=tColor2%> class=tdc>
            <p align="right"><b>Cookie：<br>
            </b>(请选择你的Cookie保存时间，下次访问可以方便输入)<br>
            </td>
            <td width="70%" bgcolor=<%=tColor2%> class=tdc> 
              &nbsp;<input type="radio" name="Cookies_Time" value=1>
              保存一天<br>
              &nbsp;<input type="radio" name="Cookies_Time" value=30>
              保存一月<br>
              &nbsp;<input type="radio" name="Cookies_Time" value=365>
              保存一年<br>
              &nbsp;<input type="radio" name="Cookies_Time" value=0  checked>
              不要保存</td>
          </tr>
            <tr>
            <td width="30%" valign="top" bgcolor=<%=tColor2%> class=tdc>
            <p align="right"><b>隐身登陆：<br>
            </b>(您可以选择隐身登陆，论坛会员将在用户列表看不到您的信息。)<br>
            </td>
            <td width="70%" bgcolor=<%=tColor2%> class=tdc> 
              &nbsp;<input type="radio" name="o_hidden" value=0 checked>
              正常登陆<BR>
              &nbsp;<input type="radio" name="o_hidden" value=1>
              隐身登陆<br>
            </td>
          </tr>
          <tr > 
            <td width="30%"  bgcolor=<%=tColor2%> class=tdc height="25">&nbsp; </td>
            <td width="70%"  bgcolor=<%=tColor2%> class=tdc height="25"> 
              &nbsp; 
              <input type="submit" name="Submit" value="登录" class="bdtj">
              <input type="reset" name="Submit2" value="清空" class="bdtj">
       <input type=hidden name=gourl value=<%=url%>>
            </td>
          </tr>
        </table>
         
    </form>
      </center>
<%end sub

'头部
sub toptitle(l_title,cpbtitle)%>


<html>
<head>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<meta name=keywords content="down.dxxo.com,dxxo论坛">
 <title><%=l_title&"--"&cpbtitle%></title>
 
  <script language="JavaScript">
<!--
function jump(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}


//-->
</script>

</head>
 <body  <%=background%> topmargin="0" leftmargin="0">
 <div align="center">
   <center>

<table cellPadding=0 cellSpacing=0 class=tb1>
<tr ><td height="5" colspan=5 <%=hColor%>></td></tr>
 <tr><td bgcolor=<%=tColor2%> valign="middle" align=left><a href=<%=h_url%>><%=topimg%></a></td><td  valign="middle" class=tdc bgcolor=<%=tColor2%> align=left target=_blank><a href=<%=s_announcelink%> target="_blank"><%=s_announce%></a></td>

    <td colspan="2" class=tdc align="right" bgcolor=<%=tColor2%>><table border=0 width=98%><tr><td class=tdc align="right" bgcolor=<%=tColor2%>><a  href="javascript:window.external.addfavorite('<%=l_urlf%>', '<%=l_title%>')" title="将本论坛添加到收藏夹">加为收藏</a></td></tr><tr><td class=tdc align="right" bgcolor=<%=tColor2%>><a href=mailto:<%=h_email%>>联系我们</a></td></tr><tr><td class=tdc align="right" bgcolor=<%=tColor2%>><a href=help.asp>在线帮助</a></td></tr></table></td>
  
  </tr>
</table>
 <table  cellPadding=0 cellSpacing=0 class=tb1> <tr  ><td height="3" colspan=5 <%=hColor%>></td></tr>
 <tr> 
    <td colspan="3" align="left" height="22" bgcolor=<%=tColor2%> class=tdc> &nbsp;   
    <% if cpbusername="" then%>