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

📄 wlogin-1.asp

📁 这是一个文章管理的网页源程序
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
sql = "select * from admin where username='" & Request("username") & "' And password='" & Request("password") & "' "
  Set rs = conn.Execute(sql)  
 If Not rs.EOF = True Then
	   Session("admin") =  rs("username")
	   Session("password") =  rs("password")
       Response.Redirect("DEFAULT.ASP?name="&Session("admin")&"")

  Else  %>


<html>

<head>
<STYLE type=text/css></style>
<link rel="stylesheet" href="Style.css" type="text/css">


<title>出错提示</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="chat/readonly/style.css">


</head>

<table width="100%" border="0" height="100%">
<tr align="center">
<td>
<form method="post" action="">
<table border="1" bordercolorlight="000000" bordercolordark="FFFFFF" cellspacing="0" bgcolor="#dcd8d0">
<tr>
<td>
<table border="0" cellspacing="0" cellpadding="2" width="346" background="IMAGES/title.jpg">
<tr>
<td width="324"><font color="FFFFFF">¤出错提示</font></td>
<td width="14">
<table border="1" bordercolorlight="666666" bordercolordark="FFFFFF" cellpadding="0" bgcolor="E0E0E0" cellspacing="0" width="18">
<tr>
<td width="16"><b><a href="javascript:history.go(-1)" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="关闭"><font color="000000">×</font></a></b></td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" width="350" cellpadding="4">
<tr>
<td width="59" align="center" valign="top"><img src="IMAGES/Error.gif" width="76" height="76"></td>
<td width="269">

<p>  用户名或密码错误。</p>

</td>
</tr>
<tr>
<td colspan="2" align="center" valign="top">
<input type="button" name="ok" value=" 返 回 " onclick=javascript:history.go(-1);>
<input type="button" name="ok2" value=" 关 闭 " onclick=javascript:window.close();>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<script Language="JavaScript">
document.forms[0].ok.focus();
</script><% End If %>
<%
  rs.Close
  set rs=Nothing
  
  conn.Close
  set conn=Nothing
%>
</html>

⌨️ 快捷键说明

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