怎样用ASP实现注册用户登陆，检验UserName及Password!
怎样用ASP实现注册用户登陆，检验UserName及Password!
使用SQL 7.0
L.sm@yeah.net
使用SQL 7.0
L.sm@yeah.net
...全文
请发表友善的回复…
发表回复
popoli 2000-03-22
- 打赏
- 举报
在<<中国计算机报>>的"数据库与编程B"版有一篇名为"也谈ASP技术实现站点加密"的文章,可以解决你的问题.(2000.3.16第13期).
wweijie 2000-03-20
- 打赏
- 举报
用户登录需检查用户名和密码，我采用的在数据库中保存用户名和密码，同时保存该用户的编码，登录时根据用户提交的表单，检索数据库，找到该条数据，session("passed")=true,session("u_id")=用户编码，E_mail给你源程序，不知对你是否有用。
蝈蝈俊 2000-03-18
- 打赏
- 举报
UserName用session来记录,每个页载入时检查一遍.
Lsuperman 2000-03-16
- 打赏
- 举报
随机对登陆用户负值ID,传递ID到受保护页面。
function getID()
dim numbers
dim letters
dim i
dim ID
Randomize
numbers="0123456789"
letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
for i = 1 to 10
if i mod 2 <> 0 then
ID = ID & mid(letters, Int((26 * Rnd) + 1),1)
else
ID = ID & mid(numbers, Int((10 * Rnd) + 1),1)
end if
next
getID = ID
end function
function getID()
dim numbers
dim letters
dim i
dim ID
Randomize
numbers="0123456789"
letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
for i = 1 to 10
if i mod 2 <> 0 then
ID = ID & mid(letters, Int((26 * Rnd) + 1),1)
else
ID = ID & mid(numbers, Int((10 * Rnd) + 1),1)
end if
next
getID = ID
end function
King 2000-03-16
- 打赏
- 举报
也可以把密码和用户包装成一个控件，比较安全。
RealTop 2000-03-16
- 打赏
- 举报
随机ID,详细一点！
蝈蝈俊 2000-03-16
- 打赏
- 举报
<%@ Language=VBScript %>
<%
name = trim(Request.Form("name"))
password =trim(Request.Form("password"))
if name <> "" then
set conn = server.CreateObject("adodb.connection")
conn.Open "DSN=Dcmarket;UID=SA;PWD="
sql = "SELECT * FROM TMEMBER" 'SQL 语句
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn,1
if rs.RecordCount <> 1 then
Response.Write "供应商："&sellcompanyname&" "
Response.Write "供应商你不能登陆,可能由于大小写的原因！"
END IF
conn.Close
set rs=nothing
set conn=nothing
END IF
%>
<HTML>
<BODY>
<form name="load" action="load.asp"method=post>
<P>用户登录</P>
<P>名称：<INPUT type="text" name=name></P>
<P>密码：<INPUT type="password" name=Password type=password></P>
<P><INPUT type="submit" name=submit1 id=submit1 value=确认><INPUT id=reset1 name=reset1 type=reset value=取消></P>
</form>
</BODY>
</HTML>
RealTop 2000-03-16
- 打赏
- 举报
邮件地址就在屏幕上，日期前面！
Lsuperman 2000-03-16
- 打赏
- 举报
如果生成随机ID，根据ID对保护页面进行授权访问。
Lsuperman 2000-03-16
- 打赏
- 举报
thank you.
please give me your mail add.
Or you can mail me.
L.sm@yeah.net
please give me your mail add.
Or you can mail me.
L.sm@yeah.net
zdg 2000-03-16
- 打赏
- 举报
1)读取数据
m_UserName=Request("UserName")
m_Password=Request("Password")
2)从数据库中读取
set rs = Conn.Exectue("select password from ... where username='"&m_UserName&"'")
3)判断
if rs("password")=m_Password ......
m_UserName=Request("UserName")
m_Password=Request("Password")
2)从数据库中读取
set rs = Conn.Exectue("select password from ... where username='"&m_UserName&"'")
3)判断
if rs("password")=m_Password ......
RealTop 2000-03-16
- 打赏
- 举报
很简单，需要的话，给我发邮件！
Lsuperman 2000-03-16
- 打赏
- 举报
补充一点：
操作系统：windows2000正式版＋IIS5.0+InterDev6.0+Office2000+SQL7.0
操作系统：windows2000正式版＋IIS5.0+InterDev6.0+Office2000+SQL7.0
Lsuperman 2000-03-16
- 打赏
- 举报
非常感谢各位的指导。
小弟的目的主要是通过ASP检验UserName及PassWord后，方可调阅受保护页面。
如有source code please mail to me.
mail:L.sm@yeah.net
小弟的目的主要是通过ASP检验UserName及PassWord后，方可调阅受保护页面。
如有source code please mail to me.
mail:L.sm@yeah.net
王释之 2000-03-16
- 打赏
- 举报
用随机值，如下：
<%LogTime=Now()%>
<%Num1=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime))& Cstr(Int(Rnd*10000))%>
<p><input type="hidden" name="No" value=<%=Num1%>></center></td>
如果想要源码，请发邮件 befresh@263.net
<%LogTime=Now()%>
<%Num1=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime))& Cstr(Int(Rnd*10000))%>
<p><input type="hidden" name="No" value=<%=Num1%>></center></td>
如果想要源码，请发邮件 befresh@263.net
qiuhao 2000-03-16
- 打赏
- 举报
使用数据库的用户登录，sp_login
