管理员登录(7)

        If GetCode = 9999 Then Response.Write "9999" 
        Response.Write """  maxlength=4> " & vbCrLf 
        Response.Write "            请在验证码框输入：<img src=""GetCode.asp""></td>" & vbCrLf 
        Response.Write "          </tr>" & vbCrLf 
        Response.Write "          <tr>" & vbCrLf 
        Response.Write "            <td> </td>" & vbCrLf 
        Response.Write "            <td align=""right""> </td>" & vbCrLf 
        Response.Write "          </tr>" & vbCrLf 
        Response.Write "          <tr>" & vbCrLf 
        Response.Write "            <td> </td>" & vbCrLf 
        Response.Write "            <td align=""right""><input type=""submit"" value=""登 录..."" name=""btnSubmit""  
style=""width:80px;font:menu;"" ID=""Submit1""></td>" & vbCrLf 
        Response.Write "          </tr>" & vbCrLf 
        Response.Write "          </form>  " & vbCrLf 
        Response.Write "        </table>" & vbCrLf 

    End Sub 
    '检验用户登录 
    Sub chklogin() 
        Dim UserName,Password,IP 
        username = Trim(Replace(Request("username"), "'", ""))