http://www.tomdisk.com/pick.aspx?code=root
你们去看看看"/>

帮我做一个asp登陆的自响应页面

发布时间:2024-05-17 15:17 发布:上海旅游网

问题描述:

我做了一个网站,但是不支持数据库文件,
我想各位动态网页设计的高手给我设计一个网站的登陆页面,要自响应的那种(就是在一张也面里边完成,不要跳转那种)
只给我写出代码就可以了,主要实现的功能是帐户为root,密码为55663344
做出来效果是\:当输入帐户或者密码错误的时候,出现的页面内容为刚才那个登录框下边加上一句提示性的错误信息.都输入对了就在页面里显示root,欢迎你!

谢谢了,我问题说得比较仔细,就是希望各位大虾明白我的意思,所以我现在就在等答案了哟 !给你们加分!谢谢了 !
你们好!你们发的代码根本就通不过呀,2楼的页面一打开就出现那个错误的消息。点登陆的时候就跳转了
3楼的页面也没有出现
效果http://www.tomdisk.com/pick.aspx?code=root
你们去看看看

问题解答:

Login.asp
<form action=check.asp method=post>
用户:
<input type=text size=12 name=user>
口令:
<input type=password size=12 name=pwd>
<input type=submit value="登陆">
</form>

check.asp
<%@ Language=VBScript %>
<% session.TimeOut = 800
server.ScriptTimeOut = 100000
if session("login") <> true and (request("user") <> "root" or request("pwd") <> "55663344") then
response.write "口令错误"
end if
response.write "root,欢迎你!"
response.end
%>
<html>
.....
</html>

login.asp
<%dim action:action=request("action")
if action="" then%>
<form action=login.asp?action=check method=post>
用户名:
<input type=text size=12 name=user>
口令:
<input type=password size=12 name=pwd>
<input type=submit value="登陆">
</form>
<%elseif action="check" then
dim user,pwd
user=request("user")
pwd=request("pwd")
if user<>"root" then response.write "用户名错误!"
if pwd<>"55663344" then response.write "口令错误!"
if user="root" and pwd="55663344" then response.write "<p><b>root,欢迎你!</b></p>"
end if
%>

经测试通过

热点新闻