⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 error.asp

📁 基于asp的博客系统+论文(代码齐全)经过调试
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>转向站点</title>
<style type="text/css">
<!--
body {
	background-color: #666688;
}
-->
</style>
<style type="text/css">
<!--
.style2 {font-weight: bold}
.style3 {
	font-size: 14px;
	font-weight: bold;
	color: #FFFFFF;
}
-->
</style>
<link href="Style.css" rel="stylesheet" type="text/css">
<% 
if request.Form("URL") <> "" then
	response.Redirect("Default.asp?user=" & request.Form("URL"))
end if 
 %>
</head>

<body>
<!--#include file="top.asp"-->
<link href="Style.css" rel="stylesheet" type="text/css">
<table width="614" border="0" align="center" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr>
    <td width="614" height="15"  valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="614" height="15"></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td height="29"  valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="614" height="29" valign="middle" background="images/Main_01.gif">&nbsp;&nbsp;<span class="style3">转向站点</span></td>
        </tr>
                </table></td>
  </tr>
  <tr>
    <td height="80"  valign="top"><table width="100%" border="0" cellpadding="10" cellspacing="0" background="images/Main_02.gif">
      <!--DWLayoutTable-->
      <tr>
        <td width="614" height="80" align="left" valign="top"><table width="99%" height="94"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#C0E096">
          <tr>
            <td height="21" bgcolor="#FFFFFF"><a href="#" class="style2">&nbsp;&nbsp;请转向您的博客</a></td>
          </tr>
          <tr>
            <td height="70" bgcolor="#F3F9EC"><table width="82%"  border="0" align="center" cellpadding="1">
			  <form name="frmUnit" action="Error.asp" method="post">
                <tr>
                  <td colspan="3"><div align="center"><%= "请将地址栏改为 <strong>http://" & request.ServerVariables("SERVER_NAME") & replace(lcase(request.ServerVariables("URL")),"error.asp","Default.asp") &  "?user=您用户名" %></strong></div></td>
                  </tr>
                <tr>
                  <td colspan="3"><div align="center">或</div></td>
                </tr>
                <tr valign="middle">
                  <td width="39%"><div align="right">请输入您的用户名:</div></td>
                  <td width="30%"><input name="URL" type="text" class="InputBox"></td>
                  <td width="31%"><input name="Submit" type="submit" class="InputBox" value="转向"></td>
                </tr>
                <tr>
                  <td colspan="3"><div align="center">
                  </div></td>
                  </tr>
				  </form>
              </table></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="25"  valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="614" height="25" valign="top"><img src="images/Main_03.gif" width="614" height="25"></td>
        </tr>
        </table></td>
  </tr>
</table>
<!--#include file="down.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -