<% @ 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> System Administrator Logon </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"> User Name </TD>
<TD width = "563"> <input type = "text" name = "username"/> </TD>
</Tr>
<Tr>
<TD> password </TD>
<TD> <input type = "text" name = "password"/> </TD>
</Tr>
<Tr>
<TD> Verification Code </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>