📄 forgetcode.asp
字号:
<html>
<head>
<title>编码查询</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td{font-size:9pt}
.button
{
BACKGROUND-COLOR: #e6f4ff;
BORDER-BOTTOM: #0099ff 1px solid;
BORDER-LEFT: #0099ff 1px solid;
BORDER-RIGHT: #0099ff 1px solid;
BORDER-TOP: #0099ff 1px solid;
COLOR: #336699;
HEIGHT: 18px;
TEXT-ALIGN: center
}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
UserName=trim(Request("UserName"))
if userName="" then
%>
<table style="font-size:9pt" width="400" border="0" align="center" bordercolor="#FF0000" cellpadding="0" cellspacing="1" bgcolor="#3399FF">
<form name="form1" method="post" action="../user/forgetCode.asp">
<tr align="center" bgcolor="#3C9DCC">
<td colspan="2" height="18"> <font color="#FFFFFF">======= 编 码 查 询 =======</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125" height="18" align="center">请输入您的用户姓名：</td>
<td width="266" height="18">
<input type="text" name="UserName" maxlength="6">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" height="18" align=center>
<input type="submit" name="Submit3" value="提交" onClick="return checkfun1()" class="button">
<input type="reset" name="Submit22" value="重置" class="button">
<input type="button" name="Submit4" value="返回" class="button" onclick="back()">
</td>
</tr>
<tr bgcolor="#3C9DCC">
<td colspan="2" height="2"></td>
</tr>
</form>
</table>
<%else%>
<!--#include file="../Include/AdoConn.asp"-->
<%
set rst=server.CreateObject ("ADODB.recordset")
StrSQL="select * from XT_VC_User where 用户姓名 like '%"+UserName+"%'and left(用户编码,3)<>'kjj'"
rst.CursorType =3
rst.CursorLocation =3
rst.LockType =2
rst.Open StrSQL,strconn
if not rst.EOF then
%>
<table style="font-size:9pt" width="400" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="82"><img src="../public/images/happy.gif" width="50" height="60"></td>
<td width="318">
<p><%=username%>您好，数据库中您的相关用户编码为：<br>
<%for i=1 to rst.recordcount %>
<br><%=rst("用户姓名")+":"+rst("用户编码")%>
<%rst.movenext
next
rst.close
set rst=nothing
%>
<br><a href="../index.asp">重新登录</a>
</p>
</td>
</tr>
</table>
<%else%>
<table style="font-size:9pt" width="400" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="42" height="20"> </td>
<td width="358" height="20">无此用户名！！</td>
</tr>
<tr>
<td width="42" height="20"> </td>
<td width="358" height="20">请<a href="forgetCode.asp"><font color="#000000">重新输入</font></a>用户姓名，</td>
</tr>
<tr>
<td width="42" height="20"> </td>
<td width="358" height="20">或<a href="UserCode_Edit.asp"><font color="#000000">注册</font></a>新用户。</td>
</tr>
</table>
<%end if%>
<%end if%>
</body>
</html>
<script language="vbscript">
function checkfun1() '校验输入用户编码表单
checkfun1=true
if not form1.UserName.value<>"" then
checkfun1=false
window.alert "用户姓名不能为空，请输入用户姓名！"
exit function
end if
end function
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -