<%@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> </td>
<td><input type="submit" name="Submit" value="Submit" /></td>
</tr>
</table>
</form>
</body>
</html>