📄 pwd_useid.asp

📁 本房地产网站功能强大
💻 ASP
字号:
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="../inc/conn.asp"--><!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<%If is_house_ot_user=1 then
Response.Redirect ""&house_ot_lostpasswordurl&""
end if%>
<%
first=changechr(request("first"))
if first="1" then
session("err")=""
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>找回密码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../inc/style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="5" topmargin="5" marginwidth="0" marginheight="0">
<%
if trim(request("tijiao"))="" then
%>
<table width="233" height="89" border="0" cellpadding="0" cellspacing="1" bgcolor="#B1E4AD">
  <tr>
    <td height="27" class="black" bgcolor="#B1E4AD">
<div align="center"><font color="#FFFFFF"><strong> 
        <%if session("err")=true then response.write "<font color='#FFFF00'>您输入的用户名不存在！</font>" else response.write "请输入您的用户名" end if%>
        </strong></font></div></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="black"><div align="center">
        <form name="form1" method="post" action="pwd_useid.asp">
          <br>
          用户名： 
          <input name="userid" type="text" id="userid2" size="20">
          <br>
          <br>
          <input name="tijiao" type="submit" id="tijiao" value=" 确 定 " onclick="javascript:return checkfield()">
          <input type="reset" name="Submit2" value=" 重 写 ">
          <SCRIPT language=VBScript>

function checkfield()
	if trim(form1.userid.value)="" then
		msgbox "用户名不能为空！"
		form1.userid.focus
		checkfield=false
		exit function
	end if

	checkfield=true
end function
</SCRIPT>
        </form>
      </div></td>
  </tr>
</table>
<%
else
userid=changechr(request("userid"))
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from company where userid='"&userid&"'"
rs.open sql,conn,1,1
if rs.eof then 
session("err")=true
response.redirect "pwd_useid.asp"
else
session("err")=""
response.redirect "question.asp?id="&trim(rs("id"))&""
end if
end if
%>
</body>
</html>
⌨️ 快捷键说明

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