<head>
<title>管理者登陆</title>
<link rel="stylesheet" href="style.CSS">
</head>
<body>
<div align="center">
<p> </p>
<form method="post" action="Chkadmin.asp">
<table class="border" width="300" border="0" cellpadding="4" cellspacing="0" >
<tr class="title">
<td colspan="2">
<div align="center">操作: 确认身份</div>
</td>
</tr>
<tr>
<td class="tdbg" colspan="2"> <br>
<br>
<table width="250" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>用户名称:
<input class="smallinput" type="text" name="Username" size="23">
<br>
用户密码:
<input class="smallinput" type="password" name="Password" size="23">
<br>
<br>
<br>
</td>
</tr>
<tr>
<td>
<div align="center">
<input class="buttonface" type="submit" name="Submit" value="确认">
<input class="buttonface" type="reset" name="Submit2" value="复位">
<br>
<br>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<p> </p>
</div>
</body>
</html>
23 个解决方案
#1
晕,不是吧?
建议找本初级的书看看去,不用asp,看看html就行了,,
上面是一个再简单不过的表单,
建议找本初级的书看看去,不用asp,看看html就行了,,
上面是一个再简单不过的表单,
#2
这只是一个身份验证程序,还不是处理页面,这里输入用户名和密码,然后提交到了Chkadmin.asp去处理!
#3
这只是一个身份验证程序,还不是处理页面,这里输入用户名和密码,然后提交到了Chkadmin.asp去处理!
#4
建议找本html书看看,,,
最简单的一段程序,用DW都可以做出来
最简单的一段程序,用DW都可以做出来
#5
这是一个登陆页面,输入用户名和密码.到Chkadmin.asp页面进行验证.
#6
这是一个前台输入页面,提供了一些文本框供用户输入信息。
输入完后,点击“确认”,它提交的后台处理页面叫Chkadmin.asp,那里应该有一些asp的验证程序。
输入完后,点击“确认”,它提交的后台处理页面叫Chkadmin.asp,那里应该有一些asp的验证程序。
#7
这只是一个静态的表单,没有asp程序
#8
先去学学Html吧!
#9
这个问题有难度!思考中..............
#10
我也是新手,哈哈,看来,还有更新的。
#11
提供一些文本框供用户输入信息,点击“确认”,它提交给后台处理页面Chkadmin.asp进行身份验证。好比一扇门的锁(不大确切),呵呵
#12
这是一个前台输入页面,提供了一些文本框供用户输入信息。
输入完后,点击“确认”,它提交的后台处理页面叫Chkadmin.asp,那里应该有一些asp的验证程序。
输入完后,点击“确认”,它提交的后台处理页面叫Chkadmin.asp,那里应该有一些asp的验证程序。
#13
晕啊晕!
#14
是动态的基础
先看看HTML吧!!!!!!!!!!!1
先看看HTML吧!!!!!!!!!!!1
#15
要努力了哦 !!!
#16
從頭開始吧!html ,css, dhtml,vbscript,js,....
#17
与HTML亲蜜接触
#18
UP 大家都是从这一步来的,好好努力吧!!祝你好运
#19
一點點ASP語句都沒有,怎麽說是ASP,這只是一個登陸驗證表單
#20
呵呵~~ 页面而已~
#21
Chkadmin.asp
关键的后台程序是这个
关键的后台程序是这个
#22
Chkadmin.asp
<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
' response.write ""&sql&""
' response.end
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("admin")=rs("username")
session("flag")=rs("flag")
Response.Redirect "manage.asp"
else
call Error
end if
else
call Error()
end if
sub Error()
response.write " <html><head><link rel='stylesheet' href='style.css'></head><body>"
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>"
response.write " <tr > "
response.write " <td class='title' colspan='2' height='15'> "
response.write " <div align='center'>操作: 确认身份失败!</div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td class='tdbg' colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " 用户名或密码错误!!! <br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'>返回</a>"
response.write " <br><br></div></td>"
response.write " </tr> </table></body></html>"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
' response.write ""&sql&""
' response.end
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("admin")=rs("username")
session("flag")=rs("flag")
Response.Redirect "manage.asp"
else
call Error
end if
else
call Error()
end if
sub Error()
response.write " <html><head><link rel='stylesheet' href='style.css'></head><body>"
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>"
response.write " <tr > "
response.write " <td class='title' colspan='2' height='15'> "
response.write " <div align='center'>操作: 确认身份失败!</div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td class='tdbg' colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " 用户名或密码错误!!! <br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'>返回</a>"
response.write " <br><br></div></td>"
response.write " </tr> </table></body></html>"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
#23
简单的表单验证
#1
晕,不是吧?
建议找本初级的书看看去,不用asp,看看html就行了,,
上面是一个再简单不过的表单,
建议找本初级的书看看去,不用asp,看看html就行了,,
上面是一个再简单不过的表单,
#2
这只是一个身份验证程序,还不是处理页面,这里输入用户名和密码,然后提交到了Chkadmin.asp去处理!
#3
这只是一个身份验证程序,还不是处理页面,这里输入用户名和密码,然后提交到了Chkadmin.asp去处理!
#4
建议找本html书看看,,,
最简单的一段程序,用DW都可以做出来
最简单的一段程序,用DW都可以做出来
#5
这是一个登陆页面,输入用户名和密码.到Chkadmin.asp页面进行验证.
#6
这是一个前台输入页面,提供了一些文本框供用户输入信息。
输入完后,点击“确认”,它提交的后台处理页面叫Chkadmin.asp,那里应该有一些asp的验证程序。
输入完后,点击“确认”,它提交的后台处理页面叫Chkadmin.asp,那里应该有一些asp的验证程序。
#7
这只是一个静态的表单,没有asp程序
#8
先去学学Html吧!
#9
这个问题有难度!思考中..............
#10
我也是新手,哈哈,看来,还有更新的。
#11
提供一些文本框供用户输入信息,点击“确认”,它提交给后台处理页面Chkadmin.asp进行身份验证。好比一扇门的锁(不大确切),呵呵
#12
这是一个前台输入页面,提供了一些文本框供用户输入信息。
输入完后,点击“确认”,它提交的后台处理页面叫Chkadmin.asp,那里应该有一些asp的验证程序。
输入完后,点击“确认”,它提交的后台处理页面叫Chkadmin.asp,那里应该有一些asp的验证程序。
#13
晕啊晕!
#14
是动态的基础
先看看HTML吧!!!!!!!!!!!1
先看看HTML吧!!!!!!!!!!!1
#15
要努力了哦 !!!
#16
從頭開始吧!html ,css, dhtml,vbscript,js,....
#17
与HTML亲蜜接触
#18
UP 大家都是从这一步来的,好好努力吧!!祝你好运
#19
一點點ASP語句都沒有,怎麽說是ASP,這只是一個登陸驗證表單
#20
呵呵~~ 页面而已~
#21
Chkadmin.asp
关键的后台程序是这个
关键的后台程序是这个
#22
Chkadmin.asp
<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
' response.write ""&sql&""
' response.end
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("admin")=rs("username")
session("flag")=rs("flag")
Response.Redirect "manage.asp"
else
call Error
end if
else
call Error()
end if
sub Error()
response.write " <html><head><link rel='stylesheet' href='style.css'></head><body>"
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>"
response.write " <tr > "
response.write " <td class='title' colspan='2' height='15'> "
response.write " <div align='center'>操作: 确认身份失败!</div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td class='tdbg' colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " 用户名或密码错误!!! <br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'>返回</a>"
response.write " <br><br></div></td>"
response.write " </tr> </table></body></html>"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
' response.write ""&sql&""
' response.end
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("admin")=rs("username")
session("flag")=rs("flag")
Response.Redirect "manage.asp"
else
call Error
end if
else
call Error()
end if
sub Error()
response.write " <html><head><link rel='stylesheet' href='style.css'></head><body>"
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>"
response.write " <tr > "
response.write " <td class='title' colspan='2' height='15'> "
response.write " <div align='center'>操作: 确认身份失败!</div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td class='tdbg' colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " 用户名或密码错误!!! <br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'>返回</a>"
response.write " <br><br></div></td>"
response.write " </tr> </table></body></html>"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
#23
简单的表单验证