请大家帮我做一块代码,很简单的.可我不会呀.内容在内.
请大家帮我做一块代码,很简单的.可我不会呀.内容如下:
一个登陆界面,上边有两个text文本框,一个输入用户名,一个输入密码,请你帮我做出,输入用户名和密码之后,正确显示"输入正确",如果输错了显示"输入错误,请重新输入".
简单吧,可是真是急煞我也呀.请各位大侠帮帮我!!
问题点数：30、回复次数：2Top
1 楼renniliao（小a）回复于 2003-07-04 19:50:54 得分 10
你想用什么来实现呢？是用ASP呢还是用VBSCRIPT或者JSSCRIPT呢 ？Top
2 楼LONGFOR（雪婷）回复于 2003-07-04 20:00:14 得分 20
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>TT</TITLE>
</HEAD>
<BODY>
<P align=center><FONT size=6 color=red><STRONG>--系统2002--</STRONG></FONT></P>
<HR>
<P></P>
<FORM action="TT.asp" id=form1 name=form1 method=post>
<DIV align=center>
<TABLE border=0 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>
<P align=center> 帐号：<INPUT id=text1
name=text1 maxLength=10></P></TD></TR>
<TR>
<TD>
<P align=center> 用户密码：<INPUT id=password1
name=password1 type=password
maxLength=8></P>
<P align=center> </P></TD></TR>
</TABLE></DIV>
</FORM>
<P align=center>
<INPUT id=button2 name=button2 type="button" value=登录系统>
<INPUT id=button1 name=button1 type="button" value=退出系统>
</P>
</BODY>
</HTML>
<SCRIPT LANGUAGE="vbscript">
<!--
function button1_OnClick()
window.close
end function
-->
</SCRIPT>
<SCRIPT LANGUAGE="vbscript">
<!--
function button2_OnClick()
if trim(form1.text1.value)="" Then
msgbox "请重新输入你的帐号！",,"系统提示"
form1.text1.value =""
else
form1.submit
end if
end function
-->
</SCRIPT>
TT.ASP
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Dim Gs_Account,Gs_Password,DBConn,Rs,LStr_Sql,Gs_StaffID
Gs_Account=Trim(Request("text1"))
Gs_Password=Trim(Request("password1"))
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.Open Application("Connection2_ConnectionString")
LStr_Sql="SELECT Stf_ID,Rit_GID,Rit_UPass,Rit_UStatus "
LStr_Sql=LStr_Sql+"FROM Right_User "
LStr_Sql=LStr_Sql+"WHERE Rit_UID='"& Gs_Account &"'"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open LStr_Sql,DBConn
If Rs.EOF And Rs.BOF Then
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
<script LANGUAGE="vbscript">
<!--
MsgBox "对不起没有此帐号！",,"系统提示"
form1.submit
-->
</script>
<%
Response.End
Else
If Trim(Rs("Rit_UStatus"))<>"启用" Then
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
<script LANGUAGE="vbscript">
<!--
MsgBox "对不起此帐号没有启动！",,"系统提示"
form1.submit
-->
</script>
<%
Response.End
End If
If Trim(Rs("Rit_UPass"))<>Gs_Password Then
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
<script LANGUAGE="vbscript">
<!--
MsgBox "对不起，密码不正确，请重新输入！",,"系统提示"
form1.submit
-->
</script>
Top
