📄 loginleftframe.asp
字号:
<html>
<head>
<base target="_top">
<link rel="stylesheet" type="text/css" href="css.css">
<!--#include file="conn.inc"
'连接数据库
-->
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF">
<form method="POST" action="checkusr.asp">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td colspan="2" bgcolor="#6699CC" height="60"></td>
</tr>
<tr>
<td colspan="2">
<p align="center">
<img border="0" src="images/login.jpg" width="120" height="30"></td>
</tr>
<%if request("temp")="error" then%>
<tr>
<td colspan="2">
<p align="center">用户名或者密码错误!</td>
</tr>
<%end if%>
<%if request("temp")="nota" then%>
<tr>
<td colspan="2">
<p align="center">你不是系统管理员!</td>
</tr>
<%end if%>
<tr>
<td>
<p align="right">帐 号:</td>
<td><input name="account" type="text" class="s01" id="account" size="12"></td>
</tr>
<tr>
<td>
<p align="right"> 密 码:</td>
<td><input type="password" name="pwd" size="12" class="s01"></td>
</tr>
<tr>
<td>
<p align="right"> 登陆身份:</td>
<td>
<select name="kind" id="kind">
<%
sql = "select * from role_info order by RoleID desc"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof %>
%>
<option value="<%=rs("RoleID")%>"><%=rs("RoleName")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</select> </td>
</tr>
<tr>
<td colspan="2">
<p align="center">
<input border="0" value="登 陆" name="I1" type="submit" class="s02"><input type="reset" value="重 置" name="B1" class="s02"></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -