是登陆后CHECK.ASP问题已解决掉

来源:互联网 发布:mac系统下搜狗输入法 编辑:程序博客网 时间:2024/05/19 22:25

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>系统管理员登陆</title>

</head>
<%
dim num1,rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>
<body>
<form action="checklogin.asp" method="post" name="form1" target="_self" id="form1">
  <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="197">用户名</td>
      <td width="563"><input type="text" name="UserName" /></td>
    </tr>
    <tr>
      <td>密码</td>
      <td><input type="text" name="Password" /></td>
    </tr>
    <tr>
      <td>验证码</td>
      <td><input type="text" name="verifycode" /><%=session("verifycode")%></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="Submit" /></td>
    </tr>
  </table>
</form>
</body>
</html>

原创粉丝点击